0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 Copyright (C) 2
0050: 30 30 30 20 41 6a 75 62 61 20 53 6f 6c 75 74 69 000 Ajuba Soluti
0060: 6f 6e 73 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 ons. *. * TLS (a
0070: 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 ka SSL) Channel
0080: 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64 - can be layered
0090: 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63 on any bi-direc
00a0: 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 tional. * Tcl_Ch
00b0: 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 annel (Note: Req
00c0: 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50 uires Trf Core P
00d0: 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 atch). *. * This
00e0: 20 77 61 73 20 62 75 69 6c 74 20 66 72 6f 6d 20 was built from
00f0: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70 scratch based up
0100: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f on observation o
0110: 66 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 32 42 f OpenSSL 0.9.2B
0120: 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 6f 6e 20 . *. * Addition
0130: 63 72 65 64 69 74 20 69 73 20 64 75 65 20 66 6f credit is due fo
0140: 72 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65 r Andreas Kuprie
0150: 73 20 28 61 2e 6b 75 70 72 69 65 73 40 77 65 73 s (a.kupries@wes
0160: 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 tend.com), for.
0170: 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 68 65 20 * providing the
0180: 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e Tcl_ReplaceChann
0190: 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64 el mechanism and
01a0: 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 working closely
01b0: 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65 with me. * to e
01c0: 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 73 75 70 nhance it to sup
01d0: 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c 65 65 76 port full fileev
01e0: 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20 ent semantics..
01f0: 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64 *. * Also work d
0200: 6f 6e 65 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f one by the follo
0210: 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 69 64 65 w people provide
0220: 64 20 74 68 65 20 69 6d 70 65 74 75 73 20 74 6f d the impetus to
0230: 20 64 6f 20 74 68 69 73 20 22 72 69 67 68 74 22 do this "right"
0240: 3a 0a 20 2a 09 74 63 6c 53 53 4c 20 28 43 6f 6c :. *.tclSSL (Col
0250: 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c 20 53 68 in McCormack, Sh
0260: 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f 67 79 29 ared Technology)
0270: 0a 20 2a 09 53 53 4c 74 63 6c 20 28 50 65 74 65 . *.SSLtcl (Pete
0280: 72 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f r Antman). *. */
0290: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
02a0: 6e 74 2e 68 22 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 nt.h"../*. * For
02b0: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e ward declaration
02c0: 73 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 s. */.static int
02d0: 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 TlsBlockModePr
02e0: 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 oc (ClientData i
02f0: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
0300: 20 6d 6f 64 65 29 3b 0a 73 74 61 74 69 63 20 69 mode);.static i
0310: 6e 74 20 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 nt TlsCloseProc
0320: 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 (ClientData ins
0330: 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 tanceData, Tcl_I
0340: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 3b 0a nterp *interp);.
0350: 73 74 61 74 69 63 20 69 6e 74 20 20 54 6c 73 49 static int TlsI
0360: 6e 70 75 74 50 72 6f 63 20 28 43 6c 69 65 6e 74 nputProc (Client
0370: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
0380: 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e a, char *buf, in
0390: 74 20 62 75 66 53 69 7a 65 2c 20 69 6e 74 20 2a t bufSize, int *
03a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 73 errorCodePtr);.s
03b0: 74 61 74 69 63 20 69 6e 74 20 20 54 6c 73 4f 75 tatic int TlsOu
03c0: 74 70 75 74 50 72 6f 63 20 28 43 6c 69 65 6e 74 tputProc (Client
03d0: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
03e0: 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 a, const char *b
03f0: 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 74 65 2c uf, int toWrite,
0400: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
0410: 74 72 29 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 tr);.static int
0420: 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f TlsGetOptionPro
0430: 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e c (ClientData in
0440: 73 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f stanceData, Tcl_
0450: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
0460: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
0470: 6f 6e 4e 61 6d 65 2c 20 54 63 6c 5f 44 53 74 72 onName, Tcl_DStr
0480: 69 6e 67 20 2a 64 73 50 74 72 29 3b 0a 73 74 61 ing *dsPtr);.sta
0490: 74 69 63 20 76 6f 69 64 20 54 6c 73 57 61 74 63 tic void TlsWatc
04a0: 68 50 72 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 hProc (ClientDat
04b0: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
04c0: 69 6e 74 20 6d 61 73 6b 29 3b 0a 73 74 61 74 69 int mask);.stati
04d0: 63 20 69 6e 74 20 20 54 6c 73 47 65 74 48 61 6e c int TlsGetHan
04e0: 64 6c 65 50 72 6f 63 20 28 43 6c 69 65 6e 74 44 dleProc (ClientD
04f0: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
0500: 2c 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c , int direction,
0510: 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e ClientData *han
0520: 64 6c 65 50 74 72 29 3b 0a 73 74 61 74 69 63 20 dlePtr);.static
0530: 69 6e 74 20 20 54 6c 73 4e 6f 74 69 66 79 50 72 int TlsNotifyPr
0540: 6f 63 20 28 43 6c 69 65 6e 74 44 61 74 61 20 69 oc (ClientData i
0550: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
0560: 20 6d 61 73 6b 29 3b 0a 73 74 61 74 69 63 20 76 mask);.static v
0570: 6f 69 64 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 oid TlsChannelHa
0580: 6e 64 6c 65 72 54 69 6d 65 72 20 28 43 6c 69 65 ndlerTimer (Clie
0590: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
05a0: 61 29 3b 0a 0a 2f 2a 0a 20 2a 20 54 4c 53 20 43 a);../*. * TLS C
05b0: 68 61 6e 6e 65 6c 20 54 79 70 65 0a 20 2a 2f 0a hannel Type. */.
05c0: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 54 63 6c static const Tcl
05d0: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 74 6c 73 _ChannelType tls
05e0: 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a ChannelType = {.
05f0: 20 20 22 74 6c 73 22 2c 20 20 20 20 20 20 20 20 "tls",
0600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0610: 20 20 20 20 20 2f 2a 20 74 79 70 65 4e 61 6d 65 /* typeName
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0640: 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 TCL_CHANNEL_VE
0650: 52 53 49 4f 4e 5f 35 2c 20 20 20 20 20 20 20 20 RSION_5,
0660: 20 20 20 20 20 2f 2a 20 76 65 72 73 69 6f 6e 20 /* version
0670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0690: 20 20 54 6c 73 43 6c 6f 73 65 50 72 6f 63 2c 20 TlsCloseProc,
06a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06b0: 20 20 20 20 20 2f 2a 20 63 6c 6f 73 65 50 72 6f /* closePro
06c0: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
06e0: 20 20 54 6c 73 49 6e 70 75 74 50 72 6f 63 2c 20 TlsInputProc,
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0700: 20 20 20 20 20 2f 2a 20 69 6e 70 75 74 50 72 6f /* inputPro
0710: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c
0720: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0730: 20 20 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2c TlsOutputProc,
0740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0750: 20 20 20 20 20 2f 2a 20 6f 75 74 70 75 74 50 72 /* outputPr
0760: 6f 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 oc
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0780: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 0,
0790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
07a0: 20 20 20 20 20 2f 2a 20 73 65 65 6b 50 72 6f 63 /* seekProc
07b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
07c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
07d0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 0,
07e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
07f0: 20 20 20 20 20 2f 2a 20 73 65 74 4f 70 74 69 6f /* setOptio
0800: 6e 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20 nProc
0810: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0820: 20 20 54 6c 73 47 65 74 4f 70 74 69 6f 6e 50 72 TlsGetOptionPr
0830: 6f 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 oc,
0840: 20 20 20 20 20 2f 2a 20 67 65 74 4f 70 74 69 6f /* getOptio
0850: 6e 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20 nProc
0860: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0870: 20 20 54 6c 73 57 61 74 63 68 50 72 6f 63 2c 20 TlsWatchProc,
0880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0890: 20 20 20 20 20 2f 2a 20 77 61 74 63 68 50 72 6f /* watchPro
08a0: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c
08b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
08c0: 20 20 54 6c 73 47 65 74 48 61 6e 64 6c 65 50 72 TlsGetHandlePr
08d0: 6f 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 oc,
08e0: 20 20 20 20 20 2f 2a 20 67 65 74 48 61 6e 64 6c /* getHandl
08f0: 65 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20 eProc
0900: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0910: 20 20 4e 55 4c 4c 2c 20 20 20 20 20 20 20 20 20 NULL,
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0930: 20 20 20 20 20 2f 2a 20 63 6c 6f 73 65 32 50 72 /* close2Pr
0940: 6f 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 oc
0950: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0960: 20 20 54 6c 73 42 6c 6f 63 6b 4d 6f 64 65 50 72 TlsBlockModePr
0970: 6f 63 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 oc,
0980: 20 20 20 20 20 2f 2a 20 62 6c 6f 63 6b 4d 6f 64 /* blockMod
0990: 65 50 72 6f 63 20 20 20 20 20 20 20 20 20 20 20 eProc
09a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
09b0: 20 20 30 2c 20 20 20 20 20 20 20 20 20 20 20 20 0,
09c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
09d0: 20 20 20 20 20 2f 2a 20 66 6c 75 73 68 50 72 6f /* flushPro
09e0: 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c
09f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0a00: 20 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 20 TlsNotifyProc
0a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a20: 20 20 20 20 20 2f 2a 20 68 61 6e 64 6c 65 72 50 /* handlerP
0a30: 72 6f 63 20 20 20 20 20 20 20 20 20 20 20 20 20 roc
0a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2f 0a */.
0a50: 7d 3b 0a 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0aa0: 0a 20 2a 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 . * Tls_ChannelT
0ab0: 79 70 65 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 ype --. *. *.Ret
0ac0: 75 72 6e 20 74 68 65 20 63 6f 72 72 65 63 74 20 urn the correct
0ad0: 54 4c 53 20 63 68 61 6e 6e 65 6c 20 64 72 69 76 TLS channel driv
0ae0: 65 72 20 69 6e 66 6f 0a 20 2a 0a 20 2a 20 52 65 er info. *. * Re
0af0: 73 75 6c 74 73 3a 0a 20 2a 09 54 68 65 20 63 6f sults:. *.The co
0b00: 72 72 65 63 74 20 63 68 61 6e 6e 65 6c 20 64 72 rrect channel dr
0b10: 69 76 65 72 20 66 6f 72 20 74 68 65 20 63 75 72 iver for the cur
0b20: 72 65 6e 74 20 76 65 72 73 69 6f 6e 20 6f 66 20 rent version of
0b30: 54 63 6c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 Tcl.. *. * Side
0b40: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
0b50: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
0b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 63 ----------. */.c
0ba0: 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c onst Tcl_Channel
0bb0: 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e 6e 65 Type *Tls_Channe
0bc0: 6c 54 79 70 65 28 76 6f 69 64 29 20 7b 0a 09 72 lType(void) {..r
0bd0: 65 74 75 72 6e 20 26 74 6c 73 43 68 61 6e 6e 65 eturn &tlsChanne
0be0: 6c 54 79 70 65 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d lType;.}../*. *-
0bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 42 6c 6f 63 --. *. * TlsBloc
0c40: 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a kModeProc --. *.
0c50: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
0c60: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 e is invoked by
0c70: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
0c80: 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f evel. * to
0c90: 20 73 65 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e set blocking an
0ca0: 64 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f d nonblocking mo
0cb0: 64 65 73 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a des. * Results:.
0cc0: 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 *.0 if successf
0cd0: 75 6c 2c 20 65 72 72 6e 6f 20 77 68 65 6e 20 66 ul, errno when f
0ce0: 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 ailed.. *. * Sid
0cf0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 e effects:. *.Se
0d00: 74 73 20 74 68 65 20 64 65 76 69 63 65 20 69 6e ts the device in
0d10: 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e to blocking or n
0d20: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e onblocking mode.
0d30: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
0d80: 61 74 69 63 20 69 6e 74 20 54 6c 73 42 6c 6f 63 atic int TlsBloc
0d90: 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e 74 kModeProc(Client
0da0: 44 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 Data instanceDat
0db0: 61 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 09 a, int mode) {..
0dc0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
0dd0: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 = (State *) inst
0de0: 61 6e 63 65 44 61 74 61 3b 0a 0a 09 69 66 20 28 anceData;...if (
0df0: 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 mode == TCL_MODE
0e00: 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a _NONBLOCKING) {.
0e10: 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
0e20: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 s |= TLS_TCL_ASY
0e30: 4e 43 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 NC;..} else {...
0e40: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
0e50: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 &= ~(TLS_TCL_ASY
0e60: 4e 43 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e NC);..}...return
0e70: 28 30 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d (0);.}../*. *---
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ec0: 0a 20 2a 0a 20 2a 20 54 6c 73 43 6c 6f 73 65 50 . *. * TlsCloseP
0ed0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 roc --. *. *.Thi
0ee0: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
0ef0: 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 nvoked by the ge
0f00: 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 neric IO level t
0f10: 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 68 61 o perform. *.cha
0f20: 6e 6e 65 6c 2d 74 79 70 65 2d 73 70 65 63 69 66 nnel-type-specif
0f30: 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 ic cleanup when
0f40: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
0f50: 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 ed channel. *.is
0f60: 20 63 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 09 4e closed.. *. *.N
0f70: 6f 74 65 3a 20 77 65 20 6c 65 61 76 65 20 74 68 ote: we leave th
0f80: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 73 6f 63 e underlying soc
0f90: 6b 65 74 20 61 6c 6f 6e 65 2c 20 69 73 20 74 68 ket alone, is th
0fa0: 69 73 20 72 69 67 68 74 3f 0a 20 2a 0a 20 2a 20 is right?. *. *
0fb0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 30 20 69 66 Results:. *.0 if
0fc0: 20 73 75 63 63 65 73 73 66 75 6c 2c 20 74 68 65 successful, the
0fd0: 20 76 61 6c 75 65 20 6f 66 20 54 63 6c 5f 47 65 value of Tcl_Ge
0fe0: 74 45 72 72 6e 6f 28 29 20 69 66 20 66 61 69 6c tErrno() if fail
0ff0: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
1000: 66 66 65 63 74 73 3a 0a 20 2a 09 43 6c 6f 73 65 ffects:. *.Close
1010: 73 20 74 68 65 20 73 6f 63 6b 65 74 20 6f 66 20 s the socket of
1020: 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a the channel.. *.
1030: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1070: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
1080: 20 69 6e 74 20 54 6c 73 43 6c 6f 73 65 50 72 6f int TlsClosePro
1090: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
10a0: 74 61 6e 63 65 44 61 74 61 2c 20 54 43 4c 5f 55 tanceData, TCL_U
10b0: 4e 55 53 45 44 28 54 63 6c 5f 49 6e 74 65 72 70 NUSED(Tcl_Interp
10c0: 20 2a 29 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 *)) {..State *s
10d0: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
10e0: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
10f0: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 54 6c 73 ;...dprintf("Tls
1100: 43 6c 6f 73 65 50 72 6f 63 28 25 70 29 22 2c 20 CloseProc(%p)",
1110: 73 74 61 74 65 50 74 72 29 3b 0a 0a 09 54 6c 73 statePtr);...Tls
1120: 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 74 72 29 _Clean(statePtr)
1130: 3b 0a 09 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c ;..Tcl_Eventuall
1140: 79 46 72 65 65 28 73 74 61 74 65 50 74 72 2c 20 yFree(statePtr,
1150: 54 6c 73 5f 46 72 65 65 29 3b 0a 0a 09 64 70 72 Tls_Free);...dpr
1160: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 intf("Returning
1170: 54 43 4c 5f 4f 4b 22 29 3b 0a 0a 09 72 65 74 75 TCL_OK");...retu
1180: 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a 2f rn(TCL_OK);.}../
1190: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 ----------*. *.
11d0: 2a 09 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e *.Tls_WaitForCon
11e0: 6e 65 63 74 20 2d 2d 0a 20 2a 0a 20 2a 09 53 69 nect --. *. *.Si
11f0: 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 49 deeffects:. *..I
1200: 73 73 75 65 73 20 53 53 4c 5f 61 63 63 65 70 74 ssues SSL_accept
1210: 20 6f 72 20 53 53 4c 5f 63 6f 6e 6e 65 63 74 0a or SSL_connect.
1220: 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a *. *.Result:. *
1230: 09 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d ..None.. *. *---
1240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1270: 2d 2d 2d 2a 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 ---*. */.int Tls
1280: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
1290: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c State *statePtr,
12a0: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
12b0: 74 72 2c 20 69 6e 74 20 68 61 6e 64 73 68 61 6b tr, int handshak
12c0: 65 46 61 69 6c 75 72 65 49 73 50 65 72 6d 61 6e eFailureIsPerman
12d0: 65 6e 74 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 ent) {..unsigned
12e0: 20 6c 6f 6e 67 20 62 61 63 6b 69 6e 67 45 72 72 long backingErr
12f0: 6f 72 3b 0a 09 69 6e 74 20 65 72 72 2c 20 72 63 or;..int err, rc
1300: 3b 0a 09 69 6e 74 20 62 69 6f 53 68 6f 75 6c 64 ;..int bioShould
1310: 52 65 74 72 79 3b 0a 0a 09 64 70 72 69 6e 74 66 Retry;...dprintf
1320: 28 22 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 ("WaitForConnect
1330: 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 72 29 (%p)", statePtr)
1340: 3b 0a 09 64 70 72 69 6e 74 46 6c 61 67 73 28 73 ;..dprintFlags(s
1350: 74 61 74 65 50 74 72 29 3b 0a 0a 09 69 66 20 28 tatePtr);...if (
1360: 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 !(statePtr->flag
1370: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 s & TLS_TCL_INIT
1380: 29 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 )) {...dprintf("
1390: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
13a0: 63 74 20 63 61 6c 6c 65 64 20 6f 6e 20 61 6c 72 ct called on alr
13b0: 65 61 64 79 20 69 6e 69 74 69 61 6c 69 7a 65 64 eady initialized
13c0: 20 63 68 61 6e 6e 65 6c 20 2d 2d 20 72 65 74 75 channel -- retu
13d0: 72 6e 69 6e 67 20 77 69 74 68 20 69 6d 6d 65 64 rning with immed
13e0: 69 61 74 65 20 73 75 63 63 65 73 73 22 29 3b 0a iate success");.
13f0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
1400: 3d 20 30 3b 0a 09 09 72 65 74 75 72 6e 28 30 29 = 0;...return(0)
1410: 3b 0a 09 7d 0a 0a 09 69 66 20 28 73 74 61 74 65 ;..}...if (state
1420: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 Ptr->flags & TLS
1430: 5f 54 43 4c 5f 48 41 4e 44 53 48 41 4b 45 5f 46 _TCL_HANDSHAKE_F
1440: 41 49 4c 45 44 29 20 7b 0a 09 09 2f 2a 0a 09 09 AILED) {.../*...
1450: 20 2a 20 44 69 66 66 65 72 65 6e 74 20 74 79 70 * Different typ
1460: 65 73 20 6f 66 20 6f 70 65 72 61 74 69 6f 6e 73 es of operations
1470: 20 68 61 76 65 20 64 69 66 66 65 72 65 6e 74 20 have different
1480: 72 65 71 75 69 72 65 6d 65 6e 74 73 0a 09 09 20 requirements...
1490: 2a 20 53 53 4c 20 62 65 69 6e 67 20 65 73 74 61 * SSL being esta
14a0: 62 6c 69 73 68 65 64 0a 09 09 20 2a 2f 0a 09 09 blished... */...
14b0: 69 66 20 28 68 61 6e 64 73 68 61 6b 65 46 61 69 if (handshakeFai
14c0: 6c 75 72 65 49 73 50 65 72 6d 61 6e 65 6e 74 29 lureIsPermanent)
14d0: 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 41 {....dprintf("A
14e0: 73 6b 65 64 20 74 6f 20 77 61 69 74 20 66 6f 72 sked to wait for
14f0: 20 61 20 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 a TLS handshake
1500: 20 74 68 61 74 20 68 61 73 20 61 6c 72 65 61 64 that has alread
1510: 79 20 66 61 69 6c 65 64 2e 20 20 52 65 74 75 72 y failed. Retur
1520: 6e 69 6e 67 20 66 61 74 61 6c 20 65 72 72 6f 72 ning fatal error
1530: 22 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 ");....*errorCod
1540: 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 ePtr = ECONNABOR
1550: 54 45 44 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a TED;...} else {.
1560: 09 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 ...dprintf("Aske
1570: 64 20 74 6f 20 77 61 69 74 20 66 6f 72 20 61 20 d to wait for a
1580: 54 4c 53 20 68 61 6e 64 73 68 61 6b 65 20 74 68 TLS handshake th
1590: 61 74 20 68 61 73 20 61 6c 72 65 61 64 79 20 66 at has already f
15a0: 61 69 6c 65 64 2e 20 20 52 65 74 75 72 6e 69 6e ailed. Returnin
15b0: 67 20 73 6f 66 74 20 65 72 72 6f 72 22 29 3b 0a g soft error");.
15c0: 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ...*errorCodePtr
15d0: 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b 0a 09 = ECONNRESET;..
15e0: 09 7d 0a 09 09 72 65 74 75 72 6e 28 2d 31 29 3b .}...return(-1);
15f0: 0a 09 7d 0a 0a 09 66 6f 72 20 28 3b 3b 29 20 7b ..}...for (;;) {
1600: 0a 09 09 2f 2a 20 4e 6f 74 20 69 6e 69 74 69 61 .../* Not initia
1610: 6c 69 7a 65 64 20 79 65 74 21 20 2a 2f 0a 09 09 lized yet! */...
1620: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6c if (statePtr->fl
1630: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 45 ags & TLS_TCL_SE
1640: 52 56 45 52 29 20 7b 0a 09 09 09 64 70 72 69 6e RVER) {....dprin
1650: 74 66 28 22 43 61 6c 6c 69 6e 67 20 53 53 4c 5f tf("Calling SSL_
1660: 61 63 63 65 70 74 28 29 22 29 3b 0a 0a 09 09 09 accept()");.....
1670: 65 72 72 20 3d 20 53 53 4c 5f 61 63 63 65 70 74 err = SSL_accept
1680: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
1690: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 64 ...} else {....d
16a0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 printf("Calling
16b0: 53 53 4c 5f 63 6f 6e 6e 65 63 74 28 29 22 29 3b SSL_connect()");
16c0: 0a 0a 09 09 09 65 72 72 20 3d 20 53 53 4c 5f 63 .....err = SSL_c
16d0: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2d onnect(statePtr-
16e0: 3e 73 73 6c 29 3b 0a 09 09 7d 0a 0a 09 09 69 66 >ssl);...}....if
16f0: 20 28 65 72 72 20 3e 20 30 29 20 7b 0a 09 09 09 (err > 0) {....
1700: 64 70 72 69 6e 74 66 28 22 54 68 61 74 20 73 65 dprintf("That se
1710: 65 6d 73 20 74 6f 20 68 61 76 65 20 67 6f 6e 65 ems to have gone
1720: 20 6f 6b 61 79 22 29 3b 0a 0a 09 09 09 65 72 72 okay");.....err
1730: 20 3d 20 42 49 4f 5f 66 6c 75 73 68 28 73 74 61 = BIO_flush(sta
1740: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 0a 09 09 tePtr->bio);....
1750: 09 69 66 20 28 65 72 72 20 3c 3d 20 30 29 20 7b .if (err <= 0) {
1760: 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 46 6c .....dprintf("Fl
1770: 75 73 68 69 6e 67 20 74 68 65 20 6c 6f 77 65 72 ushing the lower
1780: 20 6c 61 79 65 72 73 20 66 61 69 6c 65 64 2c 20 layers failed,
1790: 74 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61 62 this will probab
17a0: 6c 79 20 74 65 72 6d 69 6e 61 74 65 20 74 68 69 ly terminate thi
17b0: 73 20 73 65 73 73 69 6f 6e 22 29 3b 0a 09 09 09 s session");....
17c0: 7d 0a 09 09 7d 0a 0a 09 09 72 63 20 3d 20 53 53 }...}....rc = SS
17d0: 4c 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 L_get_error(stat
17e0: 65 50 74 72 2d 3e 73 73 6c 2c 20 65 72 72 29 3b ePtr->ssl, err);
17f0: 0a 0a 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 ....dprintf("Got
1800: 20 65 72 72 6f 72 3a 20 25 69 20 28 72 63 20 3d error: %i (rc =
1810: 20 25 69 29 22 2c 20 65 72 72 2c 20 72 63 29 3b %i)", err, rc);
1820: 0a 0a 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 74 ....bioShouldRet
1830: 72 79 20 3d 20 30 3b 0a 09 09 69 66 20 28 65 72 ry = 0;...if (er
1840: 72 20 3c 3d 20 30 29 20 7b 0a 09 09 09 69 66 20 r <= 0) {....if
1850: 28 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 (rc == SSL_ERROR
1860: 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 20 7c 7c _WANT_CONNECT ||
1870: 20 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 rc == SSL_ERROR
1880: 5f 57 41 4e 54 5f 41 43 43 45 50 54 20 7c 7c 20 _WANT_ACCEPT ||
1890: 72 63 20 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f rc == SSL_ERROR_
18a0: 57 41 4e 54 5f 52 45 41 44 20 7c 7c 20 72 63 20 WANT_READ || rc
18b0: 3d 3d 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 4e == SSL_ERROR_WAN
18c0: 54 5f 57 52 49 54 45 29 20 7b 0a 09 09 09 09 62 T_WRITE) {.....b
18d0: 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 ioShouldRetry =
18e0: 31 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 20 1;....} else if
18f0: 28 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 (BIO_should_retr
1900: 79 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 y(statePtr->bio)
1910: 29 20 7b 0a 09 09 09 09 62 69 6f 53 68 6f 75 6c ) {.....bioShoul
1920: 64 52 65 74 72 79 20 3d 20 31 3b 0a 09 09 09 7d dRetry = 1;....}
1930: 20 65 6c 73 65 20 69 66 20 28 72 63 20 3d 3d 20 else if (rc ==
1940: 53 53 4c 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c SSL_ERROR_SYSCAL
1950: 4c 20 26 26 20 54 63 6c 5f 47 65 74 45 72 72 6e L && Tcl_GetErrn
1960: 6f 28 29 20 3d 3d 20 45 41 47 41 49 4e 29 20 7b o() == EAGAIN) {
1970: 0a 09 09 09 09 62 69 6f 53 68 6f 75 6c 64 52 65 .....bioShouldRe
1980: 74 72 79 20 3d 20 31 3b 0a 09 09 09 7d 0a 09 09 try = 1;....}...
1990: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 69 66 20 28 } else {....if (
19a0: 21 53 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e !SSL_is_init_fin
19b0: 69 73 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e ished(statePtr->
19c0: 73 73 6c 29 29 20 7b 0a 09 09 09 09 62 69 6f 53 ssl)) {.....bioS
19d0: 68 6f 75 6c 64 52 65 74 72 79 20 3d 20 31 3b 0a houldRetry = 1;.
19e0: 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 20 28 ...}...}....if (
19f0: 62 69 6f 53 68 6f 75 6c 64 52 65 74 72 79 29 20 bioShouldRetry)
1a00: 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 54 68 {....dprintf("Th
1a10: 65 20 49 2f 4f 20 64 69 64 20 6e 6f 74 20 63 6f e I/O did not co
1a20: 6d 70 6c 65 74 65 20 2d 2d 20 62 75 74 20 77 65 mplete -- but we
1a30: 20 73 68 6f 75 6c 64 20 74 72 79 20 69 74 20 61 should try it a
1a40: 67 61 69 6e 22 29 3b 0a 0a 09 09 09 69 66 20 28 gain");.....if (
1a50: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
1a60: 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 & TLS_TCL_ASYNC)
1a70: 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 {.....dprintf("
1a80: 52 65 74 75 72 6e 69 6e 67 20 45 41 47 41 49 4e Returning EAGAIN
1a90: 20 73 6f 20 74 68 61 74 20 69 74 20 63 61 6e 20 so that it can
1aa0: 62 65 20 72 65 74 72 69 65 64 20 6c 61 74 65 72 be retried later
1ab0: 22 29 3b 0a 0a 09 09 09 09 2a 65 72 72 6f 72 43 ");......*errorC
1ac0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
1ad0: 0a 0a 09 09 09 09 72 65 74 75 72 6e 28 2d 31 29 ......return(-1)
1ae0: 3b 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 ;....} else {...
1af0: 09 09 64 70 72 69 6e 74 66 28 22 44 6f 69 6e 67 ..dprintf("Doing
1b00: 20 73 6f 20 6e 6f 77 22 29 3b 0a 0a 09 09 09 09 so now");......
1b10: 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 09 7d 0a 09 continue;....}..
1b20: 09 7d 0a 0a 09 09 64 70 72 69 6e 74 66 28 22 57 .}....dprintf("W
1b30: 65 20 68 61 76 65 20 65 69 74 68 65 72 20 63 6f e have either co
1b40: 6d 70 6c 65 74 65 6c 79 20 65 73 74 61 62 6c 69 mpletely establi
1b50: 73 68 65 64 20 74 68 65 20 73 65 73 73 69 6f 6e shed the session
1b60: 20 6f 72 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 or completely f
1b70: 61 69 6c 65 64 20 69 74 20 2d 2d 20 74 68 65 72 ailed it -- ther
1b80: 65 20 69 73 20 6e 6f 20 6d 6f 72 65 20 6e 65 65 e is no more nee
1b90: 64 20 74 6f 20 65 76 65 72 20 72 65 74 72 79 20 d to ever retry
1ba0: 69 74 20 74 68 6f 75 67 68 22 29 3b 0a 09 09 62 it though");...b
1bb0: 72 65 61 6b 3b 0a 09 7d 0a 0a 0a 09 2a 65 72 72 reak;..}....*err
1bc0: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 orCodePtr = EINV
1bd0: 41 4c 3b 0a 0a 09 73 77 69 74 63 68 20 28 72 63 AL;...switch (rc
1be0: 29 20 7b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 ) {...case SSL_E
1bf0: 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 09 09 2f 2a RROR_NONE:..../*
1c00: 20 54 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 The connection
1c10: 69 73 20 75 70 2c 20 77 65 20 61 72 65 20 64 6f is up, we are do
1c20: 6e 65 20 68 65 72 65 20 2a 2f 0a 09 09 09 64 70 ne here */....dp
1c30: 72 69 6e 74 66 28 22 54 68 65 20 63 6f 6e 6e 65 rintf("The conne
1c40: 63 74 69 6f 6e 20 69 73 20 75 70 22 29 3b 0a 09 ction is up");..
1c50: 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 ..break;...case
1c60: 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f 5f 52 SSL_ERROR_ZERO_R
1c70: 45 54 55 52 4e 3a 0a 09 09 09 64 70 72 69 6e 74 ETURN:....dprint
1c80: 66 28 22 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 f("SSL_ERROR_ZER
1c90: 4f 5f 52 45 54 55 52 4e 3a 20 43 6f 6e 6e 65 63 O_RETURN: Connec
1ca0: 74 20 72 65 74 75 72 6e 65 64 20 61 6e 20 69 6e t returned an in
1cb0: 76 61 6c 69 64 20 76 61 6c 75 65 2e 2e 2e 22 29 valid value...")
1cc0: 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a ....return(-1);.
1cd0: 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
1ce0: 5f 53 59 53 43 41 4c 4c 3a 0a 09 09 09 62 61 63 _SYSCALL:....bac
1cf0: 6b 69 6e 67 45 72 72 6f 72 20 3d 20 45 52 52 5f kingError = ERR_
1d00: 67 65 74 5f 65 72 72 6f 72 28 29 3b 0a 0a 09 09 get_error();....
1d10: 09 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f .if (backingErro
1d20: 72 20 3d 3d 20 30 20 26 26 20 65 72 72 20 3d 3d r == 0 && err ==
1d30: 20 30 29 20 7b 0a 09 09 09 09 64 70 72 69 6e 74 0) {.....dprint
1d40: 66 28 22 45 4f 46 20 72 65 61 63 68 65 64 22 29 f("EOF reached")
1d50: 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 .....*errorCodeP
1d60: 74 72 20 3d 20 45 43 4f 4e 4e 52 45 53 45 54 3b tr = ECONNRESET;
1d70: 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 20 28 62 ....} else if (b
1d80: 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d 20 30 ackingError == 0
1d90: 20 26 26 20 65 72 72 20 3d 3d 20 2d 31 29 20 7b && err == -1) {
1da0: 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f .....dprintf("I/
1db0: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 20 O error occured
1dc0: 28 65 72 72 6e 6f 20 3d 20 25 6c 75 29 22 2c 20 (errno = %lu)",
1dd0: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 (unsigned long)
1de0: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 3b Tcl_GetErrno());
1df0: 0a 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 .....*errorCodeP
1e00: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
1e10: 6f 28 29 3b 0a 09 09 09 09 69 66 20 28 2a 65 72 o();.....if (*er
1e20: 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 rorCodePtr == EC
1e30: 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 09 09 ONNRESET) {.....
1e40: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
1e50: 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 ECONNABORTED;..
1e60: 09 09 09 7d 0a 09 09 09 7d 20 65 6c 73 65 20 7b ...}....} else {
1e70: 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f .....dprintf("I/
1e80: 4f 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 20 O error occured
1e90: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 (backingError =
1ea0: 25 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 %lu)", backingEr
1eb0: 72 6f 72 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 ror);.....*error
1ec0: 43 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69 6e CodePtr = backin
1ed0: 67 45 72 72 6f 72 3b 0a 09 09 09 09 69 66 20 28 gError;.....if (
1ee0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 3d *errorCodePtr ==
1ef0: 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a 09 ECONNRESET) {..
1f00: 09 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
1f10: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
1f20: 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 ;.....}....}....
1f30: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
1f40: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 |= TLS_TCL_HAND
1f50: 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b 0a 0a 09 SHAKE_FAILED;...
1f60: 09 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 09 ..return(-1);...
1f70: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 53 case SSL_ERROR_S
1f80: 53 4c 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 SL:....dprintf("
1f90: 47 6f 74 20 70 65 72 6d 61 6e 65 6e 74 20 66 61 Got permanent fa
1fa0: 74 61 6c 20 53 53 4c 20 65 72 72 6f 72 2c 20 61 tal SSL error, a
1fb0: 62 6f 72 74 69 6e 67 20 69 6d 6d 65 64 69 61 74 borting immediat
1fc0: 65 6c 79 22 29 3b 0a 09 09 09 54 6c 73 5f 45 72 ely");....Tls_Er
1fd0: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 28 63 ror(statePtr, (c
1fe0: 68 61 72 20 2a 29 45 52 52 5f 72 65 61 73 6f 6e har *)ERR_reason
1ff0: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 _error_string(ER
2000: 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 29 29 3b R_get_error()));
2010: 0a 09 09 09 73 74 61 74 65 50 74 72 2d 3e 66 6c ....statePtr->fl
2020: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 48 ags |= TLS_TCL_H
2030: 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 3b ANDSHAKE_FAILED;
2040: 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
2050: 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 r = ECONNABORTED
2060: 3b 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 3b ;....return(-1);
2070: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
2080: 52 5f 57 41 4e 54 5f 43 4f 4e 4e 45 43 54 3a 0a R_WANT_CONNECT:.
2090: 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 ..case SSL_ERROR
20a0: 5f 57 41 4e 54 5f 41 43 43 45 50 54 3a 0a 09 09 _WANT_ACCEPT:...
20b0: 63 61 73 65 20 53 53 4c 5f 45 52 52 4f 52 5f 57 case SSL_ERROR_W
20c0: 41 4e 54 5f 58 35 30 39 5f 4c 4f 4f 4b 55 50 3a ANT_X509_LOOKUP:
20d0: 0a 09 09 64 65 66 61 75 6c 74 3a 0a 09 09 09 64 ...default:....d
20e0: 70 72 69 6e 74 66 28 22 57 65 20 67 6f 74 20 61 printf("We got a
20f0: 20 63 6f 6e 66 75 73 69 6e 67 20 72 65 70 6c 79 confusing reply
2100: 3a 20 25 69 22 2c 20 72 63 29 3b 0a 09 09 09 2a : %i", rc);....*
2110: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 errorCodePtr = T
2120: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 cl_GetErrno();..
2130: 09 09 64 70 72 69 6e 74 66 28 22 45 52 52 28 25 ..dprintf("ERR(%
2140: 64 2c 20 25 64 29 20 22 2c 20 72 63 2c 20 2a 65 d, %d) ", rc, *e
2150: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 09 rrorCodePtr);...
2160: 09 72 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a .return(-1);..}.
2170: 0a 23 69 66 20 30 0a 09 69 66 20 28 73 74 61 74 .#if 0..if (stat
2180: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
2190: 53 5f 54 43 4c 5f 53 45 52 56 45 52 29 20 7b 0a S_TCL_SERVER) {.
21a0: 09 09 64 70 72 69 6e 74 66 28 22 54 68 69 73 20 ..dprintf("This
21b0: 69 73 20 61 6e 20 54 4c 53 20 73 65 72 76 65 72 is an TLS server
21c0: 2c 20 63 68 65 63 6b 69 6e 67 20 74 68 65 20 63 , checking the c
21d0: 65 72 74 69 66 69 63 61 74 65 20 66 6f 72 20 74 ertificate for t
21e0: 68 65 20 70 65 65 72 22 29 3b 0a 0a 09 09 65 72 he peer");....er
21f0: 72 20 3d 20 53 53 4c 5f 67 65 74 5f 76 65 72 69 r = SSL_get_veri
2200: 66 79 5f 72 65 73 75 6c 74 28 73 74 61 74 65 50 fy_result(stateP
2210: 74 72 2d 3e 73 73 6c 29 3b 0a 09 09 69 66 20 28 tr->ssl);...if (
2220: 65 72 72 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b err != X509_V_OK
2230: 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 ) {....dprintf("
2240: 49 6e 76 61 6c 69 64 20 63 65 72 74 69 66 69 63 Invalid certific
2250: 61 74 65 2c 20 72 65 74 75 72 6e 69 6e 67 20 69 ate, returning i
2260: 6e 20 66 61 69 6c 75 72 65 22 29 3b 0a 0a 09 09 n failure");....
2270: 09 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 .Tls_Error(state
2280: 50 74 72 2c 20 28 63 68 61 72 20 2a 29 58 35 30 Ptr, (char *)X50
2290: 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 9_verify_cert_er
22a0: 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 29 ror_string(err))
22b0: 3b 0a 09 09 09 73 74 61 74 65 50 74 72 2d 3e 66 ;....statePtr->f
22c0: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
22d0: 48 41 4e 44 53 48 41 4b 45 5f 46 41 49 4c 45 44 HANDSHAKE_FAILED
22e0: 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 ;....*errorCodeP
22f0: 74 72 20 3d 20 45 43 4f 4e 4e 41 42 4f 52 54 45 tr = ECONNABORTE
2300: 44 3b 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 D;....return(-1)
2310: 3b 0a 09 09 7d 0a 09 7d 0a 23 65 6e 64 69 66 0a ;...}..}.#endif.
2320: 0a 09 64 70 72 69 6e 74 66 28 22 52 65 6d 6f 76 ..dprintf("Remov
2330: 69 6e 67 20 74 68 65 20 5c 22 54 4c 53 5f 54 43 ing the \"TLS_TC
2340: 4c 5f 49 4e 49 54 5c 22 20 66 6c 61 67 20 73 69 L_INIT\" flag si
2350: 6e 63 65 20 77 65 20 68 61 76 65 20 63 6f 6d 70 nce we have comp
2360: 6c 65 74 65 64 20 74 68 65 20 68 61 6e 64 73 68 leted the handsh
2370: 61 6b 65 22 29 3b 0a 09 73 74 61 74 65 50 74 72 ake");..statePtr
2380: 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 54 4c 53 5f ->flags &= ~TLS_
2390: 54 43 4c 5f 49 4e 49 54 3b 0a 0a 09 64 70 72 69 TCL_INIT;...dpri
23a0: 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 69 ntf("Returning i
23b0: 6e 20 73 75 63 63 65 73 73 22 29 3b 0a 09 2a 65 n success");..*e
23c0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b rrorCodePtr = 0;
23d0: 0a 0a 09 72 65 74 75 72 6e 28 30 29 3b 0a 7d 0a ...return(0);.}.
23e0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
2430: 54 6c 73 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a TlsInputProc --.
2440: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
2450: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
2460: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
2470: 4f 20 6c 65 76 65 6c 0a 20 2a 20 20 20 20 20 20 O level. *
2480: 20 74 6f 20 72 65 61 64 20 69 6e 70 75 74 20 66 to read input f
2490: 72 6f 6d 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 rom a SSL socket
24a0: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 2e 0a based channel..
24b0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
24c0: 2a 09 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 *.The number of
24d0: 62 79 74 65 73 20 72 65 61 64 20 69 73 20 72 65 bytes read is re
24e0: 74 75 72 6e 65 64 20 6f 72 20 2d 31 20 6f 6e 20 turned or -1 on
24f0: 65 72 72 6f 72 2e 20 41 6e 20 6f 75 74 70 75 74 error. An output
2500: 0a 20 2a 09 61 72 67 75 6d 65 6e 74 20 63 6f 6e . *.argument con
2510: 74 61 69 6e 73 20 74 68 65 20 50 4f 53 49 58 20 tains the POSIX
2520: 65 72 72 6f 72 20 63 6f 64 65 20 6f 6e 20 65 72 error code on er
2530: 72 6f 72 2c 20 6f 72 20 7a 65 72 6f 20 69 66 20 ror, or zero if
2540: 6e 6f 0a 20 2a 09 65 72 72 6f 72 20 6f 63 63 75 no. *.error occu
2550: 72 72 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 rred.. *. * Side
2560: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 61 effects:. *.Rea
2570: 64 73 20 69 6e 70 75 74 20 66 72 6f 6d 20 74 68 ds input from th
2580: 65 20 69 6e 70 75 74 20 64 65 76 69 63 65 20 6f e input device o
2590: 66 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 f the channel..
25a0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
25b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
25f0: 74 69 63 20 69 6e 74 20 54 6c 73 49 6e 70 75 74 tic int TlsInput
2600: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
2610: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 63 68 instanceData, ch
2620: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 62 75 66 ar *buf, int buf
2630: 53 69 7a 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 Size, int *error
2640: 43 6f 64 65 50 74 72 29 20 7b 0a 09 75 6e 73 69 CodePtr) {..unsi
2650: 67 6e 65 64 20 6c 6f 6e 67 20 62 61 63 6b 69 6e gned long backin
2660: 67 45 72 72 6f 72 3b 0a 09 53 74 61 74 65 20 2a gError;..State *
2670: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
2680: 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 e *) instanceDat
2690: 61 3b 0a 09 69 6e 74 20 62 79 74 65 73 52 65 61 a;..int bytesRea
26a0: 64 3b 0a 09 69 6e 74 20 74 6c 73 43 6f 6e 6e 65 d;..int tlsConne
26b0: 63 74 3b 0a 09 69 6e 74 20 65 72 72 3b 0a 0a 09 ct;..int err;...
26c0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
26d0: 30 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 42 49 0;...dprintf("BI
26e0: 4f 5f 72 65 61 64 28 25 64 29 22 2c 20 62 75 66 O_read(%d)", buf
26f0: 53 69 7a 65 29 3b 0a 0a 09 69 66 20 28 73 74 61 Size);...if (sta
2700: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
2710: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 LS_TCL_CALLBACK)
2720: 20 7b 0a 09 09 2f 2a 20 64 6f 6e 27 74 20 70 72 {.../* don't pr
2730: 6f 63 65 73 73 20 61 6e 79 20 62 79 74 65 73 20 ocess any bytes
2740: 77 68 69 6c 65 20 76 65 72 69 66 79 20 63 61 6c while verify cal
2750: 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 6e 67 lback is running
2760: 20 2a 2f 0a 09 09 64 70 72 69 6e 74 66 28 22 43 */...dprintf("C
2770: 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e 69 allback is runni
2780: 6e 67 2c 20 72 65 61 64 69 6e 67 20 30 20 62 79 ng, reading 0 by
2790: 74 65 73 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 tes");...return(
27a0: 30 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 0);..}...dprintf
27b0: 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 ("Calling Tls_Wa
27c0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a itForConnect");.
27d0: 09 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 54 6c .tlsConnect = Tl
27e0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
27f0: 28 73 74 61 74 65 50 74 72 2c 20 65 72 72 6f 72 (statePtr, error
2800: 43 6f 64 65 50 74 72 2c 20 30 29 3b 0a 09 69 66 CodePtr, 0);..if
2810: 20 28 74 6c 73 43 6f 6e 6e 65 63 74 20 3c 20 30 (tlsConnect < 0
2820: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 47 ) {...dprintf("G
2830: 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 61 69 74 ot an error wait
2840: 69 6e 67 20 74 6f 20 63 6f 6e 6e 65 63 74 20 28 ing to connect (
2850: 74 6c 73 43 6f 6e 6e 65 63 74 20 3d 20 25 69 2c tlsConnect = %i,
2860: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
2870: 20 25 69 29 22 2c 20 74 6c 73 43 6f 6e 6e 65 63 %i)", tlsConnec
2880: 74 2c 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 t, *errorCodePtr
2890: 29 3b 0a 0a 09 09 62 79 74 65 73 52 65 61 64 20 );....bytesRead
28a0: 3d 20 2d 31 3b 0a 09 09 69 66 20 28 2a 65 72 72 = -1;...if (*err
28b0: 6f 72 43 6f 64 65 50 74 72 20 3d 3d 20 45 43 4f orCodePtr == ECO
28c0: 4e 4e 52 45 53 45 54 29 20 7b 0a 09 09 09 64 70 NNRESET) {....dp
28d0: 72 69 6e 74 66 28 22 47 6f 74 20 63 6f 6e 6e 65 rintf("Got conne
28e0: 63 74 69 6f 6e 20 72 65 73 65 74 22 29 3b 0a 09 ction reset");..
28f0: 09 09 2f 2a 20 53 6f 66 74 20 45 4f 46 20 2a 2f ../* Soft EOF */
2900: 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 ....*errorCodePt
2910: 72 20 3d 20 30 3b 0a 09 09 09 62 79 74 65 73 52 r = 0;....bytesR
2920: 65 61 64 20 3d 20 30 3b 0a 09 09 7d 0a 0a 09 09 ead = 0;...}....
2930: 72 65 74 75 72 6e 28 62 79 74 65 73 52 65 61 64 return(bytesRead
2940: 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 57 );..}.../*.. * W
2950: 65 20 6e 65 65 64 20 74 6f 20 63 6c 65 61 72 20 e need to clear
2960: 74 68 65 20 53 53 4c 20 65 72 72 6f 72 20 73 74 the SSL error st
2970: 61 63 6b 20 6e 6f 77 20 62 65 63 61 75 73 65 20 ack now because
2980: 77 65 20 73 6f 6d 65 74 69 6d 65 73 20 72 65 61 we sometimes rea
2990: 63 68 0a 09 20 2a 20 74 68 69 73 20 66 75 6e 63 ch.. * this func
29a0: 74 69 6f 6e 20 77 69 74 68 20 6c 65 66 74 6f 76 tion with leftov
29b0: 65 72 20 65 72 72 6f 72 73 20 69 6e 20 74 68 65 er errors in the
29c0: 20 73 74 61 63 6b 2e 20 20 49 66 20 42 49 4f 5f stack. If BIO_
29d0: 72 65 61 64 0a 09 20 2a 20 72 65 74 75 72 6e 73 read.. * returns
29e0: 20 2d 31 20 61 6e 64 20 69 6e 74 65 6e 64 73 20 -1 and intends
29f0: 45 41 47 41 49 4e 2c 20 74 68 65 72 65 20 69 73 EAGAIN, there is
2a00: 20 61 20 6c 65 66 74 6f 76 65 72 20 65 72 72 6f a leftover erro
2a10: 72 2c 20 69 74 20 77 69 6c 6c 20 62 65 0a 09 20 r, it will be..
2a20: 2a 20 6d 69 73 63 6f 6e 73 74 72 75 65 64 20 61 * misconstrued a
2a30: 73 20 61 6e 20 65 72 72 6f 72 2c 20 6e 6f 74 20 s an error, not
2a40: 45 41 47 41 49 4e 2e 0a 09 20 2a 0a 09 20 2a 20 EAGAIN... *.. *
2a50: 41 6c 74 65 72 6e 61 74 69 76 65 6c 79 2c 20 77 Alternatively, w
2a60: 65 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 68 61 e may want to ha
2a70: 6e 64 6c 65 20 74 68 65 20 3c 30 20 72 65 74 75 ndle the <0 retu
2a80: 72 6e 20 63 6f 64 65 73 20 66 72 6f 6d 0a 09 20 rn codes from..
2a90: 2a 20 42 49 4f 5f 72 65 61 64 20 73 70 65 63 69 * BIO_read speci
2aa0: 61 6c 6c 79 20 28 61 73 20 61 64 76 69 73 65 64 ally (as advised
2ab0: 20 69 6e 20 74 68 65 20 52 53 41 20 64 6f 63 73 in the RSA docs
2ac0: 29 2e 20 20 54 4c 53 27 73 20 6c 6f 77 65 72 20 ). TLS's lower
2ad0: 6c 65 76 65 6c 20 42 49 4f 0a 09 20 2a 20 66 75 level BIO.. * fu
2ae0: 6e 63 74 69 6f 6e 73 20 70 6c 61 79 20 77 69 74 nctions play wit
2af0: 68 20 74 68 65 20 72 65 74 72 79 20 66 6c 61 67 h the retry flag
2b00: 73 20 74 68 6f 75 67 68 2c 20 61 6e 64 20 74 68 s though, and th
2b10: 69 73 20 73 65 65 6d 73 20 74 6f 20 77 6f 72 6b is seems to work
2b20: 0a 09 20 2a 20 63 6f 72 72 65 63 74 6c 79 2e 20 .. * correctly.
2b30: 20 53 69 6d 69 6c 61 72 20 66 69 78 20 69 6e 20 Similar fix in
2b40: 54 6c 73 4f 75 74 70 75 74 50 72 6f 63 2e 20 2d TlsOutputProc. -
2b50: 20 68 6f 62 62 73 0a 09 20 2a 2f 0a 09 45 52 52 hobbs.. */..ERR
2b60: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
2b70: 09 62 79 74 65 73 52 65 61 64 20 3d 20 42 49 4f .bytesRead = BIO
2b80: 5f 72 65 61 64 28 73 74 61 74 65 50 74 72 2d 3e _read(statePtr->
2b90: 62 69 6f 2c 20 62 75 66 2c 20 62 75 66 53 69 7a bio, buf, bufSiz
2ba0: 65 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 42 49 e);..dprintf("BI
2bb0: 4f 5f 72 65 61 64 20 2d 3e 20 25 64 22 2c 20 62 O_read -> %d", b
2bc0: 79 74 65 73 52 65 61 64 29 3b 0a 0a 09 65 72 72 ytesRead);...err
2bd0: 20 3d 20 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 = SSL_get_error
2be0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
2bf0: 62 79 74 65 73 52 65 61 64 29 3b 0a 0a 23 69 66 bytesRead);..#if
2c00: 20 30 0a 09 69 66 20 28 62 79 74 65 73 52 65 61 0..if (bytesRea
2c10: 64 20 3c 3d 20 30 29 20 7b 0a 09 09 69 66 20 28 d <= 0) {...if (
2c20: 42 49 4f 5f 73 68 6f 75 6c 64 5f 72 65 74 72 79 BIO_should_retry
2c30: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
2c40: 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 49 {....dprintf("I
2c50: 2f 4f 20 66 61 69 6c 65 64 2c 20 77 69 6c 6c 20 /O failed, will
2c60: 72 65 74 72 79 20 62 61 73 65 64 20 6f 6e 20 45 retry based on E
2c70: 41 47 41 49 4e 22 29 3b 0a 09 09 09 2a 65 72 72 AGAIN");....*err
2c80: 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 47 41 orCodePtr = EAGA
2c90: 49 4e 3b 0a 09 09 7d 0a 09 7d 0a 23 65 6e 64 69 IN;...}..}.#endi
2ca0: 66 0a 0a 09 73 77 69 74 63 68 20 28 65 72 72 29 f...switch (err)
2cb0: 20 7b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 {...case SSL_ER
2cc0: 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 09 09 64 70 72 ROR_NONE:....dpr
2cd0: 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 62 intBuffer(buf, b
2ce0: 79 74 65 73 52 65 61 64 29 3b 0a 09 09 09 62 72 ytesRead);....br
2cf0: 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
2d00: 45 52 52 4f 52 5f 53 53 4c 3a 0a 09 09 09 64 70 ERROR_SSL:....dp
2d10: 72 69 6e 74 66 28 22 53 53 4c 20 6e 65 67 6f 74 rintf("SSL negot
2d20: 69 61 74 69 6f 6e 20 65 72 72 6f 72 2c 20 69 6e iation error, in
2d30: 64 69 63 61 74 69 6e 67 20 74 68 61 74 20 74 68 dicating that th
2d40: 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 68 61 73 e connection has
2d50: 20 62 65 65 6e 20 61 62 6f 72 74 65 64 22 29 3b been aborted");
2d60: 0a 0a 09 09 09 54 6c 73 5f 45 72 72 6f 72 28 73 .....Tls_Error(s
2d70: 74 61 74 65 50 74 72 2c 20 54 43 4c 54 4c 53 5f tatePtr, TCLTLS_
2d80: 53 53 4c 5f 45 52 52 4f 52 28 73 74 61 74 65 50 SSL_ERROR(stateP
2d90: 74 72 2d 3e 73 73 6c 2c 20 62 79 74 65 73 52 65 tr->ssl, bytesRe
2da0: 61 64 29 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 ad));....*errorC
2db0: 6f 64 65 50 74 72 20 3d 20 45 43 4f 4e 4e 41 42 odePtr = ECONNAB
2dc0: 4f 52 54 45 44 3b 0a 09 09 09 62 79 74 65 73 52 ORTED;....bytesR
2dd0: 65 61 64 20 3d 20 2d 31 3b 0a 0a 09 09 09 62 72 ead = -1;.....br
2de0: 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f eak;...case SSL_
2df0: 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a 09 ERROR_SYSCALL:..
2e00: 09 09 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d ..backingError =
2e10: 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 ERR_get_error()
2e20: 3b 0a 0a 09 09 09 69 66 20 28 62 61 63 6b 69 6e ;.....if (backin
2e30: 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 62 gError == 0 && b
2e40: 79 74 65 73 52 65 61 64 20 3d 3d 20 30 29 20 7b ytesRead == 0) {
2e50: 0a 09 09 09 09 64 70 72 69 6e 74 66 28 22 45 4f .....dprintf("EO
2e60: 46 20 72 65 61 63 68 65 64 22 29 0a 09 09 09 09 F reached").....
2e70: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2e80: 30 3b 0a 09 09 09 09 62 79 74 65 73 52 65 61 64 0;.....bytesRead
2e90: 20 3d 20 30 3b 0a 09 09 09 7d 20 65 6c 73 65 20 = 0;....} else
2ea0: 69 66 20 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 if (backingError
2eb0: 20 3d 3d 20 30 20 26 26 20 62 79 74 65 73 52 65 == 0 && bytesRe
2ec0: 61 64 20 3d 3d 20 2d 31 29 20 7b 0a 09 09 09 09 ad == -1) {.....
2ed0: 64 70 72 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 dprintf("I/O err
2ee0: 6f 72 20 6f 63 63 75 72 65 64 20 28 65 72 72 6e or occured (errn
2ef0: 6f 20 3d 20 25 6c 75 29 22 2c 20 28 75 6e 73 69 o = %lu)", (unsi
2f00: 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 gned long) Tcl_G
2f10: 65 74 45 72 72 6e 6f 28 29 29 3b 0a 09 09 09 09 etErrno());.....
2f20: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2f30: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a Tcl_GetErrno();.
2f40: 09 09 09 09 62 79 74 65 73 52 65 61 64 20 3d 20 ....bytesRead =
2f50: 2d 31 3b 0a 09 09 09 7d 20 65 6c 73 65 20 7b 0a -1;....} else {.
2f60: 09 09 09 09 64 70 72 69 6e 74 66 28 22 49 2f 4f ....dprintf("I/O
2f70: 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 20 28 error occured (
2f80: 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 20 25 backingError = %
2f90: 6c 75 29 22 2c 20 62 61 63 6b 69 6e 67 45 72 72 lu)", backingErr
2fa0: 6f 72 29 3b 0a 09 09 09 09 2a 65 72 72 6f 72 43 or);.....*errorC
2fb0: 6f 64 65 50 74 72 20 3d 20 62 61 63 6b 69 6e 67 odePtr = backing
2fc0: 45 72 72 6f 72 3b 0a 09 09 09 09 62 79 74 65 73 Error;.....bytes
2fd0: 52 65 61 64 20 3d 20 2d 31 3b 0a 09 09 09 7d 0a Read = -1;....}.
2fe0: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 ....break;...cas
2ff0: 65 20 53 53 4c 5f 45 52 52 4f 52 5f 5a 45 52 4f e SSL_ERROR_ZERO
3000: 5f 52 45 54 55 52 4e 3a 0a 09 09 09 64 70 72 69 _RETURN:....dpri
3010: 6e 74 66 28 22 47 6f 74 20 53 53 4c 5f 45 52 52 ntf("Got SSL_ERR
3020: 4f 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 2c 20 OR_ZERO_RETURN,
3030: 74 68 69 73 20 6d 65 61 6e 73 20 61 6e 20 45 4f this means an EO
3040: 46 20 68 61 73 20 62 65 65 6e 20 72 65 61 63 68 F has been reach
3050: 65 64 22 29 3b 0a 09 09 09 62 79 74 65 73 52 65 ed");....bytesRe
3060: 61 64 20 3d 20 30 3b 0a 09 09 09 2a 65 72 72 6f ad = 0;....*erro
3070: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 rCodePtr = 0;...
3080: 09 62 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 .break;...case S
3090: 53 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 52 45 SL_ERROR_WANT_RE
30a0: 41 44 3a 0a 09 09 09 64 70 72 69 6e 74 66 28 22 AD:....dprintf("
30b0: 47 6f 74 20 53 53 4c 5f 45 52 52 4f 52 5f 57 41 Got SSL_ERROR_WA
30c0: 4e 54 5f 52 45 41 44 2c 20 6d 61 70 70 69 6e 67 NT_READ, mapping
30d0: 20 74 68 69 73 20 74 6f 20 45 41 47 41 49 4e 22 this to EAGAIN"
30e0: 29 3b 0a 09 09 09 62 79 74 65 73 52 65 61 64 20 );....bytesRead
30f0: 3d 20 2d 31 3b 0a 09 09 09 2a 65 72 72 6f 72 43 = -1;....*errorC
3100: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
3110: 0a 09 09 09 62 72 65 61 6b 3b 0a 09 09 64 65 66 ....break;...def
3120: 61 75 6c 74 3a 0a 09 09 09 64 70 72 69 6e 74 66 ault:....dprintf
3130: 28 22 55 6e 6b 6e 6f 77 6e 20 65 72 72 6f 72 20 ("Unknown error
3140: 28 65 72 72 20 3d 20 25 69 29 2c 20 6d 61 70 70 (err = %i), mapp
3150: 69 6e 67 20 74 6f 20 45 4f 46 22 2c 20 65 72 72 ing to EOF", err
3160: 29 3b 0a 09 09 09 2a 65 72 72 6f 72 43 6f 64 65 );....*errorCode
3170: 50 74 72 20 3d 20 30 3b 0a 09 09 09 62 79 74 65 Ptr = 0;....byte
3180: 73 52 65 61 64 20 3d 20 30 3b 0a 09 09 09 62 72 sRead = 0;....br
3190: 65 61 6b 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 eak;..}...dprint
31a0: 66 28 22 49 6e 70 75 74 28 25 64 29 20 2d 3e 20 f("Input(%d) ->
31b0: 25 64 20 5b 25 64 5d 22 2c 20 62 75 66 53 69 7a %d [%d]", bufSiz
31c0: 65 2c 20 62 79 74 65 73 52 65 61 64 2c 20 2a 65 e, bytesRead, *e
31d0: 72 72 6f 72 43 6f 64 65 50 74 72 29 3b 0a 09 72 rrorCodePtr);..r
31e0: 65 74 75 72 6e 28 62 79 74 65 73 52 65 61 64 29 eturn(bytesRead)
31f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
3200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3240: 0a 20 2a 20 54 6c 73 4f 75 74 70 75 74 50 72 6f . * TlsOutputPro
3250: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 c --. *. *.This
3260: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
3270: 6f 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 oked by the gene
3280: 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a 20 2a 20 ric IO level. *
3290: 20 20 20 20 20 20 74 6f 20 77 72 69 74 65 20 6f to write o
32a0: 75 74 70 75 74 20 74 6f 20 61 20 53 53 4c 20 73 utput to a SSL s
32b0: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
32c0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
32d0: 74 73 3a 0a 20 2a 09 54 68 65 20 6e 75 6d 62 65 ts:. *.The numbe
32e0: 72 20 6f 66 20 62 79 74 65 73 20 77 72 69 74 74 r of bytes writt
32f0: 65 6e 20 69 73 20 72 65 74 75 72 6e 65 64 2e 20 en is returned.
3300: 41 6e 20 6f 75 74 70 75 74 20 61 72 67 75 6d 65 An output argume
3310: 6e 74 20 69 73 0a 20 2a 09 73 65 74 20 74 6f 20 nt is. *.set to
3320: 61 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f a POSIX error co
3330: 64 65 20 69 66 20 61 6e 20 65 72 72 6f 72 20 6f de if an error o
3340: 63 63 75 72 72 65 64 2c 20 6f 72 20 7a 65 72 6f ccurred, or zero
3350: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3360: 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 65 73 20 ects:. *.Writes
3370: 6f 75 74 70 75 74 20 6f 6e 20 74 68 65 20 6f 75 output on the ou
3380: 74 70 75 74 20 64 65 76 69 63 65 20 6f 66 20 74 tput device of t
3390: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
33a0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
33b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33e0: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
33f0: 20 69 6e 74 20 54 6c 73 4f 75 74 70 75 74 50 72 int TlsOutputPr
3400: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e oc(ClientData in
3410: 73 74 61 6e 63 65 44 61 74 61 2c 20 63 6f 6e 73 stanceData, cons
3420: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 t char *buf, int
3430: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
3440: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 09 rrorCodePtr) {..
3450: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 62 61 unsigned long ba
3460: 63 6b 69 6e 67 45 72 72 6f 72 3b 0a 09 53 74 61 ckingError;..Sta
3470: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
3480: 53 74 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 State *) instanc
3490: 65 44 61 74 61 3b 0a 09 69 6e 74 20 77 72 69 74 eData;..int writ
34a0: 74 65 6e 2c 20 65 72 72 3b 0a 09 69 6e 74 20 74 ten, err;..int t
34b0: 6c 73 43 6f 6e 6e 65 63 74 3b 0a 0a 09 2a 65 72 lsConnect;...*er
34c0: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
34d0: 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 77 ..dprintf("BIO_w
34e0: 72 69 74 65 28 25 70 2c 20 25 64 29 22 2c 20 28 rite(%p, %d)", (
34f0: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
3500: 2c 20 74 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 , toWrite);..dpr
3510: 69 6e 74 42 75 66 66 65 72 28 62 75 66 2c 20 74 intBuffer(buf, t
3520: 6f 57 72 69 74 65 29 3b 0a 0a 09 69 66 20 28 73 oWrite);...if (s
3530: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
3540: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
3550: 4b 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 K) {...dprintf("
3560: 44 6f 6e 27 74 20 70 72 6f 63 65 73 73 20 6f 75 Don't process ou
3570: 74 70 75 74 20 77 68 69 6c 65 20 63 61 6c 6c 62 tput while callb
3580: 61 63 6b 73 20 61 72 65 20 72 75 6e 6e 69 6e 67 acks are running
3590: 22 29 0a 09 09 77 72 69 74 74 65 6e 20 3d 20 2d ")...written = -
35a0: 31 3b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 1;...*errorCodeP
35b0: 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 72 tr = EAGAIN;...r
35c0: 65 74 75 72 6e 28 2d 31 29 3b 0a 09 7d 0a 0a 09 eturn(-1);..}...
35d0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 dprintf("Calling
35e0: 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e Tls_WaitForConn
35f0: 65 63 74 22 29 3b 0a 09 74 6c 73 43 6f 6e 6e 65 ect");..tlsConne
3600: 63 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 ct = Tls_WaitFor
3610: 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 Connect(statePtr
3620: 2c 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2c 20 , errorCodePtr,
3630: 31 29 3b 0a 09 69 66 20 28 74 6c 73 43 6f 6e 6e 1);..if (tlsConn
3640: 65 63 74 20 3c 20 30 29 20 7b 0a 09 09 64 70 72 ect < 0) {...dpr
3650: 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 intf("Got an err
3660: 6f 72 20 77 61 69 74 69 6e 67 20 74 6f 20 63 6f or waiting to co
3670: 6e 6e 65 63 74 20 28 74 6c 73 43 6f 6e 6e 65 63 nnect (tlsConnec
3680: 74 20 3d 20 25 69 2c 20 2a 65 72 72 6f 72 43 6f t = %i, *errorCo
3690: 64 65 50 74 72 20 3d 20 25 69 29 22 2c 20 74 6c dePtr = %i)", tl
36a0: 73 43 6f 6e 6e 65 63 74 2c 20 2a 65 72 72 6f 72 sConnect, *error
36b0: 43 6f 64 65 50 74 72 29 3b 0a 0a 09 09 77 72 69 CodePtr);....wri
36c0: 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 69 66 20 tten = -1;...if
36d0: 28 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d (*errorCodePtr =
36e0: 3d 20 45 43 4f 4e 4e 52 45 53 45 54 29 20 7b 0a = ECONNRESET) {.
36f0: 09 09 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 ...dprintf("Got
3700: 63 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 74 connection reset
3710: 22 29 3b 0a 09 09 09 2f 2a 20 53 6f 66 74 20 45 ");..../* Soft E
3720: 4f 46 20 2a 2f 0a 09 09 09 2a 65 72 72 6f 72 43 OF */....*errorC
3730: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 77 odePtr = 0;....w
3740: 72 69 74 74 65 6e 20 3d 20 30 3b 0a 09 09 7d 0a ritten = 0;...}.
3750: 0a 09 09 72 65 74 75 72 6e 28 77 72 69 74 74 65 ...return(writte
3760: 6e 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 74 6f 57 n);..}...if (toW
3770: 72 69 74 65 20 3d 3d 20 30 29 20 7b 0a 09 09 64 rite == 0) {...d
3780: 70 72 69 6e 74 66 28 22 7a 65 72 6f 2d 77 72 69 printf("zero-wri
3790: 74 65 22 29 3b 0a 09 09 65 72 72 20 3d 20 42 49 te");...err = BI
37a0: 4f 5f 66 6c 75 73 68 28 73 74 61 74 65 50 74 72 O_flush(statePtr
37b0: 2d 3e 62 69 6f 29 3b 0a 0a 09 09 69 66 20 28 65 ->bio);....if (e
37c0: 72 72 20 3c 3d 20 30 29 20 7b 0a 09 09 09 64 70 rr <= 0) {....dp
37d0: 72 69 6e 74 66 28 22 46 6c 75 73 68 69 6e 67 20 rintf("Flushing
37e0: 66 61 69 6c 65 64 22 29 3b 0a 0a 09 09 09 2a 65 failed");.....*e
37f0: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 49 rrorCodePtr = EI
3800: 4f 3b 0a 09 09 09 77 72 69 74 74 65 6e 20 3d 20 O;....written =
3810: 30 3b 0a 09 09 09 72 65 74 75 72 6e 28 2d 31 29 0;....return(-1)
3820: 3b 0a 09 09 7d 0a 0a 09 09 77 72 69 74 74 65 6e ;...}....written
3830: 20 3d 20 30 3b 0a 09 09 2a 65 72 72 6f 72 43 6f = 0;...*errorCo
3840: 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 72 65 74 dePtr = 0;...ret
3850: 75 72 6e 28 30 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a urn(0);..}.../*.
3860: 09 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 63 . * We need to c
3870: 6c 65 61 72 20 74 68 65 20 53 53 4c 20 65 72 72 lear the SSL err
3880: 6f 72 20 73 74 61 63 6b 20 6e 6f 77 20 62 65 63 or stack now bec
3890: 61 75 73 65 20 77 65 20 73 6f 6d 65 74 69 6d 65 ause we sometime
38a0: 73 20 72 65 61 63 68 0a 09 20 2a 20 74 68 69 73 s reach.. * this
38b0: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 6c function with l
38c0: 65 66 74 6f 76 65 72 20 65 72 72 6f 72 73 20 69 eftover errors i
38d0: 6e 20 74 68 65 20 73 74 61 63 6b 2e 20 20 49 66 n the stack. If
38e0: 20 42 49 4f 5f 77 72 69 74 65 0a 09 20 2a 20 72 BIO_write.. * r
38f0: 65 74 75 72 6e 73 20 2d 31 20 61 6e 64 20 69 6e eturns -1 and in
3900: 74 65 6e 64 73 20 45 41 47 41 49 4e 2c 20 74 68 tends EAGAIN, th
3910: 65 72 65 20 69 73 20 61 20 6c 65 66 74 6f 76 65 ere is a leftove
3920: 72 20 65 72 72 6f 72 2c 20 69 74 20 77 69 6c 6c r error, it will
3930: 20 62 65 0a 09 20 2a 20 6d 69 73 63 6f 6e 73 74 be.. * misconst
3940: 72 75 65 64 20 61 73 20 61 6e 20 65 72 72 6f 72 rued as an error
3950: 2c 20 6e 6f 74 20 45 41 47 41 49 4e 2e 0a 09 20 , not EAGAIN...
3960: 2a 0a 09 20 2a 20 41 6c 74 65 72 6e 61 74 69 76 *.. * Alternativ
3970: 65 6c 79 2c 20 77 65 20 6d 61 79 20 77 61 6e 74 ely, we may want
3980: 20 74 6f 20 68 61 6e 64 6c 65 20 74 68 65 20 3c to handle the <
3990: 30 20 72 65 74 75 72 6e 20 63 6f 64 65 73 20 66 0 return codes f
39a0: 72 6f 6d 0a 09 20 2a 20 42 49 4f 5f 77 72 69 74 rom.. * BIO_writ
39b0: 65 20 73 70 65 63 69 61 6c 6c 79 20 28 61 73 20 e specially (as
39c0: 61 64 76 69 73 65 64 20 69 6e 20 74 68 65 20 52 advised in the R
39d0: 53 41 20 64 6f 63 73 29 2e 20 20 54 4c 53 27 73 SA docs). TLS's
39e0: 20 6c 6f 77 65 72 20 6c 65 76 65 6c 0a 09 20 2a lower level.. *
39f0: 20 42 49 4f 20 66 75 6e 63 74 69 6f 6e 73 20 70 BIO functions p
3a00: 6c 61 79 20 77 69 74 68 20 74 68 65 20 72 65 74 lay with the ret
3a10: 72 79 20 66 6c 61 67 73 20 74 68 6f 75 67 68 2c ry flags though,
3a20: 20 61 6e 64 20 74 68 69 73 20 73 65 65 6d 73 20 and this seems
3a30: 74 6f 0a 09 20 2a 20 77 6f 72 6b 20 63 6f 72 72 to.. * work corr
3a40: 65 63 74 6c 79 2e 20 20 53 69 6d 69 6c 61 72 20 ectly. Similar
3a50: 66 69 78 20 69 6e 20 54 6c 73 49 6e 70 75 74 50 fix in TlsInputP
3a60: 72 6f 63 2e 20 2d 20 68 6f 62 62 73 0a 09 20 2a roc. - hobbs.. *
3a70: 2f 0a 09 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 /..ERR_clear_err
3a80: 6f 72 28 29 3b 0a 09 77 72 69 74 74 65 6e 20 3d or();..written =
3a90: 20 42 49 4f 5f 77 72 69 74 65 28 73 74 61 74 65 BIO_write(state
3aa0: 50 74 72 2d 3e 62 69 6f 2c 20 62 75 66 2c 20 74 Ptr->bio, buf, t
3ab0: 6f 57 72 69 74 65 29 3b 0a 09 64 70 72 69 6e 74 oWrite);..dprint
3ac0: 66 28 22 42 49 4f 5f 77 72 69 74 65 28 25 70 2c f("BIO_write(%p,
3ad0: 20 25 64 29 20 2d 3e 20 5b 25 64 5d 22 2c 20 28 %d) -> [%d]", (
3ae0: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
3af0: 2c 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 , toWrite, writt
3b00: 65 6e 29 3b 0a 0a 09 65 72 72 20 3d 20 53 53 4c en);...err = SSL
3b10: 5f 67 65 74 5f 65 72 72 6f 72 28 73 74 61 74 65 _get_error(state
3b20: 50 74 72 2d 3e 73 73 6c 2c 20 77 72 69 74 74 65 Ptr->ssl, writte
3b30: 6e 29 3b 0a 09 73 77 69 74 63 68 20 28 65 72 72 n);..switch (err
3b40: 29 20 7b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 ) {...case SSL_E
3b50: 52 52 4f 52 5f 4e 4f 4e 45 3a 0a 09 09 09 69 66 RROR_NONE:....if
3b60: 20 28 77 72 69 74 74 65 6e 20 3c 20 30 29 20 7b (written < 0) {
3b70: 0a 09 09 09 09 77 72 69 74 74 65 6e 20 3d 20 30 .....written = 0
3b80: 3b 0a 09 09 09 7d 0a 09 09 09 62 72 65 61 6b 3b ;....}....break;
3b90: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
3ba0: 52 5f 57 41 4e 54 5f 57 52 49 54 45 3a 0a 09 09 R_WANT_WRITE:...
3bb0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 53 53 .dprintf("Got SS
3bc0: 4c 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 57 52 49 L_ERROR_WANT_WRI
3bd0: 54 45 2c 20 6d 61 70 70 69 6e 67 20 69 74 20 74 TE, mapping it t
3be0: 6f 20 45 41 47 41 49 4e 22 29 3b 0a 09 09 09 2a o EAGAIN");....*
3bf0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
3c00: 41 47 41 49 4e 3b 0a 09 09 09 77 72 69 74 74 65 AGAIN;....writte
3c10: 6e 20 3d 20 2d 31 3b 0a 09 09 09 62 72 65 61 6b n = -1;....break
3c20: 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
3c30: 4f 52 5f 57 41 4e 54 5f 52 45 41 44 3a 0a 09 09 OR_WANT_READ:...
3c40: 09 64 70 72 69 6e 74 66 28 22 20 77 72 69 74 65 .dprintf(" write
3c50: 20 52 20 42 4c 4f 43 4b 22 29 3b 0a 09 09 09 62 R BLOCK");....b
3c60: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c reak;...case SSL
3c70: 5f 45 52 52 4f 52 5f 57 41 4e 54 5f 58 35 30 39 _ERROR_WANT_X509
3c80: 5f 4c 4f 4f 4b 55 50 3a 0a 09 09 09 64 70 72 69 _LOOKUP:....dpri
3c90: 6e 74 66 28 22 20 77 72 69 74 65 20 58 20 42 4c ntf(" write X BL
3ca0: 4f 43 4b 22 29 3b 0a 09 09 09 62 72 65 61 6b 3b OCK");....break;
3cb0: 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 4f ...case SSL_ERRO
3cc0: 52 5f 5a 45 52 4f 5f 52 45 54 55 52 4e 3a 0a 09 R_ZERO_RETURN:..
3cd0: 09 09 64 70 72 69 6e 74 66 28 22 20 63 6c 6f 73 ..dprintf(" clos
3ce0: 65 64 22 29 3b 0a 09 09 09 77 72 69 74 74 65 6e ed");....written
3cf0: 20 3d 20 30 3b 0a 09 09 09 2a 65 72 72 6f 72 43 = 0;....*errorC
3d00: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 09 09 09 62 odePtr = 0;....b
3d10: 72 65 61 6b 3b 0a 09 09 63 61 73 65 20 53 53 4c reak;...case SSL
3d20: 5f 45 52 52 4f 52 5f 53 59 53 43 41 4c 4c 3a 0a _ERROR_SYSCALL:.
3d30: 09 09 09 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 ...backingError
3d40: 3d 20 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 = ERR_get_error(
3d50: 29 3b 0a 0a 09 09 09 69 66 20 28 62 61 63 6b 69 );.....if (backi
3d60: 6e 67 45 72 72 6f 72 20 3d 3d 20 30 20 26 26 20 ngError == 0 &&
3d70: 77 72 69 74 74 65 6e 20 3d 3d 20 30 29 20 7b 0a written == 0) {.
3d80: 09 09 09 09 64 70 72 69 6e 74 66 28 22 45 4f 46 ....dprintf("EOF
3d90: 20 72 65 61 63 68 65 64 22 29 0a 09 09 09 09 2a reached").....*
3da0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
3db0: 3b 0a 09 09 09 09 77 72 69 74 74 65 6e 20 3d 20 ;.....written =
3dc0: 30 3b 0a 09 09 09 7d 20 65 6c 73 65 20 69 66 20 0;....} else if
3dd0: 28 62 61 63 6b 69 6e 67 45 72 72 6f 72 20 3d 3d (backingError ==
3de0: 20 30 20 26 26 20 77 72 69 74 74 65 6e 20 3d 3d 0 && written ==
3df0: 20 2d 31 29 20 7b 0a 09 09 09 09 64 70 72 69 6e -1) {.....dprin
3e00: 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 6f 63 tf("I/O error oc
3e10: 63 75 72 65 64 20 28 65 72 72 6e 6f 20 3d 20 25 cured (errno = %
3e20: 6c 75 29 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 lu)", (unsigned
3e30: 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 45 72 72 long) Tcl_GetErr
3e40: 6e 6f 28 29 29 3b 0a 09 09 09 09 2a 65 72 72 6f no());.....*erro
3e50: 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 rCodePtr = Tcl_G
3e60: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 09 09 77 etErrno();.....w
3e70: 72 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 09 ritten = -1;....
3e80: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 64 70 72 } else {.....dpr
3e90: 69 6e 74 66 28 22 49 2f 4f 20 65 72 72 6f 72 20 intf("I/O error
3ea0: 6f 63 63 75 72 65 64 20 28 62 61 63 6b 69 6e 67 occured (backing
3eb0: 45 72 72 6f 72 20 3d 20 25 6c 75 29 22 2c 20 62 Error = %lu)", b
3ec0: 61 63 6b 69 6e 67 45 72 72 6f 72 29 3b 0a 09 09 ackingError);...
3ed0: 09 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
3ee0: 3d 20 62 61 63 6b 69 6e 67 45 72 72 6f 72 3b 0a = backingError;.
3ef0: 09 09 09 09 77 72 69 74 74 65 6e 20 3d 20 2d 31 ....written = -1
3f00: 3b 0a 09 09 09 7d 0a 0a 09 09 09 62 72 65 61 6b ;....}.....break
3f10: 3b 0a 09 09 63 61 73 65 20 53 53 4c 5f 45 52 52 ;...case SSL_ERR
3f20: 4f 52 5f 53 53 4c 3a 0a 09 09 09 54 6c 73 5f 45 OR_SSL:....Tls_E
3f30: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 54 rror(statePtr, T
3f40: 43 4c 54 4c 53 5f 53 53 4c 5f 45 52 52 4f 52 28 CLTLS_SSL_ERROR(
3f50: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 77 statePtr->ssl, w
3f60: 72 69 74 74 65 6e 29 29 3b 0a 09 09 09 2a 65 72 ritten));....*er
3f70: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 43 4f rorCodePtr = ECO
3f80: 4e 4e 41 42 4f 52 54 45 44 3b 0a 09 09 09 77 72 NNABORTED;....wr
3f90: 69 74 74 65 6e 20 3d 20 2d 31 3b 0a 09 09 09 62 itten = -1;....b
3fa0: 72 65 61 6b 3b 0a 09 09 64 65 66 61 75 6c 74 3a reak;...default:
3fb0: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 20 75 6e ....dprintf(" un
3fc0: 6b 6e 6f 77 6e 20 65 72 72 3a 20 25 64 22 2c 20 known err: %d",
3fd0: 65 72 72 29 3b 0a 09 09 09 62 72 65 61 6b 3b 0a err);....break;.
3fe0: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 4f 75 .}...dprintf("Ou
3ff0: 74 70 75 74 28 25 64 29 20 2d 3e 20 25 64 22 2c tput(%d) -> %d",
4000: 20 74 6f 57 72 69 74 65 2c 20 77 72 69 74 74 65 toWrite, writte
4010: 6e 29 3b 0a 09 72 65 74 75 72 6e 28 77 72 69 74 n);..return(writ
4020: 74 65 6e 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d ten);.}../*. *--
4030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4070: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 4f 70 -. *. * TlsGetOp
4080: 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tionProc --. *.
4090: 2a 09 43 6f 6d 70 75 74 65 73 20 61 6e 20 6f 70 *.Computes an op
40a0: 74 69 6f 6e 20 76 61 6c 75 65 20 66 6f 72 20 61 tion value for a
40b0: 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 SSL socket base
40c0: 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 61 0a d channel, or a.
40d0: 20 2a 09 6c 69 73 74 20 6f 66 20 61 6c 6c 20 6f *.list of all o
40e0: 70 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 69 72 ptions and their
40f0: 20 76 61 6c 75 65 73 2e 0a 20 2a 0a 20 2a 20 52 values.. *. * R
4100: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
4110: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
4120: 2e 20 54 68 65 20 76 61 6c 75 65 20 6f 66 20 74 . The value of t
4130: 68 65 20 73 70 65 63 69 66 69 65 64 20 6f 70 74 he specified opt
4140: 69 6f 6e 20 6f 72 20 61 0a 20 2a 09 6c 69 73 74 ion or a. *.list
4150: 20 6f 66 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 of all options
4160: 61 6e 64 09 74 68 65 69 72 20 76 61 6c 75 65 73 and.their values
4170: 20 69 73 20 72 65 74 75 72 6e 65 64 20 69 6e 20 is returned in
4180: 74 68 65 0a 20 2a 09 73 75 70 70 6c 69 65 64 20 the. *.supplied
4190: 44 53 74 72 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 DString.. *. * S
41a0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
41b0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
41c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4200: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 54 6c */.static int.Tl
4210: 73 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 sGetOptionProc(C
4220: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
4230: 63 65 44 61 74 61 2c 09 2f 2a 20 53 6f 63 6b 65 ceData,./* Socke
4240: 74 20 73 74 61 74 65 2e 20 2a 2f 0a 09 54 63 6c t state. */..Tcl
4250: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4260: 09 09 2f 2a 20 46 6f 72 20 65 72 72 6f 72 73 20 ../* For errors
4270: 2d 20 63 61 6e 20 62 65 20 4e 55 4c 4c 2e 20 2a - can be NULL. *
4280: 2f 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f /..const char *o
4290: 70 74 69 6f 6e 4e 61 6d 65 2c 09 09 2f 2a 20 4e ptionName,../* N
42a0: 61 6d 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f ame of the optio
42b0: 6e 20 74 6f 0a 09 09 09 09 09 20 2a 20 72 65 74 n to...... * ret
42c0: 72 69 65 76 65 20 74 68 65 20 76 61 6c 75 65 20 rieve the value
42d0: 66 6f 72 2c 20 6f 72 0a 09 09 09 09 09 20 2a 20 for, or...... *
42e0: 4e 55 4c 4c 20 74 6f 20 67 65 74 20 61 6c 6c 20 NULL to get all
42f0: 6f 70 74 69 6f 6e 73 20 61 6e 64 0a 09 09 09 09 options and.....
4300: 09 20 2a 20 74 68 65 69 72 20 76 61 6c 75 65 73 . * their values
4310: 2e 20 2a 2f 0a 09 54 63 6c 5f 44 53 74 72 69 6e . */..Tcl_DStrin
4320: 67 20 2a 64 73 50 74 72 29 09 09 2f 2a 20 57 68 g *dsPtr)../* Wh
4330: 65 72 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 ere to store the
4340: 20 63 6f 6d 70 75 74 65 64 20 76 61 6c 75 65 0a computed value.
4350: 09 09 09 09 09 20 2a 20 69 6e 69 74 69 61 6c 69 ..... * initiali
4360: 7a 65 64 20 62 79 20 63 61 6c 6c 65 72 2e 20 2a zed by caller. *
4370: 2f 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 /.{. State *s
4380: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
4390: 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 *) instanceData
43a0: 3b 0a 0a 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;.. Tcl_Channe
43b0: 6c 20 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 l downChan = Tls
43c0: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
43d0: 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 Ptr, TLS_TCL_FAS
43e0: 54 50 41 54 48 29 3b 0a 20 20 20 54 63 6c 5f 44 TPATH);. Tcl_D
43f0: 72 69 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 riverGetOptionPr
4400: 6f 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f oc *getOptionPro
4410: 63 3b 0a 0a 20 20 20 20 67 65 74 4f 70 74 69 6f c;.. getOptio
4420: 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e nProc = Tcl_Chan
4430: 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 nelGetOptionProc
4440: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
4450: 79 70 65 28 64 6f 77 6e 43 68 61 6e 29 29 3b 0a ype(downChan));.
4460: 20 20 20 20 69 66 20 28 67 65 74 4f 70 74 69 6f if (getOptio
4470: 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b nProc != NULL) {
4480: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
4490: 28 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 (*getOptionProc)
44a0: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
44b0: 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f 77 6e nstanceData(down
44c0: 43 68 61 6e 29 2c 20 69 6e 74 65 72 70 2c 20 6f Chan), interp, o
44d0: 70 74 69 6f 6e 4e 61 6d 65 2c 20 64 73 50 74 72 ptionName, dsPtr
44e0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 );. } else if
44f0: 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 (optionName ==
4500: 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a (char*) NULL) {.
4510: 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 /*.
4520: 20 20 20 20 2a 20 52 65 71 75 65 73 74 20 69 73 * Request is
4530: 20 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f query for all o
4540: 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 ptions, this is
4550: 6f 6b 2e 0a 20 20 20 20 20 20 20 20 20 2a 2f 0a ok.. */.
4560: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
4570: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 20 20 TCL_OK;. }.
4580: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 52 65 71 75 /*. * Requ
4590: 65 73 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 est for a specif
45a0: 69 63 20 6f 70 74 69 6f 6e 20 68 61 73 20 74 6f ic option has to
45b0: 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e 27 74 20 fail, we don't
45c0: 68 61 76 65 20 61 6e 79 2e 0a 20 20 20 20 20 2a have any.. *
45d0: 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c /. return TCL
45e0: 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 20 2a _ERROR;.}../*. *
45f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4630: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 57 61 74 ---. *. * TlsWat
4640: 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 chProc --. *. *.
4650: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e Initialize the n
4660: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
4670: 20 54 63 6c 5f 46 69 6c 65 73 20 66 72 6f 6d 20 Tcl_Files from
4680: 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a this channel.. *
4690: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
46a0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 None.. *. * Side
46b0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
46c0: 73 20 75 70 20 74 68 65 20 6e 6f 74 69 66 69 65 s up the notifie
46d0: 72 20 73 6f 20 74 68 61 74 20 61 20 66 75 74 75 r so that a futu
46e0: 72 65 20 65 76 65 6e 74 20 6f 6e 20 74 68 65 20 re event on the
46f0: 63 68 61 6e 6e 65 6c 0a 20 2a 09 77 69 6c 6c 20 channel. *.will
4700: 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a be seen by Tcl..
4710: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
4720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4750: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
4760: 61 74 69 63 20 76 6f 69 64 0a 54 6c 73 57 61 74 atic void.TlsWat
4770: 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 chProc(ClientDat
4780: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 09 a instanceData,.
4790: 2f 2a 20 54 68 65 20 73 6f 63 6b 65 74 20 73 74 /* The socket st
47a0: 61 74 65 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 ate. */.
47b0: 20 20 20 20 20 69 6e 74 20 6d 61 73 6b 29 09 09 int mask)..
47c0: 09 2f 2a 20 45 76 65 6e 74 73 20 6f 66 20 69 6e ./* Events of in
47d0: 74 65 72 65 73 74 3b 20 61 6e 20 4f 52 2d 65 64 terest; an OR-ed
47e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
47f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4800: 20 20 20 20 20 20 20 20 20 20 2a 20 63 6f 6d 62 * comb
4810: 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 ination of TCL_R
4820: 45 41 44 41 42 4c 45 2c 0a 20 20 20 20 20 20 20 EADABLE,.
4830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4850: 20 20 2a 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 * TCL_WRITABLE
4860: 20 61 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 49 and TCL_EXCEPTI
4870: 4f 4e 2e 20 2a 2f 0a 7b 0a 20 20 20 20 54 63 6c ON. */.{. Tcl
4880: 5f 43 68 61 6e 6e 65 6c 20 20 20 20 20 64 6f 77 _Channel dow
4890: 6e 43 68 61 6e 3b 0a 20 20 20 20 53 74 61 74 65 nChan;. State
48a0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
48b0: 61 74 65 20 2a 29 20 69 6e 73 74 61 6e 63 65 44 ate *) instanceD
48c0: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ata;.. dprint
48d0: 66 28 22 54 6c 73 57 61 74 63 68 50 72 6f 63 28 f("TlsWatchProc(
48e0: 30 78 25 78 29 22 2c 20 6d 61 73 6b 29 3b 0a 0a 0x%x)", mask);..
48f0: 20 20 20 20 2f 2a 20 50 72 65 74 65 6e 64 20 74 /* Pretend t
4900: 6f 20 62 65 20 64 65 61 64 20 61 73 20 6c 6f 6e o be dead as lon
4910: 67 20 61 73 20 74 68 65 20 76 65 72 69 66 79 20 g as the verify
4920: 63 61 6c 6c 62 61 63 6b 20 69 73 20 72 75 6e 6e callback is runn
4930: 69 6e 67 2e 0a 20 20 20 20 20 2a 20 4f 74 68 65 ing.. * Othe
4940: 72 77 69 73 65 20 74 68 61 74 20 63 61 6c 6c 62 rwise that callb
4950: 61 63 6b 20 63 6f 75 6c 64 20 62 65 20 69 6e 76 ack could be inv
4960: 6f 6b 65 64 20 72 65 63 75 72 73 69 76 65 6c 79 oked recursively
4970: 2e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 . */. if (sta
4980: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 tePtr->flags & T
4990: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 LS_TCL_CALLBACK)
49a0: 20 7b 0a 20 20 20 20 20 20 20 20 64 70 72 69 6e {. dprin
49b0: 74 66 28 22 43 61 6c 6c 62 61 63 6b 20 69 73 20 tf("Callback is
49c0: 6f 6e 2d 67 6f 69 6e 67 2c 20 64 6f 69 6e 67 20 on-going, doing
49d0: 6e 6f 74 68 69 6e 67 22 29 3b 0a 20 20 20 20 20 nothing");.
49e0: 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d return;. }
49f0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 46 6c 61 67 .. dprintFlag
4a00: 73 28 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 s(statePtr);..
4a10: 20 20 64 6f 77 6e 43 68 61 6e 20 3d 20 54 6c 73 downChan = Tls
4a20: 5f 47 65 74 50 61 72 65 6e 74 28 73 74 61 74 65 _GetParent(state
4a30: 50 74 72 2c 20 54 4c 53 5f 54 43 4c 5f 46 41 53 Ptr, TLS_TCL_FAS
4a40: 54 50 41 54 48 29 3b 0a 0a 20 20 20 20 69 66 20 TPATH);.. if
4a50: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
4a60: 20 26 20 54 4c 53 5f 54 43 4c 5f 48 41 4e 44 53 & TLS_TCL_HANDS
4a70: 48 41 4b 45 5f 46 41 49 4c 45 44 29 20 7b 0a 20 HAKE_FAILED) {.
4a80: 20 20 20 20 20 20 20 64 70 72 69 6e 74 66 28 22 dprintf("
4a90: 41 73 6b 65 64 20 74 6f 20 77 61 74 63 68 20 61 Asked to watch a
4aa0: 20 73 6f 63 6b 65 74 20 77 69 74 68 20 61 20 66 socket with a f
4ab0: 61 69 6c 65 64 20 68 61 6e 64 73 68 61 6b 65 20 ailed handshake
4ac0: 2d 2d 20 6e 6f 74 68 69 6e 67 20 63 61 6e 20 68 -- nothing can h
4ad0: 61 70 70 65 6e 20 68 65 72 65 22 29 3b 0a 0a 09 appen here");...
4ae0: 64 70 72 69 6e 74 66 28 22 55 6e 72 65 67 69 73 dprintf("Unregis
4af0: 74 65 72 69 6e 67 20 69 6e 74 65 72 65 73 74 20 tering interest
4b00: 69 6e 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 in the lower cha
4b10: 6e 6e 65 6c 22 29 3b 0a 09 28 54 63 6c 5f 47 65 nnel");..(Tcl_Ge
4b20: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 64 6f 77 tChannelType(dow
4b30: 6e 43 68 61 6e 29 29 2d 3e 77 61 74 63 68 50 72 nChan))->watchPr
4b40: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
4b50: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 6f lInstanceData(do
4b60: 77 6e 43 68 61 6e 29 2c 20 30 29 3b 0a 0a 09 73 wnChan), 0);...s
4b70: 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 tatePtr->watchMa
4b80: 73 6b 20 3d 20 30 3b 0a 0a 20 20 20 20 20 20 20 sk = 0;..
4b90: 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a return;. }..
4ba0: 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 .statePtr->watch
4bb0: 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 09 2f Mask = mask;.../
4bc0: 2a 20 4e 6f 20 63 68 61 6e 6e 65 6c 20 68 61 6e * No channel han
4bd0: 64 6c 65 72 73 20 61 6e 79 20 6d 6f 72 65 2e 20 dlers any more.
4be0: 57 65 20 77 69 6c 6c 20 62 65 20 6e 6f 74 69 66 We will be notif
4bf0: 69 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c ied automaticall
4c00: 79 0a 09 20 2a 20 61 62 6f 75 74 20 65 76 65 6e y.. * about even
4c10: 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 ts on the channe
4c20: 6c 20 62 65 6c 6f 77 20 76 69 61 20 61 20 63 61 l below via a ca
4c30: 6c 6c 20 74 6f 20 6f 75 72 0a 09 20 2a 20 27 54 ll to our.. * 'T
4c40: 72 61 6e 73 66 6f 72 6d 4e 6f 74 69 66 79 50 72 ransformNotifyPr
4c50: 6f 63 27 2e 20 42 75 74 20 77 65 20 68 61 76 65 oc'. But we have
4c60: 20 74 6f 20 70 61 73 73 20 74 68 65 20 69 6e 74 to pass the int
4c70: 65 72 65 73 74 20 64 6f 77 6e 20 6e 6f 77 2e 0a erest down now..
4c80: 09 20 2a 20 57 65 20 61 72 65 20 61 6c 6c 6f 77 . * We are allow
4c90: 65 64 20 74 6f 20 61 64 64 20 61 64 64 69 74 69 ed to add additi
4ca0: 6f 6e 61 6c 20 27 69 6e 74 65 72 65 73 74 27 20 onal 'interest'
4cb0: 74 6f 20 74 68 65 20 6d 61 73 6b 20 69 66 20 77 to the mask if w
4cc0: 65 20 77 61 6e 74 0a 09 20 2a 20 74 6f 2e 20 42 e want.. * to. B
4cd0: 75 74 20 74 68 69 73 20 74 72 61 6e 73 66 6f 72 ut this transfor
4ce0: 6d 61 74 69 6f 6e 20 68 61 73 20 6e 6f 20 73 75 mation has no su
4cf0: 63 68 20 69 6e 74 65 72 65 73 74 2e 20 49 74 20 ch interest. It
4d00: 6a 75 73 74 20 70 61 73 73 65 73 0a 09 20 2a 20 just passes.. *
4d10: 74 68 65 20 72 65 71 75 65 73 74 20 64 6f 77 6e the request down
4d20: 2c 20 75 6e 63 68 61 6e 67 65 64 2e 0a 09 20 2a , unchanged... *
4d30: 2f 0a 0a 0a 20 20 20 20 20 20 20 20 64 70 72 69 /... dpri
4d40: 6e 74 66 28 22 52 65 67 69 73 74 65 72 69 6e 67 ntf("Registering
4d50: 20 6f 75 72 20 69 6e 74 65 72 65 73 74 20 69 6e our interest in
4d60: 20 74 68 65 20 6c 6f 77 65 72 20 63 68 61 6e 6e the lower chann
4d70: 65 6c 20 28 63 68 61 6e 3d 25 70 29 22 2c 20 28 el (chan=%p)", (
4d80: 76 6f 69 64 20 2a 29 20 64 6f 77 6e 43 68 61 6e void *) downChan
4d90: 29 3b 0a 09 28 54 63 6c 5f 47 65 74 43 68 61 6e );..(Tcl_GetChan
4da0: 6e 65 6c 54 79 70 65 28 64 6f 77 6e 43 68 61 6e nelType(downChan
4db0: 29 29 0a 09 20 20 20 20 2d 3e 77 61 74 63 68 50 )).. ->watchP
4dc0: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
4dd0: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 64 elInstanceData(d
4de0: 6f 77 6e 43 68 61 6e 29 2c 20 6d 61 73 6b 29 3b ownChan), mask);
4df0: 0a 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6e 61 67 65 .../*.. * Manage
4e00: 6d 65 6e 74 20 6f 66 20 74 68 65 20 69 6e 74 65 ment of the inte
4e10: 72 6e 61 6c 20 74 69 6d 65 72 2e 0a 09 20 2a 2f rnal timer... */
4e20: 0a 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d ...if (statePtr-
4e30: 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 >timer != (Tcl_T
4e40: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 imerToken) NULL)
4e50: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 64 {. d
4e60: 70 72 69 6e 74 66 28 22 41 20 74 69 6d 65 72 20 printf("A timer
4e70: 77 61 73 20 66 6f 75 6e 64 2c 20 64 65 6c 65 74 was found, delet
4e80: 69 6e 67 20 69 74 22 29 3b 0a 09 20 20 20 20 54 ing it");.. T
4e90: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 cl_DeleteTimerHa
4ea0: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e ndler(statePtr->
4eb0: 74 69 6d 65 72 29 3b 0a 09 20 20 20 20 73 74 61 timer);.. sta
4ec0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
4ed0: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
4ee0: 4e 55 4c 4c 3b 0a 09 7d 0a 0a 09 69 66 20 28 6d NULL;..}...if (m
4ef0: 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 ask & TCL_READAB
4f00: 4c 45 29 20 7b 0a 09 09 69 66 20 28 54 63 6c 5f LE) {...if (Tcl_
4f10: 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 InputBuffered(st
4f20: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 atePtr->self) >
4f30: 30 20 7c 7c 20 42 49 4f 5f 63 74 72 6c 5f 70 65 0 || BIO_ctrl_pe
4f40: 6e 64 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e nding(statePtr->
4f50: 62 69 6f 29 20 3e 20 30 29 20 7b 0a 09 09 09 2f bio) > 0) {..../
4f60: 2a 0a 09 09 09 20 2a 20 54 68 65 72 65 20 69 73 *.... * There is
4f70: 20 69 6e 74 65 72 65 73 74 20 69 6e 20 72 65 61 interest in rea
4f80: 64 61 62 6c 65 20 65 76 65 6e 74 73 20 61 6e 64 dable events and
4f90: 20 77 65 20 61 63 74 75 61 6c 6c 79 20 68 61 76 we actually hav
4fa0: 65 0a 09 09 09 20 2a 20 64 61 74 61 20 77 61 69 e.... * data wai
4fb0: 74 69 6e 67 2c 20 73 6f 20 67 65 6e 65 72 61 74 ting, so generat
4fc0: 65 20 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 e a timer to flu
4fd0: 73 68 20 74 68 61 74 2e 0a 09 09 09 20 2a 2f 0a sh that..... */.
4fe0: 09 09 09 64 70 72 69 6e 74 66 28 22 43 72 65 61 ...dprintf("Crea
4ff0: 74 69 6e 67 20 61 20 6e 65 77 20 74 69 6d 65 72 ting a new timer
5000: 20 73 69 6e 63 65 20 64 61 74 61 20 61 70 70 65 since data appe
5010: 61 72 73 20 74 6f 20 62 65 20 77 61 69 74 69 6e ars to be waitin
5020: 67 22 29 3b 0a 09 09 09 73 74 61 74 65 50 74 72 g");....statePtr
5030: 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 ->timer = Tcl_Cr
5040: 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 eateTimerHandler
5050: 28 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 2c 20 (TLS_TCL_DELAY,
5060: 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 TlsChannelHandle
5070: 72 54 69 6d 65 72 2c 20 28 43 6c 69 65 6e 74 44 rTimer, (ClientD
5080: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
5090: 09 09 7d 0a 09 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ..}..}.}../*. *-
50a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50e0: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 47 65 74 48 --. *. * TlsGetH
50f0: 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a andleProc --. *.
5100: 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 *.Called from T
5110: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 46 69 6c cl_GetChannelFil
5120: 65 20 74 6f 20 72 65 74 72 69 65 76 65 20 6f 2f e to retrieve o/
5130: 73 20 66 69 6c 65 20 68 61 6e 64 6c 65 72 0a 20 s file handler.
5140: 2a 09 66 72 6f 6d 20 74 68 65 20 53 53 4c 20 73 *.from the SSL s
5150: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
5160: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c nel.. *. * Resul
5170: 74 73 3a 0a 20 2a 09 54 68 65 20 61 70 70 72 6f ts:. *.The appro
5180: 70 72 69 61 74 65 20 54 63 6c 5f 46 69 6c 65 20 priate Tcl_File
5190: 6f 72 20 4e 55 4c 4c 20 69 66 20 6e 6f 74 20 70 or NULL if not p
51a0: 72 65 73 65 6e 74 2e 0a 20 2a 0a 20 2a 20 53 69 resent.. *. * Si
51b0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
51c0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
51d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
5210: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 /.static int Tls
5220: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c GetHandleProc(Cl
5230: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
5240: 65 44 61 74 61 2c 20 69 6e 74 20 64 69 72 65 63 eData, int direc
5250: 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61 tion, ClientData
5260: 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b 0a 09 *handlePtr) {..
5270: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
5280: 3d 20 28 53 74 61 74 65 20 2a 29 20 69 6e 73 74 = (State *) inst
5290: 61 6e 63 65 44 61 74 61 3b 0a 0a 09 72 65 74 75 anceData;...retu
52a0: 72 6e 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 rn(Tcl_GetChanne
52b0: 6c 48 61 6e 64 6c 65 28 54 6c 73 5f 47 65 74 50 lHandle(Tls_GetP
52c0: 61 72 65 6e 74 28 73 74 61 74 65 50 74 72 2c 20 arent(statePtr,
52d0: 54 4c 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 TLS_TCL_FASTPATH
52e0: 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 ), direction, ha
52f0: 6e 64 6c 65 50 74 72 29 29 3b 0a 7d 0a 0a 2f 2a ndlePtr));.}../*
5300: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5340: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
5350: 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a NotifyProc --. *
5360: 0a 20 2a 09 48 61 6e 64 6c 65 72 20 63 61 6c 6c . *.Handler call
5370: 65 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e 66 ed by Tcl to inf
5380: 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69 orm us of activi
5390: 74 79 0a 20 2a 09 6f 6e 20 74 68 65 20 75 6e 64 ty. *.on the und
53a0: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
53b0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
53c0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 20 53 *.None.. *. * S
53d0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
53e0: 4d 61 79 20 70 72 6f 63 65 73 73 20 74 68 65 20 May process the
53f0: 69 6e 63 6f 6d 69 6e 67 20 65 76 65 6e 74 20 62 incoming event b
5400: 79 20 69 74 73 65 6c 66 2e 0a 20 2a 0a 20 2a 2d y itself.. *. *-
5410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5450: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 --. */..static i
5460: 6e 74 20 54 6c 73 4e 6f 74 69 66 79 50 72 6f 63 nt TlsNotifyProc
5470: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
5480: 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 20 6d 61 anceData, int ma
5490: 73 6b 29 20 7b 0a 09 53 74 61 74 65 20 2a 73 74 sk) {..State *st
54a0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
54b0: 2a 29 20 69 6e 73 74 61 6e 63 65 44 61 74 61 3b *) instanceData;
54c0: 0a 09 69 6e 74 20 65 72 72 6f 72 43 6f 64 65 3b ..int errorCode;
54d0: 0a 0a 09 2f 2a 0a 09 20 2a 20 41 6e 20 65 76 65 .../*.. * An eve
54e0: 6e 74 20 6f 63 63 75 72 65 64 20 69 6e 20 74 68 nt occured in th
54f0: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 e underlying cha
5500: 6e 6e 65 6c 2e 20 20 54 68 69 73 0a 09 20 2a 20 nnel. This.. *
5510: 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 20 64 transformation d
5520: 6f 65 73 6e 27 74 20 70 72 6f 63 65 73 73 20 73 oesn't process s
5530: 75 63 68 20 65 76 65 6e 74 73 20 74 68 75 73 20 uch events thus
5540: 72 65 74 75 72 6e 73 20 74 68 65 0a 09 20 2a 20 returns the.. *
5550: 69 6e 63 6f 6d 69 6e 67 20 6d 61 73 6b 20 75 6e incoming mask un
5560: 63 68 61 6e 67 65 64 2e 0a 09 20 2a 2f 0a 09 69 changed... */..i
5570: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
5580: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
5590: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 Token) NULL) {..
55a0: 09 2f 2a 0a 09 09 20 2a 20 44 65 6c 65 74 65 20 ./*... * Delete
55b0: 61 6e 20 65 78 69 73 74 69 6e 67 20 74 69 6d 65 an existing time
55c0: 72 2e 20 49 74 20 77 61 73 20 6e 6f 74 20 66 69 r. It was not fi
55d0: 72 65 64 2c 20 79 65 74 20 77 65 20 61 72 65 0a red, yet we are.
55e0: 09 09 20 2a 20 68 65 72 65 2c 20 73 6f 20 74 68 .. * here, so th
55f0: 65 20 63 68 61 6e 6e 65 6c 20 62 65 6c 6f 77 20 e channel below
5600: 67 65 6e 65 72 61 74 65 64 20 73 75 63 68 20 61 generated such a
5610: 6e 20 65 76 65 6e 74 20 61 6e 64 20 77 65 0a 09 n event and we..
5620: 09 20 2a 20 64 6f 6e 27 74 20 68 61 76 65 20 74 . * don't have t
5630: 6f 2e 20 54 68 65 20 72 65 6e 65 77 61 6c 20 6f o. The renewal o
5640: 66 20 74 68 65 20 69 6e 74 65 72 65 73 74 20 61 f the interest a
5650: 66 74 65 72 20 74 68 65 0a 09 09 20 2a 20 65 78 fter the... * ex
5660: 65 63 75 74 69 6f 6e 20 6f 66 20 63 68 61 6e 6e ecution of chann
5670: 65 6c 20 68 61 6e 64 6c 65 72 73 20 77 69 6c 6c el handlers will
5680: 20 65 76 65 6e 74 75 61 6c 6c 79 20 63 61 75 73 eventually caus
5690: 65 20 75 73 20 74 6f 0a 09 09 20 2a 20 72 65 63 e us to... * rec
56a0: 72 65 61 74 65 20 74 68 65 20 74 69 6d 65 72 20 reate the timer
56b0: 28 69 6e 20 57 61 74 63 68 50 72 6f 63 29 2e 0a (in WatchProc)..
56c0: 09 09 20 2a 2f 0a 09 09 54 63 6c 5f 44 65 6c 65 .. */...Tcl_Dele
56d0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
56e0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
56f0: 0a 09 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d ...statePtr->tim
5700: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
5710: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 09 7d 0a 0a oken) NULL;..}..
5720: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 .if (statePtr->f
5730: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 43 lags & TLS_TCL_C
5740: 41 4c 4c 42 41 43 4b 29 20 7b 0a 09 09 64 70 72 ALLBACK) {...dpr
5750: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 intf("Returning
5760: 30 20 64 75 65 20 74 6f 20 63 61 6c 6c 62 61 63 0 due to callbac
5770: 6b 22 29 3b 0a 09 09 72 65 74 75 72 6e 20 30 3b k");...return 0;
5780: 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 ..}...dprintf("C
5790: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
57a0: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 65 72 orConnect");..er
57b0: 72 6f 72 43 6f 64 65 20 3d 20 30 3b 0a 09 69 66 rorCode = 0;..if
57c0: 20 28 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e (Tls_WaitForCon
57d0: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 nect(statePtr, &
57e0: 65 72 72 6f 72 43 6f 64 65 2c 20 31 29 20 3c 20 errorCode, 1) <
57f0: 30 29 20 7b 0a 09 09 69 66 20 28 65 72 72 6f 72 0) {...if (error
5800: 43 6f 64 65 20 3d 3d 20 45 41 47 41 49 4e 29 20 Code == EAGAIN)
5810: 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 41 73 {....dprintf("As
5820: 79 6e 63 20 66 6c 61 67 20 63 6f 75 6c 64 20 62 ync flag could b
5830: 65 20 73 65 74 20 28 64 69 64 6e 27 74 20 63 68 e set (didn't ch
5840: 65 63 6b 29 20 61 6e 64 20 65 72 72 6f 72 43 6f eck) and errorCo
5850: 64 65 20 3d 3d 20 45 41 47 41 49 4e 3a 20 20 52 de == EAGAIN: R
5860: 65 74 75 72 6e 69 6e 67 20 30 22 29 3b 0a 0a 09 eturning 0");...
5870: 09 09 72 65 74 75 72 6e 20 30 3b 0a 09 09 7d 0a ..return 0;...}.
5880: 0a 09 09 64 70 72 69 6e 74 66 28 22 54 6c 73 5f ...dprintf("Tls_
5890: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 72 WaitForConnect r
58a0: 65 74 75 72 6e 65 64 20 61 6e 20 65 72 72 6f 72 eturned an error
58b0: 22 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 ");..}...dprintf
58c0: 28 22 52 65 74 75 72 6e 69 6e 67 20 25 69 22 2c ("Returning %i",
58d0: 20 6d 61 73 6b 29 3b 0a 0a 09 72 65 74 75 72 6e mask);...return
58e0: 28 6d 61 73 6b 29 3b 0a 7d 0a 0a 23 69 66 20 30 (mask);.}..#if 0
58f0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
5900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
5930: 0a 20 2a 20 20 20 20 20 20 54 6c 73 43 68 61 6e . * TlsChan
5940: 6e 65 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a nelHandler --. *
5950: 0a 20 2a 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d . * -------
5960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 20 20 20 ---------*. *
5990: 20 20 20 48 61 6e 64 6c 65 72 20 63 61 6c 6c 65 Handler calle
59a0: 64 20 62 79 20 54 63 6c 20 61 73 20 61 20 72 65 d by Tcl as a re
59b0: 73 75 6c 74 20 6f 66 0a 20 2a 20 20 20 20 20 20 sult of. *
59c0: 54 63 6c 5f 43 72 65 61 74 65 43 68 61 6e 6e 65 Tcl_CreateChanne
59d0: 6c 48 61 6e 64 6c 65 72 20 2d 20 74 6f 20 69 6e lHandler - to in
59e0: 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 form us of activ
59f0: 69 74 79 0a 20 2a 20 20 20 20 20 20 6f 6e 20 74 ity. * on t
5a00: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 he underlying ch
5a10: 61 6e 6e 65 6c 2e 0a 20 2a 20 20 20 20 20 20 2d annel.. * -
5a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
5a50: 0a 20 2a 0a 20 2a 20 20 20 20 20 20 53 69 64 65 . *. * Side
5a60: 65 66 66 65 63 74 73 3a 0a 20 2a 20 20 20 20 20 effects:. *
5a70: 20 20 20 20 20 20 20 20 20 4d 61 79 20 67 65 6e May gen
5a80: 65 72 61 74 65 20 73 75 62 73 65 71 75 65 6e 74 erate subsequent
5a90: 20 63 61 6c 6c 73 20 74 6f 0a 20 2a 20 20 20 20 calls to. *
5aa0: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 4e 6f Tcl_No
5ab0: 74 69 66 79 43 68 61 6e 6e 65 6c 2e 0a 20 2a 0a tifyChannel.. *.
5ac0: 20 2a 20 20 20 20 20 20 52 65 73 75 6c 74 3a 0a * Result:.
5ad0: 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 *
5ae0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
5af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b20: 2d 2a 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 -*. */..static v
5b30: 6f 69 64 0a 54 6c 73 43 68 61 6e 6e 65 6c 48 61 oid.TlsChannelHa
5b40: 6e 64 6c 65 72 20 28 63 6c 69 65 6e 74 44 61 74 ndler (clientDat
5b50: 61 2c 20 6d 61 73 6b 29 0a 20 20 20 20 43 6c 69 a, mask). Cli
5b60: 65 6e 74 44 61 74 61 20 20 20 20 20 63 6c 69 65 entData clie
5b70: 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 ntData;. int
5b80: 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 3b mask;
5b90: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
5ba0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
5bb0: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a *) clientData;..
5bc0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 48 41 4e dprintf("HAN
5bd0: 44 4c 45 52 28 30 78 25 78 29 22 2c 20 6d 61 73 DLER(0x%x)", mas
5be0: 6b 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 k);. Tcl_Pres
5bf0: 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 erve( (ClientDat
5c00: 61 29 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 a)statePtr);..
5c10: 20 20 69 66 20 28 6d 61 73 6b 20 26 20 54 43 4c if (mask & TCL
5c20: 5f 52 45 41 44 41 42 4c 45 29 20 7b 0a 09 42 49 _READABLE) {..BI
5c30: 4f 5f 73 65 74 5f 66 6c 61 67 73 28 73 74 61 74 O_set_flags(stat
5c40: 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f ePtr->p_bio, BIO
5c50: 5f 46 4c 41 47 53 5f 52 45 41 44 29 3b 0a 20 20 _FLAGS_READ);.
5c60: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 42 49 4f 5f } else {..BIO_
5c70: 63 6c 65 61 72 5f 66 6c 61 67 73 28 73 74 61 74 clear_flags(stat
5c80: 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 42 49 4f ePtr->p_bio, BIO
5c90: 5f 46 4c 41 47 53 5f 52 45 41 44 29 3b 0a 20 20 _FLAGS_READ);.
5ca0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d 61 73 }.. if (mas
5cb0: 6b 20 26 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 k & TCL_WRITABLE
5cc0: 29 20 7b 0a 09 42 49 4f 5f 73 65 74 5f 66 6c 61 ) {..BIO_set_fla
5cd0: 67 73 28 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 gs(statePtr->p_b
5ce0: 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 57 52 io, BIO_FLAGS_WR
5cf0: 49 54 45 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 ITE);. } else
5d00: 20 7b 0a 09 42 49 4f 5f 63 6c 65 61 72 5f 66 6c {..BIO_clear_fl
5d10: 61 67 73 28 73 74 61 74 65 50 74 72 2d 3e 70 5f ags(statePtr->p_
5d20: 62 69 6f 2c 20 42 49 4f 5f 46 4c 41 47 53 5f 57 bio, BIO_FLAGS_W
5d30: 52 49 54 45 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 RITE);. }..
5d40: 20 20 6d 61 73 6b 20 3d 20 30 3b 0a 20 20 20 20 mask = 0;.
5d50: 69 66 20 28 42 49 4f 5f 77 70 65 6e 64 69 6e 67 if (BIO_wpending
5d60: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
5d70: 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 43 4c 5f {..mask |= TCL_
5d80: 57 52 49 54 41 42 4c 45 3b 0a 20 20 20 20 7d 0a WRITABLE;. }.
5d90: 20 20 20 20 69 66 20 28 42 49 4f 5f 70 65 6e 64 if (BIO_pend
5da0: 69 6e 67 28 73 74 61 74 65 50 74 72 2d 3e 62 69 ing(statePtr->bi
5db0: 6f 29 29 20 7b 0a 09 6d 61 73 6b 20 7c 3d 20 54 o)) {..mask |= T
5dc0: 43 4c 5f 52 45 41 44 41 42 4c 45 3b 0a 20 20 20 CL_READABLE;.
5dd0: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }.. /*.
5de0: 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 * The following
5df0: 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 20 63 61 NotifyChannel ca
5e00: 6c 6c 73 20 73 65 65 6d 73 20 74 6f 20 62 65 20 lls seems to be
5e10: 69 6d 70 6f 72 74 61 6e 74 2c 20 62 75 74 0a 20 important, but.
5e20: 20 20 20 20 2a 20 77 65 20 64 6f 6e 27 74 20 6b * we don't k
5e30: 6e 6f 77 20 77 68 79 2e 20 20 49 74 20 6c 6f 6f now why. It loo
5e40: 6b 73 20 6c 69 6b 65 20 69 66 20 74 68 65 20 6d ks like if the m
5e50: 61 73 6b 20 69 73 20 65 76 65 72 20 6e 6f 6e 2d ask is ever non-
5e60: 7a 65 72 6f 0a 20 20 20 20 20 2a 20 74 68 61 74 zero. * that
5e70: 20 69 74 20 77 69 6c 6c 20 65 6e 74 65 72 20 61 it will enter a
5e80: 6e 20 69 6e 66 69 6e 69 74 65 20 6c 6f 6f 70 2e n infinite loop.
5e90: 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 4e . *. * N
5ea0: 6f 74 69 66 79 20 74 68 65 20 75 70 70 65 72 20 otify the upper
5eb0: 63 68 61 6e 6e 65 6c 20 6f 66 20 74 68 65 20 63 channel of the c
5ec0: 75 72 72 65 6e 74 20 42 49 4f 20 73 74 61 74 65 urrent BIO state
5ed0: 20 73 6f 20 74 68 65 20 65 76 65 6e 74 0a 20 20 so the event.
5ee0: 20 20 20 2a 20 63 6f 6e 74 69 6e 75 65 73 20 74 * continues t
5ef0: 6f 20 70 72 6f 70 61 67 61 74 65 20 75 70 20 74 o propagate up t
5f00: 68 65 20 63 68 61 69 6e 2e 0a 20 20 20 20 20 2a he chain.. *
5f10: 0a 20 20 20 20 20 2a 20 73 74 61 6e 74 6f 6e 3a . * stanton:
5f20: 20 49 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 74 It looks like t
5f30: 68 69 73 20 63 6f 75 6c 64 20 72 65 73 75 6c 74 his could result
5f40: 20 69 6e 20 61 6e 20 69 6e 66 69 6e 69 74 65 20 in an infinite
5f50: 6c 6f 6f 70 20 69 66 0a 20 20 20 20 20 2a 20 74 loop if. * t
5f60: 68 65 20 75 70 70 65 72 20 63 68 61 6e 6e 65 6c he upper channel
5f70: 20 64 6f 65 73 6e 27 74 20 63 61 75 73 65 20 43 doesn't cause C
5f80: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 74 6f hannelHandler to
5f90: 20 62 65 20 72 65 6d 6f 76 65 64 0a 20 20 20 20 be removed.
5fa0: 20 2a 20 62 65 66 6f 72 65 20 54 63 6c 5f 4e 6f * before Tcl_No
5fb0: 74 69 66 79 43 68 61 6e 6e 65 6c 20 63 61 6c 6c tifyChannel call
5fc0: 73 20 63 68 61 6e 6e 65 6c 20 68 61 6e 64 6c 65 s channel handle
5fd0: 72 73 20 6f 6e 20 74 68 65 20 6c 6f 77 65 72 20 rs on the lower
5fe0: 63 68 61 6e 6e 65 6c 2e 0a 20 20 20 20 20 2a 2f channel.. */
5ff0: 0a 0a 20 20 20 20 54 63 6c 5f 4e 6f 74 69 66 79 .. Tcl_Notify
6000: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
6010: 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a 0a ->self, mask);..
6020: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
6030: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
6040: 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 29 TimerToken)NULL)
6050: 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 {..Tcl_DeleteTi
6060: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
6070: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
6080: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
6090: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
60a0: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
60b0: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
60c0: 52 45 41 44 41 42 4c 45 29 20 26 26 20 54 63 6c READABLE) && Tcl
60d0: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
60e0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
60f0: 20 30 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 44 61 0) {../*.. * Da
6100: 74 61 20 69 73 20 77 61 69 74 69 6e 67 2c 20 66 ta is waiting, f
6110: 6c 75 73 68 20 69 74 20 6f 75 74 20 69 6e 20 73 lush it out in s
6120: 68 6f 72 74 20 74 69 6d 65 0a 09 20 2a 2f 0a 09 hort time.. */..
6130: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
6140: 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d 65 = Tcl_CreateTime
6150: 72 48 61 6e 64 6c 65 72 28 54 4c 53 5f 54 43 4c rHandler(TLS_TCL
6160: 5f 44 45 4c 41 59 2c 0a 09 09 54 6c 73 43 68 61 _DELAY,...TlsCha
6170: 6e 6e 65 6c 48 61 6e 64 6c 65 72 54 69 6d 65 72 nnelHandlerTimer
6180: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
6190: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a tatePtr);. }.
61a0: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
61b0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 73 74 61 (ClientData)sta
61c0: 74 65 50 74 72 29 3b 0a 7d 0a 23 65 6e 64 69 66 tePtr);.}.#endif
61d0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
61e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
6210: 2a 0a 20 2a 09 54 6c 73 43 68 61 6e 6e 65 6c 48 *. *.TlsChannelH
6220: 61 6e 64 6c 65 72 54 69 6d 65 72 20 2d 2d 0a 20 andlerTimer --.
6230: 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *.-----------
6240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6260: 2d 2d 2d 2d 2d 2a 0a 20 2a 09 43 61 6c 6c 65 64 -----*. *.Called
6270: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 by the notifier
6280: 20 28 2d 3e 20 74 69 6d 65 72 29 20 74 6f 20 66 (-> timer) to f
6290: 6c 75 73 68 20 6f 75 74 0a 20 2a 09 69 6e 66 6f lush out. *.info
62a0: 72 6d 61 74 69 6f 6e 20 77 61 69 74 69 6e 67 20 rmation waiting
62b0: 69 6e 20 63 68 61 6e 6e 65 6c 20 62 75 66 66 65 in channel buffe
62c0: 72 73 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d rs.. *.---------
62d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62f0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 -------*. *. *.S
6300: 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 ideeffects:. *..
6310: 41 73 20 6f 66 20 27 54 6c 73 43 68 61 6e 6e 65 As of 'TlsChanne
6320: 6c 48 61 6e 64 6c 65 72 27 2e 0a 20 2a 0a 20 2a lHandler'.. *. *
6330: 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 4e 6f 6e .Result:. *..Non
6340: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
6350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
6380: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 */..static void
6390: 20 54 6c 73 43 68 61 6e 6e 65 6c 48 61 6e 64 6c TlsChannelHandl
63a0: 65 72 54 69 6d 65 72 28 43 6c 69 65 6e 74 44 61 erTimer(ClientDa
63b0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b ta clientData) {
63c0: 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ..State *statePt
63d0: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 63 6c r = (State *) cl
63e0: 69 65 6e 74 44 61 74 61 3b 0a 09 69 6e 74 20 6d ientData;..int m
63f0: 61 73 6b 20 3d 20 30 3b 0a 0a 09 64 70 72 69 6e ask = 0;...dprin
6400: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 tf("Called");...
6410: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
6420: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
6430: 6e 29 20 4e 55 4c 4c 3b 0a 0a 09 69 66 20 28 42 n) NULL;...if (B
6440: 49 4f 5f 77 70 65 6e 64 69 6e 67 28 73 74 61 74 IO_wpending(stat
6450: 65 50 74 72 2d 3e 62 69 6f 29 29 20 7b 0a 09 09 ePtr->bio)) {...
6460: 64 70 72 69 6e 74 66 28 22 5b 63 68 61 6e 3d 25 dprintf("[chan=%
6470: 70 5d 20 42 49 4f 20 77 72 69 74 61 62 6c 65 22 p] BIO writable"
6480: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 , statePtr->self
6490: 29 3b 0a 0a 09 09 6d 61 73 6b 20 7c 3d 20 54 43 );....mask |= TC
64a0: 4c 5f 57 52 49 54 41 42 4c 45 3b 0a 09 7d 0a 0a L_WRITABLE;..}..
64b0: 09 69 66 20 28 42 49 4f 5f 70 65 6e 64 69 6e 67 .if (BIO_pending
64c0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 29 (statePtr->bio))
64d0: 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 5b 63 {...dprintf("[c
64e0: 68 61 6e 3d 25 70 5d 20 42 49 4f 20 72 65 61 64 han=%p] BIO read
64f0: 61 62 6c 65 22 2c 20 73 74 61 74 65 50 74 72 2d able", statePtr-
6500: 3e 73 65 6c 66 29 3b 0a 0a 09 09 6d 61 73 6b 20 >self);....mask
6510: 7c 3d 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 3b |= TCL_READABLE;
6520: 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 4e ..}...dprintf("N
6530: 6f 74 69 66 79 69 6e 67 20 6f 75 72 73 65 6c 76 otifying ourselv
6540: 65 73 22 29 3b 0a 09 54 63 6c 5f 4e 6f 74 69 66 es");..Tcl_Notif
6550: 79 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 yChannel(statePt
6560: 72 2d 3e 73 65 6c 66 2c 20 6d 61 73 6b 29 3b 0a r->self, mask);.
6570: 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 ..dprintf("Retur
6580: 6e 69 6e 67 22 29 3b 0a 0a 09 72 65 74 75 72 6e ning");...return
6590: 3b 0a 7d 0a 0a 54 63 6c 5f 43 68 61 6e 6e 65 6c ;.}..Tcl_Channel
65a0: 20 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 28 53 Tls_GetParent(S
65b0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
65c0: 69 6e 74 20 6d 61 73 6b 46 6c 61 67 73 29 20 7b int maskFlags) {
65d0: 0a 09 64 70 72 69 6e 74 66 28 22 52 65 71 75 65 ..dprintf("Reque
65e0: 73 74 65 64 20 74 6f 20 67 65 74 20 70 61 72 65 sted to get pare
65f0: 6e 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 25 70 nt of channel %p
6600: 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c ", statePtr->sel
6610: 66 29 3b 0a 0a 09 69 66 20 28 28 73 74 61 74 65 f);...if ((state
6620: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 7e 6d 61 Ptr->flags & ~ma
6630: 73 6b 46 6c 61 67 73 29 20 26 20 54 4c 53 5f 54 skFlags) & TLS_T
6640: 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b 0a 09 CL_FASTPATH) {..
6650: 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 20 .dprintf("Asked
6660: 74 6f 20 67 65 74 20 74 68 65 20 70 61 72 65 6e to get the paren
6670: 74 20 63 68 61 6e 6e 65 6c 20 77 68 69 6c 65 20 t channel while
6680: 77 65 20 61 72 65 20 75 73 69 6e 67 20 46 61 73 we are using Fas
6690: 74 50 61 74 68 20 2d 2d 20 72 65 74 75 72 6e 69 tPath -- returni
66a0: 6e 67 20 4e 55 4c 4c 22 29 3b 0a 09 09 72 65 74 ng NULL");...ret
66b0: 75 72 6e 28 4e 55 4c 4c 29 3b 0a 09 7d 0a 0a 09 urn(NULL);..}...
66c0: 72 65 74 75 72 6e 28 54 63 6c 5f 47 65 74 53 74 return(Tcl_GetSt
66d0: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 ackedChannel(sta
66e0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 7d tePtr->self));.}
66f0: 0a .