0000: 2f 2a 0a 20 2a 20 4d 61 63 72 6f 20 61 6e 64 20 /*. * Macro and
0010: 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 structure defini
0020: 74 69 6f 6e 73 20 66 6f 72 20 54 4c 53 20 65 78 tions for TLS ex
0030: 74 65 6e 73 69 6f 6e 0a 20 2a 0a 20 2a 20 43 6f tension. *. * Co
0040: 70 79 72 69 67 68 74 20 28 43 29 20 31 39 39 37 pyright (C) 1997
0050: 2d 32 30 30 30 20 4d 61 74 74 20 4e 65 77 6d 61 -2000 Matt Newma
0060: 6e 20 3c 6d 61 74 74 40 6e 6f 76 61 64 69 67 6d n <matt@novadigm
0070: 2e 63 6f 6d 3e 0a 20 2a 0a 20 2a 20 41 64 64 69 .com>. *. * Addi
0080: 74 69 6f 6e 61 6c 20 63 72 65 64 69 74 20 69 73 tional credit is
0090: 20 64 75 65 20 66 6f 72 20 41 6e 64 72 65 61 73 due for Andreas
00a0: 20 4b 75 70 72 69 65 73 20 28 61 2e 6b 75 70 72 Kupries (a.kupr
00b0: 69 65 73 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 [email protected])
00c0: 2c 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 , for. * providi
00d0: 6e 67 20 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 ng the Tcl_Repla
00e0: 63 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e ceChannel mechan
00f0: 69 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 ism and working
0100: 63 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d 65 0a closely with me.
0110: 20 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 * to enhance it
0120: 20 74 6f 20 73 75 70 70 6f 72 74 20 66 75 6c 6c to support full
0130: 20 66 69 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e fileevent seman
0140: 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f tics.. *. * Also
0150: 20 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 work done by th
0160: 65 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 e follow people
0170: 70 72 6f 76 69 64 65 64 20 74 68 65 20 69 6d 70 provided the imp
0180: 65 74 75 73 20 74 6f 20 64 6f 20 74 68 69 73 20 etus to do this
0190: 22 72 69 67 68 74 22 3a 2d 0a 20 2a 09 74 63 6c "right":-. *.tcl
01a0: 53 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 SSL (Colin McCor
01b0: 6d 61 63 6b 2c 20 53 68 61 72 65 64 20 54 65 63 mack, Shared Tec
01c0: 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c 74 hnology). *.SSLt
01d0: 63 6c 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e cl (Peter Antman
01e0: 29 0a 20 2a 0a 20 2a 2f 0a 23 69 66 6e 64 65 66 ). *. */.#ifndef
01f0: 20 5f 54 4c 53 49 4e 54 5f 48 0a 23 64 65 66 69 _TLSINT_H.#defi
0200: 6e 65 20 5f 54 4c 53 49 4e 54 5f 48 0a 0a 2f 2a ne _TLSINT_H../*
0210: 20 50 6c 61 74 66 6f 72 6d 20 75 6e 69 71 75 65 Platform unique
0220: 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 2a 2f 0a definitions */.
0230: 23 69 66 20 28 28 64 65 66 69 6e 65 64 28 5f 57 #if ((defined(_W
0240: 49 4e 33 32 29 29 20 7c 7c 20 28 64 65 66 69 6e IN32)) || (defin
0250: 65 64 28 5f 5f 4d 49 4e 47 57 33 32 5f 5f 29 29 ed(__MINGW32__))
0260: 20 7c 7c 20 28 64 65 66 69 6e 65 64 28 5f 5f 4d || (defined(__M
0270: 49 4e 47 57 36 34 5f 5f 29 29 29 0a 23 69 66 6e INGW64__))).#ifn
0280: 64 65 66 20 57 49 4e 33 32 5f 4c 45 41 4e 5f 41 def WIN32_LEAN_A
0290: 4e 44 5f 4d 45 41 4e 0a 23 64 65 66 69 6e 65 20 ND_MEAN.#define
02a0: 57 49 4e 33 32 5f 4c 45 41 4e 5f 41 4e 44 5f 4d WIN32_LEAN_AND_M
02b0: 45 41 4e 0a 23 65 6e 64 69 66 0a 23 69 6e 63 6c EAN.#endif.#incl
02c0: 75 64 65 20 3c 77 69 6e 64 6f 77 73 2e 68 3e 0a ude <windows.h>.
02d0: 23 69 6e 63 6c 75 64 65 20 3c 77 69 6e 63 72 79 #include <wincry
02e0: 70 74 2e 68 3e 20 2f 2a 20 4f 70 65 6e 53 53 4c pt.h> /* OpenSSL
02f0: 20 6e 65 65 64 73 20 74 68 69 73 20 6f 6e 20 57 needs this on W
0300: 69 6e 64 6f 77 73 20 2a 2f 0a 23 65 6e 64 69 66 indows */.#endif
0310: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 2e ..#include "tls.
0320: 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 65 72 72 h".#include <err
0330: 6e 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c no.h>.#include <
0340: 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 string.h>.#inclu
0350: 64 65 20 3c 73 74 64 69 6e 74 2e 68 3e 0a 23 69 de <stdint.h>.#i
0360: 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f nclude <openssl/
0370: 73 73 6c 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 ssl.h>.#include
0380: 3c 6f 70 65 6e 73 73 6c 2f 65 72 72 2e 68 3e 0a <openssl/err.h>.
0390: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 #include <openss
03a0: 6c 2f 72 61 6e 64 2e 68 3e 0a 23 69 6e 63 6c 75 l/rand.h>.#inclu
03b0: 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 6f 70 65 6e de <openssl/open
03c0: 73 73 6c 76 2e 68 3e 0a 0a 2f 2a 20 57 69 6e 64 sslv.h>../* Wind
03d0: 6f 77 73 20 6e 65 65 64 73 20 74 6f 20 6b 6e 6f ows needs to kno
03e0: 77 20 77 68 69 63 68 20 73 79 6d 62 6f 6c 73 20 w which symbols
03f0: 74 6f 20 65 78 70 6f 72 74 2e 20 2a 2f 0a 23 69 to export. */.#i
0400: 66 64 65 66 20 42 55 49 4c 44 5f 74 6c 73 0a 23 fdef BUILD_tls.#
0410: 75 6e 64 65 66 20 54 43 4c 5f 53 54 4f 52 41 47 undef TCL_STORAG
0420: 45 5f 43 4c 41 53 53 0a 23 64 65 66 69 6e 65 20 E_CLASS.#define
0430: 54 43 4c 5f 53 54 4f 52 41 47 45 5f 43 4c 41 53 TCL_STORAGE_CLAS
0440: 53 20 44 4c 4c 45 58 50 4f 52 54 0a 23 65 6e 64 S DLLEXPORT.#end
0450: 69 66 20 2f 2a 20 42 55 49 4c 44 5f 74 6c 73 20 if /* BUILD_tls
0460: 2a 2f 0a 0a 2f 2a 20 48 61 6e 64 6c 65 20 54 43 */../* Handle TC
0470: 4c 20 38 2e 36 20 43 4f 4e 53 54 20 63 68 61 6e L 8.6 CONST chan
0480: 67 65 73 20 2a 2f 0a 23 69 66 6e 64 65 66 20 43 ges */.#ifndef C
0490: 4f 4e 53 54 38 36 0a 23 20 20 20 69 66 20 54 43 ONST86.# if TC
04a0: 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 L_MAJOR_VERSION
04b0: 3e 20 38 20 7c 7c 20 28 54 43 4c 5f 4d 41 4a 4f > 8 || (TCL_MAJO
04c0: 52 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 20 26 R_VERSION == 8 &
04d0: 26 20 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53 & TCL_MINOR_VERS
04e0: 49 4f 4e 20 3e 20 35 29 0a 23 09 64 65 66 69 6e ION > 5).#.defin
04f0: 65 20 43 4f 4e 53 54 38 36 20 63 6f 6e 73 74 0a e CONST86 const.
0500: 23 20 20 20 65 6c 73 65 0a 23 09 64 65 66 69 6e # else.#.defin
0510: 65 20 43 4f 4e 53 54 38 36 0a 23 20 20 20 65 6e e CONST86.# en
0520: 64 69 66 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 dif.#endif../*.
0530: 2a 20 42 61 63 6b 77 61 72 64 73 20 63 6f 6d 70 * Backwards comp
0540: 61 74 69 62 69 6c 69 74 79 20 66 6f 72 20 73 69 atibility for si
0550: 7a 65 20 74 79 70 65 20 63 68 61 6e 67 65 0a 20 ze type change.
0560: 2a 2f 0a 23 69 66 20 54 43 4c 5f 4d 41 4a 4f 52 */.#if TCL_MAJOR
0570: 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 20 26 26 _VERSION == 8 &&
0580: 20 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53 49 TCL_MINOR_VERSI
0590: 4f 4e 20 3c 20 37 0a 20 20 20 20 23 69 6e 63 6c ON < 7. #incl
05a0: 75 64 65 20 3c 6c 69 6d 69 74 73 2e 68 3e 0a 20 ude <limits.h>.
05b0: 20 20 20 23 69 66 6e 64 65 66 20 54 43 4c 5f 53 #ifndef TCL_S
05c0: 49 5a 45 5f 4d 41 58 0a 20 20 20 20 23 64 65 66 IZE_MAX. #def
05d0: 69 6e 65 20 54 43 4c 5f 53 49 5a 45 5f 4d 41 58 ine TCL_SIZE_MAX
05e0: 20 49 4e 54 5f 4d 41 58 0a 20 20 20 20 23 65 6e INT_MAX. #en
05f0: 64 69 66 0a 0a 20 20 20 20 23 69 66 6e 64 65 66 dif.. #ifndef
0600: 20 54 63 6c 5f 53 69 7a 65 0a 09 74 79 70 65 64 Tcl_Size..typed
0610: 65 66 20 69 6e 74 20 54 63 6c 5f 53 69 7a 65 3b ef int Tcl_Size;
0620: 0a 20 20 20 20 23 65 6e 64 69 66 0a 0a 20 20 20 . #endif..
0630: 20 23 64 65 66 69 6e 65 20 54 43 4c 5f 53 49 5a #define TCL_SIZ
0640: 45 5f 4d 4f 44 49 46 49 45 52 20 22 22 0a 20 20 E_MODIFIER "".
0650: 20 20 23 64 65 66 69 6e 65 20 54 63 6c 5f 47 65 #define Tcl_Ge
0660: 74 53 69 7a 65 49 6e 74 46 72 6f 6d 4f 62 6a 20 tSizeIntFromObj
0670: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
0680: 6a 0a 20 20 20 20 23 64 65 66 69 6e 65 20 54 63 j. #define Tc
0690: 6c 5f 4e 65 77 53 69 7a 65 49 6e 74 4f 62 6a 20 l_NewSizeIntObj
06a0: 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 Tcl_NewIntOb
06b0: 6a 0a 20 20 20 20 23 64 65 66 69 6e 65 20 54 63 j. #define Tc
06c0: 6c 5f 4e 65 77 53 69 7a 65 49 6e 74 46 72 6f 6d l_NewSizeIntFrom
06d0: 4f 62 6a 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 Obj Tcl_NewWideI
06e0: 6e 74 4f 62 6a 0a 23 65 6e 64 69 66 0a 0a 23 69 ntObj.#endif..#i
06f0: 66 6e 64 65 66 20 4a 4f 49 4e 0a 23 20 20 64 65 fndef JOIN.# de
0700: 66 69 6e 65 20 4a 4f 49 4e 28 61 2c 62 29 20 4a fine JOIN(a,b) J
0710: 4f 49 4e 31 28 61 2c 62 29 0a 23 20 20 64 65 66 OIN1(a,b).# def
0720: 69 6e 65 20 4a 4f 49 4e 31 28 61 2c 62 29 20 61 ine JOIN1(a,b) a
0730: 23 23 62 0a 23 65 6e 64 69 66 0a 0a 23 69 66 6e ##b.#endif..#ifn
0740: 64 65 66 20 54 43 4c 5f 55 4e 55 53 45 44 0a 23 def TCL_UNUSED.#
0750: 20 69 66 20 64 65 66 69 6e 65 64 28 5f 5f 63 70 if defined(__cp
0760: 6c 75 73 70 6c 75 73 29 0a 23 20 20 20 64 65 66 lusplus).# def
0770: 69 6e 65 20 54 43 4c 5f 55 4e 55 53 45 44 28 54 ine TCL_UNUSED(T
0780: 29 20 54 0a 23 20 65 6c 69 66 20 64 65 66 69 6e ) T.# elif defin
0790: 65 64 28 5f 5f 47 4e 55 43 5f 5f 29 20 26 26 20 ed(__GNUC__) &&
07a0: 28 5f 5f 47 4e 55 43 5f 5f 20 3e 20 32 29 0a 23 (__GNUC__ > 2).#
07b0: 20 20 20 64 65 66 69 6e 65 20 54 43 4c 5f 55 4e define TCL_UN
07c0: 55 53 45 44 28 54 29 20 54 20 4a 4f 49 4e 28 64 USED(T) T JOIN(d
07d0: 75 6d 6d 79 2c 20 5f 5f 4c 49 4e 45 5f 5f 29 20 ummy, __LINE__)
07e0: 5f 5f 61 74 74 72 69 62 75 74 65 5f 5f 28 28 75 __attribute__((u
07f0: 6e 75 73 65 64 29 29 0a 23 20 65 6c 73 65 0a 23 nused)).# else.#
0800: 20 20 20 64 65 66 69 6e 65 20 54 43 4c 5f 55 4e define TCL_UN
0810: 55 53 45 44 28 54 29 20 54 20 4a 4f 49 4e 28 64 USED(T) T JOIN(d
0820: 75 6d 6d 79 2c 20 5f 5f 4c 49 4e 45 5f 5f 29 0a ummy, __LINE__).
0830: 23 20 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a 0a # endif.#endif..
0840: 0a 2f 2a 20 44 65 66 69 6e 65 20 6d 69 73 73 69 ./* Define missi
0850: 6e 67 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 ng POSIX error c
0860: 6f 64 65 73 20 2a 2f 0a 23 69 66 6e 64 65 66 20 odes */.#ifndef
0870: 45 43 4f 4e 4e 41 42 4f 52 54 45 44 0a 23 64 65 ECONNABORTED.#de
0880: 66 69 6e 65 20 45 43 4f 4e 4e 41 42 4f 52 54 45 fine ECONNABORTE
0890: 44 09 31 33 30 09 2f 2a 20 53 6f 66 74 77 61 72 D.130./* Softwar
08a0: 65 20 63 61 75 73 65 64 20 63 6f 6e 6e 65 63 74 e caused connect
08b0: 69 6f 6e 20 61 62 6f 72 74 20 2a 2f 0a 23 65 6e ion abort */.#en
08c0: 64 69 66 0a 23 69 66 6e 64 65 66 20 45 43 4f 4e dif.#ifndef ECON
08d0: 4e 52 45 53 45 54 0a 23 64 65 66 69 6e 65 20 45 NRESET.#define E
08e0: 43 4f 4e 4e 52 45 53 45 54 09 31 33 31 09 2f 2a CONNRESET.131./*
08f0: 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 72 65 73 65 Connection rese
0900: 74 20 62 79 20 70 65 65 72 20 2a 2f 0a 23 65 6e t by peer */.#en
0910: 64 69 66 0a 0a 2f 2a 20 44 65 62 75 67 20 61 6e dif../* Debug an
0920: 64 20 65 72 72 6f 72 20 6d 61 63 72 6f 73 20 2a d error macros *
0930: 2f 0a 23 69 66 64 65 66 20 54 43 4c 45 58 54 5f /.#ifdef TCLEXT_
0940: 54 43 4c 54 4c 53 5f 44 45 42 55 47 0a 23 69 6e TCLTLS_DEBUG.#in
0950: 63 6c 75 64 65 20 3c 63 74 79 70 65 2e 68 3e 0a clude <ctype.h>.
0960: 23 64 65 66 69 6e 65 20 64 70 72 69 6e 74 66 28 #define dprintf(
0970: 2e 2e 2e 29 20 7b 20 5c 0a 09 63 68 61 72 20 64 ...) { \..char d
0980: 70 72 69 6e 74 66 42 75 66 66 65 72 5b 38 31 39 printfBuffer[819
0990: 32 5d 2c 20 2a 64 70 72 69 6e 74 66 42 75 66 66 2], *dprintfBuff
09a0: 65 72 5f 70 3b 20 5c 0a 09 64 70 72 69 6e 74 66 er_p; \..dprintf
09b0: 42 75 66 66 65 72 5f 70 20 3d 20 26 64 70 72 69 Buffer_p = &dpri
09c0: 6e 74 66 42 75 66 66 65 72 5b 30 5d 3b 20 5c 0a ntfBuffer[0]; \.
09d0: 09 64 70 72 69 6e 74 66 42 75 66 66 65 72 5f 70 .dprintfBuffer_p
09e0: 20 2b 3d 20 73 70 72 69 6e 74 66 28 64 70 72 69 += sprintf(dpri
09f0: 6e 74 66 42 75 66 66 65 72 5f 70 2c 20 22 25 73 ntfBuffer_p, "%s
0a00: 3a 25 69 3a 25 73 28 29 3a 22 2c 20 5f 5f 46 49 :%i:%s():", __FI
0a10: 4c 45 5f 5f 2c 20 5f 5f 4c 49 4e 45 5f 5f 2c 20 LE__, __LINE__,
0a20: 5f 5f 66 75 6e 63 5f 5f 29 3b 20 5c 0a 09 64 70 __func__); \..dp
0a30: 72 69 6e 74 66 42 75 66 66 65 72 5f 70 20 2b 3d rintfBuffer_p +=
0a40: 20 73 70 72 69 6e 74 66 28 64 70 72 69 6e 74 66 sprintf(dprintf
0a50: 42 75 66 66 65 72 5f 70 2c 20 5f 5f 56 41 5f 41 Buffer_p, __VA_A
0a60: 52 47 53 5f 5f 29 3b 20 5c 0a 09 66 70 72 69 6e RGS__); \..fprin
0a70: 74 66 28 73 74 64 65 72 72 2c 20 22 25 73 5c 6e tf(stderr, "%s\n
0a80: 22 2c 20 64 70 72 69 6e 74 66 42 75 66 66 65 72 ", dprintfBuffer
0a90: 29 3b 20 5c 0a 7d 0a 23 64 65 66 69 6e 65 20 64 ); \.}.#define d
0aa0: 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 66 printBuffer(buff
0ab0: 65 72 4e 61 6d 65 2c 20 62 75 66 66 65 72 4c 65 erName, bufferLe
0ac0: 6e 67 74 68 29 20 7b 20 5c 0a 09 69 6e 74 20 64 ngth) { \..int d
0ad0: 70 72 69 6e 74 42 75 66 66 65 72 49 64 78 3b 20 printBufferIdx;
0ae0: 5c 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 \..unsigned char
0af0: 20 64 70 72 69 6e 74 42 75 66 66 65 72 43 68 61 dprintBufferCha
0b00: 72 3b 20 5c 0a 09 66 70 72 69 6e 74 66 28 73 74 r; \..fprintf(st
0b10: 64 65 72 72 2c 20 22 25 73 3a 25 69 3a 25 73 28 derr, "%s:%i:%s(
0b20: 29 3a 25 73 5b 25 6c 6c 75 5d 3d 7b 22 2c 20 5f ):%s[%llu]={", _
0b30: 5f 46 49 4c 45 5f 5f 2c 20 5f 5f 4c 49 4e 45 5f _FILE__, __LINE_
0b40: 5f 2c 20 5f 5f 66 75 6e 63 5f 5f 2c 20 23 62 75 _, __func__, #bu
0b50: 66 66 65 72 4e 61 6d 65 2c 20 28 75 6e 73 69 67 fferName, (unsig
0b60: 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 29 20 62 ned long long) b
0b70: 75 66 66 65 72 4c 65 6e 67 74 68 29 3b 20 5c 0a ufferLength); \.
0b80: 09 66 6f 72 20 28 64 70 72 69 6e 74 42 75 66 66 .for (dprintBuff
0b90: 65 72 49 64 78 20 3d 20 30 3b 20 64 70 72 69 6e erIdx = 0; dprin
0ba0: 74 42 75 66 66 65 72 49 64 78 20 3c 20 62 75 66 tBufferIdx < buf
0bb0: 66 65 72 4c 65 6e 67 74 68 3b 20 64 70 72 69 6e ferLength; dprin
0bc0: 74 42 75 66 66 65 72 49 64 78 2b 2b 29 20 7b 20 tBufferIdx++) {
0bd0: 5c 0a 09 09 64 70 72 69 6e 74 42 75 66 66 65 72 \...dprintBuffer
0be0: 43 68 61 72 20 3d 20 62 75 66 66 65 72 4e 61 6d Char = bufferNam
0bf0: 65 5b 64 70 72 69 6e 74 42 75 66 66 65 72 49 64 e[dprintBufferId
0c00: 78 5d 3b 20 5c 0a 09 09 69 66 20 28 69 73 61 6c x]; \...if (isal
0c10: 70 68 61 28 64 70 72 69 6e 74 42 75 66 66 65 72 pha(dprintBuffer
0c20: 43 68 61 72 29 20 7c 7c 20 69 73 64 69 67 69 74 Char) || isdigit
0c30: 28 64 70 72 69 6e 74 42 75 66 66 65 72 43 68 61 (dprintBufferCha
0c40: 72 29 29 20 7b 20 5c 0a 09 09 09 66 70 72 69 6e r)) { \....fprin
0c50: 74 66 28 73 74 64 65 72 72 2c 20 22 27 25 63 27 tf(stderr, "'%c'
0c60: 20 22 2c 20 64 70 72 69 6e 74 42 75 66 66 65 72 ", dprintBuffer
0c70: 43 68 61 72 29 3b 20 5c 0a 09 09 7d 20 65 6c 73 Char); \...} els
0c80: 65 20 7b 20 5c 0a 09 09 09 66 70 72 69 6e 74 66 e { \....fprintf
0c90: 28 73 74 64 65 72 72 2c 20 22 25 30 32 78 20 22 (stderr, "%02x "
0ca0: 2c 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 , (unsigned int)
0cb0: 20 64 70 72 69 6e 74 42 75 66 66 65 72 43 68 61 dprintBufferCha
0cc0: 72 29 3b 20 5c 0a 09 09 7d 3b 20 5c 0a 09 7d 3b r); \...}; \..};
0cd0: 20 5c 0a 09 66 70 72 69 6e 74 66 28 73 74 64 65 \..fprintf(stde
0ce0: 72 72 2c 20 22 7d 5c 6e 22 29 3b 20 5c 0a 7d 0a rr, "}\n"); \.}.
0cf0: 23 64 65 66 69 6e 65 20 64 70 72 69 6e 74 46 6c #define dprintFl
0d00: 61 67 73 28 73 74 61 74 65 50 74 72 29 20 7b 20 ags(statePtr) {
0d10: 5c 0a 09 63 68 61 72 20 64 70 72 69 6e 74 66 42 \..char dprintfB
0d20: 75 66 66 65 72 5b 38 31 39 32 5d 2c 20 2a 64 70 uffer[8192], *dp
0d30: 72 69 6e 74 66 42 75 66 66 65 72 5f 70 3b 20 5c rintfBuffer_p; \
0d40: 0a 09 64 70 72 69 6e 74 66 42 75 66 66 65 72 5f ..dprintfBuffer_
0d50: 70 20 3d 20 26 64 70 72 69 6e 74 66 42 75 66 66 p = &dprintfBuff
0d60: 65 72 5b 30 5d 3b 20 5c 0a 09 64 70 72 69 6e 74 er[0]; \..dprint
0d70: 66 42 75 66 66 65 72 5f 70 20 2b 3d 20 73 70 72 fBuffer_p += spr
0d80: 69 6e 74 66 28 64 70 72 69 6e 74 66 42 75 66 66 intf(dprintfBuff
0d90: 65 72 5f 70 2c 20 22 25 73 3a 25 69 3a 25 73 28 er_p, "%s:%i:%s(
0da0: 29 3a 25 73 2d 3e 66 6c 61 67 73 3d 30 22 2c 20 ):%s->flags=0",
0db0: 5f 5f 46 49 4c 45 5f 5f 2c 20 5f 5f 4c 49 4e 45 __FILE__, __LINE
0dc0: 5f 5f 2c 20 5f 5f 66 75 6e 63 5f 5f 2c 20 23 73 __, __func__, #s
0dd0: 74 61 74 65 50 74 72 29 3b 20 5c 0a 09 69 66 20 tatePtr); \..if
0de0: 28 28 28 73 74 61 74 65 50 74 72 29 2d 3e 66 6c (((statePtr)->fl
0df0: 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 ags & TLS_TCL_AS
0e00: 59 4e 43 29 20 3d 3d 20 54 4c 53 5f 54 43 4c 5f YNC) == TLS_TCL_
0e10: 41 53 59 4e 43 29 20 7b 20 64 70 72 69 6e 74 66 ASYNC) { dprintf
0e20: 42 75 66 66 65 72 5f 70 20 2b 3d 20 73 70 72 69 Buffer_p += spri
0e30: 6e 74 66 28 64 70 72 69 6e 74 66 42 75 66 66 65 ntf(dprintfBuffe
0e40: 72 5f 70 2c 20 22 7c 54 4c 53 5f 54 43 4c 5f 41 r_p, "|TLS_TCL_A
0e50: 53 59 4e 43 22 29 3b 20 7d 3b 20 5c 0a 09 69 66 SYNC"); }; \..if
0e60: 20 28 28 28 73 74 61 74 65 50 74 72 29 2d 3e 66 (((statePtr)->f
0e70: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 53 lags & TLS_TCL_S
0e80: 45 52 56 45 52 29 20 3d 3d 20 54 4c 53 5f 54 43 ERVER) == TLS_TC
0e90: 4c 5f 53 45 52 56 45 52 29 20 7b 20 64 70 72 69 L_SERVER) { dpri
0ea0: 6e 74 66 42 75 66 66 65 72 5f 70 20 2b 3d 20 73 ntfBuffer_p += s
0eb0: 70 72 69 6e 74 66 28 64 70 72 69 6e 74 66 42 75 printf(dprintfBu
0ec0: 66 66 65 72 5f 70 2c 20 22 7c 54 4c 53 5f 54 43 ffer_p, "|TLS_TC
0ed0: 4c 5f 53 45 52 56 45 52 22 29 3b 20 7d 3b 20 5c L_SERVER"); }; \
0ee0: 0a 09 69 66 20 28 28 28 73 74 61 74 65 50 74 72 ..if (((statePtr
0ef0: 29 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 )->flags & TLS_T
0f00: 43 4c 5f 49 4e 49 54 29 20 3d 3d 20 54 4c 53 5f CL_INIT) == TLS_
0f10: 54 43 4c 5f 49 4e 49 54 29 20 7b 20 64 70 72 69 TCL_INIT) { dpri
0f20: 6e 74 66 42 75 66 66 65 72 5f 70 20 2b 3d 20 73 ntfBuffer_p += s
0f30: 70 72 69 6e 74 66 28 64 70 72 69 6e 74 66 42 75 printf(dprintfBu
0f40: 66 66 65 72 5f 70 2c 20 22 7c 54 4c 53 5f 54 43 ffer_p, "|TLS_TC
0f50: 4c 5f 49 4e 49 54 22 29 3b 20 7d 3b 20 5c 0a 09 L_INIT"); }; \..
0f60: 69 66 20 28 28 28 73 74 61 74 65 50 74 72 29 2d if (((statePtr)-
0f70: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
0f80: 5f 44 45 42 55 47 29 20 3d 3d 20 54 4c 53 5f 54 _DEBUG) == TLS_T
0f90: 43 4c 5f 44 45 42 55 47 29 20 7b 20 64 70 72 69 CL_DEBUG) { dpri
0fa0: 6e 74 66 42 75 66 66 65 72 5f 70 20 2b 3d 20 73 ntfBuffer_p += s
0fb0: 70 72 69 6e 74 66 28 64 70 72 69 6e 74 66 42 75 printf(dprintfBu
0fc0: 66 66 65 72 5f 70 2c 20 22 7c 54 4c 53 5f 54 43 ffer_p, "|TLS_TC
0fd0: 4c 5f 44 45 42 55 47 22 29 3b 20 7d 3b 20 5c 0a L_DEBUG"); }; \.
0fe0: 09 69 66 20 28 28 28 73 74 61 74 65 50 74 72 29 .if (((statePtr)
0ff0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
1000: 4c 5f 43 41 4c 4c 42 41 43 4b 29 20 3d 3d 20 54 L_CALLBACK) == T
1010: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 LS_TCL_CALLBACK)
1020: 20 7b 20 64 70 72 69 6e 74 66 42 75 66 66 65 72 { dprintfBuffer
1030: 5f 70 20 2b 3d 20 73 70 72 69 6e 74 66 28 64 70 _p += sprintf(dp
1040: 72 69 6e 74 66 42 75 66 66 65 72 5f 70 2c 20 22 rintfBuffer_p, "
1050: 7c 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 |TLS_TCL_CALLBAC
1060: 4b 22 29 3b 20 7d 3b 20 5c 0a 09 69 66 20 28 28 K"); }; \..if ((
1070: 28 73 74 61 74 65 50 74 72 29 2d 3e 66 6c 61 67 (statePtr)->flag
1080: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 41 54 41 s & TLS_TCL_FATA
1090: 4c 5f 45 52 52 4f 52 29 20 3d 3d 20 54 4c 53 5f L_ERROR) == TLS_
10a0: 54 43 4c 5f 46 41 54 41 4c 5f 45 52 52 4f 52 29 TCL_FATAL_ERROR)
10b0: 20 7b 20 64 70 72 69 6e 74 66 42 75 66 66 65 72 { dprintfBuffer
10c0: 5f 70 20 2b 3d 20 73 70 72 69 6e 74 66 28 64 70 _p += sprintf(dp
10d0: 72 69 6e 74 66 42 75 66 66 65 72 5f 70 2c 20 22 rintfBuffer_p, "
10e0: 7c 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 |TLS_TCL_FATAL_E
10f0: 52 52 4f 52 22 29 3b 20 7d 3b 20 5c 0a 09 69 66 RROR"); }; \..if
1100: 20 28 28 28 73 74 61 74 65 50 74 72 29 2d 3e 66 (((statePtr)->f
1110: 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f 46 lags & TLS_TCL_F
1120: 41 53 54 50 41 54 48 29 20 3d 3d 20 54 4c 53 5f ASTPATH) == TLS_
1130: 54 43 4c 5f 46 41 53 54 50 41 54 48 29 20 7b 20 TCL_FASTPATH) {
1140: 64 70 72 69 6e 74 66 42 75 66 66 65 72 5f 70 20 dprintfBuffer_p
1150: 2b 3d 20 73 70 72 69 6e 74 66 28 64 70 72 69 6e += sprintf(dprin
1160: 74 66 42 75 66 66 65 72 5f 70 2c 20 22 7c 54 4c tfBuffer_p, "|TL
1170: 53 5f 54 43 4c 5f 46 41 53 54 50 41 54 48 22 29 S_TCL_FASTPATH")
1180: 3b 20 7d 3b 20 5c 0a 09 66 70 72 69 6e 74 66 28 ; }; \..fprintf(
1190: 73 74 64 65 72 72 2c 20 22 25 73 5c 6e 22 2c 20 stderr, "%s\n",
11a0: 64 70 72 69 6e 74 66 42 75 66 66 65 72 29 3b 20 dprintfBuffer);
11b0: 5c 0a 7d 0a 23 65 6c 73 65 0a 23 64 65 66 69 6e \.}.#else.#defin
11c0: 65 20 64 70 72 69 6e 74 66 28 2e 2e 2e 29 20 69 e dprintf(...) i
11d0: 66 20 28 30 29 20 7b 20 66 70 72 69 6e 74 66 28 f (0) { fprintf(
11e0: 73 74 64 65 72 72 2c 20 5f 5f 56 41 5f 41 52 47 stderr, __VA_ARG
11f0: 53 5f 5f 29 3b 20 7d 0a 23 64 65 66 69 6e 65 20 S__); }.#define
1200: 64 70 72 69 6e 74 42 75 66 66 65 72 28 62 75 66 dprintBuffer(buf
1210: 66 65 72 4e 61 6d 65 2c 20 62 75 66 66 65 72 4c ferName, bufferL
1220: 65 6e 67 74 68 29 20 2f 2a 2a 2f 0a 23 64 65 66 ength) /**/.#def
1230: 69 6e 65 20 64 70 72 69 6e 74 46 6c 61 67 73 28 ine dprintFlags(
1240: 73 74 61 74 65 50 74 72 29 20 2f 2a 2a 2f 0a 23 statePtr) /**/.#
1250: 65 6e 64 69 66 0a 0a 23 64 65 66 69 6e 65 20 47 endif..#define G
1260: 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 09 ET_ERR_REASON().
1270: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
1280: 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 74 5f _string(ERR_get_
1290: 65 72 72 6f 72 28 29 29 0a 0a 2f 2a 20 43 6f 6d error())../* Com
12a0: 6d 6f 6e 20 6c 69 73 74 20 61 70 70 65 6e 64 20 mon list append
12b0: 6d 61 63 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e macros */.#defin
12c0: 65 20 4c 41 50 50 45 4e 44 5f 42 41 52 52 41 59 e LAPPEND_BARRAY
12d0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 2c 20 74 65 (interp, obj, te
12e0: 78 74 2c 20 76 61 6c 75 65 2c 20 73 69 7a 65 29 xt, value, size)
12f0: 20 7b 5c 0a 20 20 20 20 69 66 20 28 74 65 78 74 {\. if (text
1300: 20 21 3d 20 4e 55 4c 4c 29 20 54 63 6c 5f 4c 69 != NULL) Tcl_Li
1310: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
1320: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 2c 20 nt(interp, obj,
1330: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
1340: 28 74 65 78 74 2c 20 2d 31 29 29 3b 20 5c 0a 20 (text, -1)); \.
1350: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
1360: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
1370: 72 70 2c 20 6f 62 6a 2c 20 54 63 6c 5f 4e 65 77 rp, obj, Tcl_New
1380: 42 79 74 65 41 72 72 61 79 4f 62 6a 28 76 61 6c ByteArrayObj(val
1390: 75 65 2c 20 73 69 7a 65 29 29 3b 20 5c 0a 7d 0a ue, size)); \.}.
13a0: 23 64 65 66 69 6e 65 20 4c 41 50 50 45 4e 44 5f #define LAPPEND_
13b0: 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 2c STR(interp, obj,
13c0: 20 74 65 78 74 2c 20 76 61 6c 75 65 2c 20 73 69 text, value, si
13d0: 7a 65 29 20 7b 5c 0a 20 20 20 20 69 66 20 28 74 ze) {\. if (t
13e0: 65 78 74 20 21 3d 20 4e 55 4c 4c 29 20 54 63 6c ext != NULL) Tcl
13f0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1400: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 ement(interp, ob
1410: 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 j, Tcl_NewString
1420: 4f 62 6a 28 74 65 78 74 2c 20 2d 31 29 29 3b 20 Obj(text, -1));
1430: 5c 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 \. Tcl_ListOb
1440: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
1450: 6e 74 65 72 70 2c 20 6f 62 6a 2c 20 54 63 6c 5f nterp, obj, Tcl_
1460: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 76 61 6c NewStringObj(val
1470: 75 65 2c 20 73 69 7a 65 29 29 3b 20 5c 0a 7d 0a ue, size)); \.}.
1480: 23 64 65 66 69 6e 65 20 4c 41 50 50 45 4e 44 5f #define LAPPEND_
1490: 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a 2c INT(interp, obj,
14a0: 20 74 65 78 74 2c 20 76 61 6c 75 65 29 20 7b 5c text, value) {\
14b0: 0a 20 20 20 20 69 66 20 28 74 65 78 74 20 21 3d . if (text !=
14c0: 20 4e 55 4c 4c 29 20 54 63 6c 5f 4c 69 73 74 4f NULL) Tcl_ListO
14d0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
14e0: 69 6e 74 65 72 70 2c 20 6f 62 6a 2c 20 54 63 6c interp, obj, Tcl
14f0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 74 65 _NewStringObj(te
1500: 78 74 2c 20 2d 31 29 29 3b 20 5c 0a 20 20 20 20 xt, -1)); \.
1510: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1520: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
1530: 20 6f 62 6a 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 obj, Tcl_NewInt
1540: 4f 62 6a 28 76 61 6c 75 65 29 29 3b 20 5c 0a 7d Obj(value)); \.}
1550: 0a 23 64 65 66 69 6e 65 20 4c 41 50 50 45 4e 44 .#define LAPPEND
1560: 5f 4c 4f 4e 47 28 69 6e 74 65 72 70 2c 20 6f 62 _LONG(interp, ob
1570: 6a 2c 20 74 65 78 74 2c 20 76 61 6c 75 65 29 20 j, text, value)
1580: 7b 5c 0a 20 20 20 20 69 66 20 28 74 65 78 74 20 {\. if (text
1590: 21 3d 20 4e 55 4c 4c 29 20 54 63 6c 5f 4c 69 73 != NULL) Tcl_Lis
15a0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
15b0: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 2c 20 54 t(interp, obj, T
15c0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
15d0: 74 65 78 74 2c 20 2d 31 29 29 3b 20 5c 0a 20 20 text, -1)); \.
15e0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
15f0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
1600: 70 2c 20 6f 62 6a 2c 20 54 63 6c 5f 4e 65 77 4c p, obj, Tcl_NewL
1610: 6f 6e 67 4f 62 6a 28 76 61 6c 75 65 29 29 3b 20 ongObj(value));
1620: 5c 0a 7d 0a 23 64 65 66 69 6e 65 20 4c 41 50 50 \.}.#define LAPP
1630: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
1640: 20 6f 62 6a 2c 20 74 65 78 74 2c 20 76 61 6c 75 obj, text, valu
1650: 65 29 20 7b 5c 0a 20 20 20 20 69 66 20 28 74 65 e) {\. if (te
1660: 78 74 20 21 3d 20 4e 55 4c 4c 29 20 54 63 6c 5f xt != NULL) Tcl_
1670: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1680: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a ment(interp, obj
1690: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
16a0: 62 6a 28 74 65 78 74 2c 20 2d 31 29 29 3b 20 5c bj(text, -1)); \
16b0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
16c0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
16d0: 74 65 72 70 2c 20 6f 62 6a 2c 20 54 63 6c 5f 4e terp, obj, Tcl_N
16e0: 65 77 42 6f 6f 6c 65 61 6e 4f 62 6a 28 76 61 6c ewBooleanObj(val
16f0: 75 65 29 29 3b 20 5c 0a 7d 0a 23 64 65 66 69 6e ue)); \.}.#defin
1700: 65 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 6e e LAPPEND_OBJ(in
1710: 74 65 72 70 2c 20 6f 62 6a 2c 20 74 65 78 74 2c terp, obj, text,
1720: 20 74 63 6c 4f 62 6a 29 20 7b 5c 0a 20 20 20 20 tclObj) {\.
1730: 69 66 20 28 74 65 78 74 20 21 3d 20 4e 55 4c 4c if (text != NULL
1740: 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ) Tcl_ListObjApp
1750: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
1760: 70 2c 20 6f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 p, obj, Tcl_NewS
1770: 74 72 69 6e 67 4f 62 6a 28 74 65 78 74 2c 20 2d tringObj(text, -
1780: 31 29 29 3b 20 5c 0a 20 20 20 20 54 63 6c 5f 4c 1)); \. Tcl_L
1790: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
17a0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 2c ent(interp, obj,
17b0: 20 28 74 63 6c 4f 62 6a 20 21 3d 20 4e 55 4c 4c (tclObj != NULL
17c0: 29 20 3f 20 74 63 6c 4f 62 6a 20 3a 20 54 63 6c ) ? tclObj : Tcl
17d0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 22 _NewStringObj(""
17e0: 2c 20 30 29 29 3b 20 5c 0a 7d 0a 23 64 65 66 69 , 0)); \.}.#defi
17f0: 6e 65 20 4c 41 50 50 45 4e 44 5f 57 49 44 45 28 ne LAPPEND_WIDE(
1800: 69 6e 74 65 72 70 2c 20 6f 62 6a 2c 20 74 65 78 interp, obj, tex
1810: 74 2c 20 76 61 6c 75 65 29 20 7b 5c 0a 20 20 20 t, value) {\.
1820: 20 69 66 20 28 74 65 78 74 20 21 3d 20 4e 55 4c if (text != NUL
1830: 4c 29 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 L) Tcl_ListObjAp
1840: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
1850: 72 70 2c 20 6f 62 6a 2c 20 54 63 6c 5f 4e 65 77 rp, obj, Tcl_New
1860: 53 74 72 69 6e 67 4f 62 6a 28 74 65 78 74 2c 20 StringObj(text,
1870: 2d 31 29 29 3b 20 5c 0a 20 20 20 20 54 63 6c 5f -1)); \. Tcl_
1880: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1890: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a ment(interp, obj
18a0: 2c 20 54 63 6c 5f 4e 65 77 57 69 64 65 49 6e 74 , Tcl_NewWideInt
18b0: 4f 62 6a 28 76 61 6c 75 65 29 29 3b 20 5c 0a 7d Obj(value)); \.}
18c0: 0a 0a 2f 2a 0a 20 2a 20 44 65 66 69 6e 65 73 20 ../*. * Defines
18d0: 66 6f 72 20 53 74 61 74 65 2e 66 6c 61 67 73 0a for State.flags.
18e0: 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f */.#define TLS_
18f0: 54 43 4c 5f 41 53 59 4e 43 09 09 28 31 3c 3c 30 TCL_ASYNC..(1<<0
1900: 29 09 2f 2a 20 4e 6f 6e 2d 62 6c 6f 63 6b 69 6e )./* Non-blockin
1910: 67 20 6d 6f 64 65 20 2a 2f 0a 23 64 65 66 69 6e g mode */.#defin
1920: 65 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 e TLS_TCL_SERVER
1930: 09 09 28 31 3c 3c 31 29 09 2f 2a 20 53 65 72 76 ..(1<<1)./* Serv
1940: 65 72 2d 53 69 64 65 20 2a 2f 0a 23 64 65 66 69 er-Side */.#defi
1950: 6e 65 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 09 ne TLS_TCL_INIT.
1960: 09 28 31 3c 3c 32 29 09 2f 2a 20 49 6e 69 74 69 .(1<<2)./* Initi
1970: 61 6c 69 7a 69 6e 67 20 63 6f 6e 6e 65 63 74 69 alizing connecti
1980: 6f 6e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 4c on */.#define TL
1990: 53 5f 54 43 4c 5f 44 45 42 55 47 09 09 28 31 3c S_TCL_DEBUG..(1<
19a0: 3c 33 29 09 2f 2a 20 53 68 6f 77 20 64 65 62 75 <3)./* Show debu
19b0: 67 20 74 72 61 63 69 6e 67 20 2a 2f 0a 23 64 65 g tracing */.#de
19c0: 66 69 6e 65 20 54 4c 53 5f 54 43 4c 5f 43 41 4c fine TLS_TCL_CAL
19d0: 4c 42 41 43 4b 09 28 31 3c 3c 34 29 09 2f 2a 20 LBACK.(1<<4)./*
19e0: 49 6e 20 61 20 63 61 6c 6c 62 61 63 6b 2c 20 70 In a callback, p
19f0: 72 65 76 65 6e 74 20 75 70 64 61 74 65 0a 09 09 revent update...
1a00: 09 09 09 20 2a 20 6c 6f 6f 70 69 6e 67 20 70 72 ... * looping pr
1a10: 6f 62 6c 65 6d 2e 20 5b 42 75 67 20 31 36 35 32 oblem. [Bug 1652
1a20: 33 38 30 5d 20 2a 2f 0a 23 64 65 66 69 6e 65 20 380] */.#define
1a30: 54 4c 53 5f 54 43 4c 5f 46 41 54 41 4c 5f 45 52 TLS_TCL_FATAL_ER
1a40: 52 4f 52 09 28 31 3c 3c 35 29 09 2f 2a 20 53 65 ROR.(1<<5)./* Se
1a50: 74 20 6f 6e 20 68 61 6e 64 73 68 61 6b 65 20 66 t on handshake f
1a60: 61 69 6c 75 72 65 20 6f 72 20 6f 74 68 65 72 20 ailure or other
1a70: 66 61 74 61 6c 20 65 72 72 6f 72 2e 20 41 6c 6c fatal error. All
1a80: 0a 09 09 09 09 09 20 2a 20 66 75 72 74 68 65 72 ...... * further
1a90: 20 49 2f 4f 20 77 69 6c 6c 20 72 65 73 75 6c 74 I/O will result
1aa0: 20 69 6e 20 45 43 4f 4e 4e 41 42 4f 52 54 45 44 in ECONNABORTED
1ab0: 20 65 72 72 6f 72 73 2e 20 2a 2f 0a 23 64 65 66 errors. */.#def
1ac0: 69 6e 65 20 54 4c 53 5f 54 43 4c 5f 46 41 53 54 ine TLS_TCL_FAST
1ad0: 50 41 54 48 09 28 31 3c 3c 36 29 09 2f 2a 20 54 PATH.(1<<6)./* T
1ae0: 68 65 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 he parent channe
1af0: 6c 20 69 73 20 62 65 69 6e 67 20 75 73 65 64 0a l is being used.
1b00: 09 09 09 09 09 20 2a 20 64 69 72 65 63 74 6c 79 ..... * directly
1b10: 20 62 79 20 74 68 65 20 53 53 4c 20 6c 69 62 72 by the SSL libr
1b20: 61 72 79 2e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ary. */.#define
1b30: 54 4c 53 5f 54 43 4c 5f 45 4f 46 09 09 28 31 3c TLS_TCL_EOF..(1<
1b40: 3c 37 29 09 2f 2a 20 41 74 20 45 4f 46 2e 20 43 <7)./* At EOF. C
1b50: 61 6e 27 74 20 72 65 61 64 2c 20 62 75 74 20 63 an't read, but c
1b60: 61 6e 20 77 72 69 74 65 2e 20 2a 2f 0a 23 64 65 an write. */.#de
1b70: 66 69 6e 65 20 54 4c 53 5f 54 43 4c 5f 43 4c 4f fine TLS_TCL_CLO
1b80: 53 45 44 09 09 28 31 3c 3c 38 29 09 2f 2a 20 43 SED..(1<<8)./* C
1b90: 68 61 6e 20 63 6c 6f 73 65 64 2e 20 43 61 6e 27 han closed. Can'
1ba0: 74 20 77 72 69 74 65 2c 20 62 75 74 20 63 61 6e t write, but can
1bb0: 20 72 65 61 64 2e 20 2a 2f 0a 0a 2f 2a 20 53 65 read. */../* Se
1bc0: 74 20 74 69 6d 65 72 20 64 65 6c 61 79 20 2a 2f t timer delay */
1bd0: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 54 43 4c .#define TLS_TCL
1be0: 5f 44 45 4c 41 59 20 28 35 29 0a 0a 2f 2a 0a 20 _DELAY (5)../*.
1bf0: 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 65 * This structure
1c00: 20 64 65 73 63 72 69 62 65 73 20 74 68 65 20 70 describes the p
1c10: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
1c20: 65 20 6f 66 20 61 6e 20 53 53 4c 20 63 68 61 6e e of an SSL chan
1c30: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 54 68 65 20 53 nel.. *. * The S
1c40: 53 4c 20 70 72 6f 63 65 73 73 69 6e 67 20 63 6f SL processing co
1c50: 6e 74 65 78 74 20 69 73 20 6d 61 69 6e 74 61 69 ntext is maintai
1c60: 6e 65 64 20 68 65 72 65 2c 20 69 6e 20 74 68 65 ned here, in the
1c70: 20 43 6c 69 65 6e 74 44 61 74 61 0a 20 2a 2f 0a ClientData. */.
1c80: 74 79 70 65 64 65 66 20 73 74 72 75 63 74 20 53 typedef struct S
1c90: 74 61 74 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e tate {..Tcl_Chan
1ca0: 6e 65 6c 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 nel self;./* Thi
1cb0: 73 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c s socket channel
1cc0: 20 2a 2f 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f */..Tcl_TimerTo
1cd0: 6b 65 6e 20 74 69 6d 65 72 3b 09 2f 2a 20 49 2f ken timer;./* I/
1ce0: 4f 20 74 69 6d 65 72 20 68 61 6e 64 6c 65 20 2a O timer handle *
1cf0: 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b 09 09 /...int flags;..
1d00: 2f 2a 20 53 65 65 20 53 74 61 74 65 2e 66 6c 61 /* See State.fla
1d10: 67 73 20 61 62 6f 76 65 20 20 2a 2f 0a 09 69 6e gs above */..in
1d20: 74 20 77 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a t watchMask;../*
1d30: 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 50 72 Current WatchPr
1d40: 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 oc mask */..int
1d50: 77 61 6e 74 3b 09 09 2f 2a 20 50 65 6e 64 69 6e want;../* Pendin
1d60: 67 20 77 61 6e 74 73 20 66 72 6f 6d 20 4f 70 65 g wants from Ope
1d70: 6e 53 53 4c 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 nSSL */..int mod
1d80: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
1d90: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
1da0: 61 6e 6e 65 6c 20 2a 2f 0a 0a 09 54 63 6c 5f 49 annel */...Tcl_I
1db0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 2f nterp *interp;./
1dc0: 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 69 6e * Interpreter in
1dd0: 20 77 68 69 63 68 20 74 68 69 73 20 72 65 73 69 which this resi
1de0: 64 65 73 20 2a 2f 0a 09 54 63 6c 5f 4f 62 6a 20 des */..Tcl_Obj
1df0: 2a 63 61 6c 6c 62 61 63 6b 3b 09 2f 2a 20 53 63 *callback;./* Sc
1e00: 72 69 70 74 20 63 61 6c 6c 65 64 20 66 6f 72 20 ript called for
1e10: 74 72 61 63 69 6e 67 2c 20 69 6e 66 6f 2c 20 61 tracing, info, a
1e20: 6e 64 20 65 72 72 6f 72 73 20 2a 2f 0a 09 54 63 nd errors */..Tc
1e30: 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64 3b l_Obj *password;
1e40: 09 2f 2a 20 53 63 72 69 70 74 20 63 61 6c 6c 65 ./* Script calle
1e50: 64 20 66 6f 72 20 63 65 72 74 69 66 69 63 61 74 d for certificat
1e60: 65 20 70 61 73 73 77 6f 72 64 20 2a 2f 0a 09 54 e password */..T
1e70: 63 6c 5f 4f 62 6a 20 2a 76 63 6d 64 3b 09 09 2f cl_Obj *vcmd;../
1e80: 2a 20 53 63 72 69 70 74 20 63 61 6c 6c 65 64 20 * Script called
1e90: 74 6f 20 76 65 72 69 66 79 20 6f 72 20 76 61 6c to verify or val
1ea0: 69 64 61 74 65 20 70 72 6f 74 6f 63 6f 6c 20 63 idate protocol c
1eb0: 6f 6e 66 69 67 20 2a 2f 0a 0a 09 69 6e 74 20 76 onfig */...int v
1ec0: 66 6c 61 67 73 3b 09 09 2f 2a 20 56 65 72 69 66 flags;../* Verif
1ed0: 79 20 66 6c 61 67 73 20 2a 2f 0a 09 53 53 4c 20 y flags */..SSL
1ee0: 2a 73 73 6c 3b 09 09 2f 2a 20 53 74 72 75 63 74 *ssl;../* Struct
1ef0: 20 66 6f 72 20 53 53 4c 20 70 72 6f 63 65 73 73 for SSL process
1f00: 69 6e 67 20 2a 2f 0a 09 53 53 4c 5f 43 54 58 20 ing */..SSL_CTX
1f10: 2a 63 74 78 3b 09 09 2f 2a 20 53 53 4c 20 43 6f *ctx;../* SSL Co
1f20: 6e 74 65 78 74 20 2a 2f 0a 09 42 49 4f 20 2a 62 ntext */..BIO *b
1f30: 69 6f 3b 09 09 2f 2a 20 53 74 72 75 63 74 20 66 io;../* Struct f
1f40: 6f 72 20 53 53 4c 20 70 72 6f 63 65 73 73 69 6e or SSL processin
1f50: 67 20 2a 2f 0a 09 42 49 4f 20 2a 70 5f 62 69 6f g */..BIO *p_bio
1f60: 3b 09 09 2f 2a 20 50 61 72 65 6e 74 20 42 49 4f ;../* Parent BIO
1f70: 20 28 74 68 61 74 20 69 73 20 6c 61 79 65 72 65 (that is layere
1f80: 64 20 6f 6e 20 54 63 6c 5f 43 68 61 6e 6e 65 6c d on Tcl_Channel
1f90: 29 20 2a 2f 0a 0a 09 73 69 7a 65 5f 74 20 70 72 ) */...size_t pr
1fa0: 6f 74 6f 73 5f 6c 65 6e 3b 20 2f 2a 20 4c 65 6e otos_len; /* Len
1fb0: 67 74 68 20 6f 66 20 70 72 6f 74 6f 73 20 2a 2f gth of protos */
1fc0: 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ..unsigned char
1fd0: 2a 70 72 6f 74 6f 73 3b 09 2f 2a 20 4c 69 73 74 *protos;./* List
1fe0: 20 6f 66 20 73 75 70 70 6f 72 74 65 64 20 70 72 of supported pr
1ff0: 6f 74 6f 63 6f 6c 73 20 69 6e 20 70 72 6f 74 6f otocols in proto
2000: 63 6f 6c 20 66 6f 72 6d 61 74 20 2a 2f 0a 0a 09 col format */...
2010: 63 6f 6e 73 74 20 63 68 61 72 20 2a 65 72 72 3b const char *err;
2020: 0a 7d 20 53 74 61 74 65 3b 0a 0a 23 69 66 64 65 .} State;..#ifde
2030: 66 20 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a f USE_TCL_STUBS.
2040: 23 69 66 6e 64 65 66 20 54 63 6c 5f 53 74 61 63 #ifndef Tcl_Stac
2050: 6b 43 68 61 6e 6e 65 6c 0a 23 65 72 72 6f 72 20 kChannel.#error
2060: 22 55 6e 61 62 6c 65 20 74 6f 20 63 6f 6d 70 69 "Unable to compi
2070: 6c 65 20 6f 6e 20 74 68 69 73 20 76 65 72 73 69 le on this versi
2080: 6f 6e 20 6f 66 20 54 63 6c 22 0a 23 65 6e 64 69 on of Tcl".#endi
2090: 66 20 2f 2a 20 54 63 6c 5f 47 65 74 53 74 61 63 f /* Tcl_GetStac
20a0: 6b 65 64 43 68 61 6e 6e 65 6c 20 2a 2f 0a 23 65 kedChannel */.#e
20b0: 6e 64 69 66 20 2f 2a 20 55 53 45 5f 54 43 4c 5f ndif /* USE_TCL_
20c0: 53 54 55 42 53 20 2a 2f 0a 0a 23 69 66 20 54 43 STUBS */..#if TC
20d0: 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 L_MAJOR_VERSION
20e0: 3c 20 39 0a 20 20 20 20 74 79 70 65 64 65 66 20 < 9. typedef
20f0: 63 68 61 72 20 74 6c 73 5f 66 72 65 65 5f 74 79 char tls_free_ty
2100: 70 65 3b 0a 23 65 6c 73 65 0a 20 20 20 20 74 79 pe;.#else. ty
2110: 70 65 64 65 66 20 76 6f 69 64 20 74 6c 73 5f 66 pedef void tls_f
2120: 72 65 65 5f 74 79 70 65 3b 0a 23 65 6e 64 69 66 ree_type;.#endif
2130: 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 ../*. * Forward
2140: 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f declarations. */
2150: 0a 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e .const Tcl_Chann
2160: 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 68 61 6e elType *Tls_Chan
2170: 6e 65 6c 54 79 70 65 28 76 6f 69 64 29 3b 0a 54 nelType(void);.T
2180: 63 6c 5f 43 68 61 6e 6e 65 6c 09 54 6c 73 5f 47 cl_Channel.Tls_G
2190: 65 74 50 61 72 65 6e 74 28 53 74 61 74 65 20 2a etParent(State *
21a0: 73 74 61 74 65 50 74 72 2c 20 69 6e 74 20 6d 61 statePtr, int ma
21b0: 73 6b 46 6c 61 67 73 29 3b 0a 0a 54 63 6c 5f 4f skFlags);..Tcl_O
21c0: 62 6a 09 09 2a 54 6c 73 5f 4e 65 77 58 35 30 39 bj..*Tls_NewX509
21d0: 4f 62 6a 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a Obj(Tcl_Interp *
21e0: 69 6e 74 65 72 70 2c 20 58 35 30 39 20 2a 63 65 interp, X509 *ce
21f0: 72 74 2c 20 69 6e 74 20 61 6c 6c 29 3b 0a 54 63 rt, int all);.Tc
2200: 6c 5f 4f 62 6a 09 09 2a 54 6c 73 5f 4e 65 77 43 l_Obj..*Tls_NewC
2210: 41 4f 62 6a 28 54 63 6c 5f 49 6e 74 65 72 70 20 AObj(Tcl_Interp
2220: 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 53 *interp, const S
2230: 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 70 65 65 SL *ssl, int pee
2240: 72 29 3b 0a 76 6f 69 64 09 09 54 6c 73 5f 45 72 r);.void..Tls_Er
2250: 72 6f 72 28 53 74 61 74 65 20 2a 73 74 61 74 65 ror(State *state
2260: 50 74 72 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 Ptr, const char
2270: 2a 6d 73 67 29 3b 0a 76 6f 69 64 09 09 54 6c 73 *msg);.void..Tls
2280: 5f 46 72 65 65 28 74 6c 73 5f 66 72 65 65 5f 74 _Free(tls_free_t
2290: 79 70 65 20 2a 62 6c 6f 63 6b 50 74 72 29 3b 0a ype *blockPtr);.
22a0: 69 6e 74 09 09 54 6c 73 5f 57 61 69 74 46 6f 72 int..Tls_WaitFor
22b0: 43 6f 6e 6e 65 63 74 28 53 74 61 74 65 20 2a 73 Connect(State *s
22c0: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 2a 65 72 tatePtr, int *er
22d0: 72 6f 72 43 6f 64 65 50 74 72 2c 20 69 6e 74 20 rorCodePtr, int
22e0: 68 61 6e 64 73 68 61 6b 65 46 61 69 6c 75 72 65 handshakeFailure
22f0: 49 73 50 65 72 6d 61 6e 65 6e 74 29 3b 0a 0a 42 IsPermanent);..B
2300: 49 4f 09 09 2a 42 49 4f 5f 6e 65 77 5f 74 63 6c IO..*BIO_new_tcl
2310: 28 53 74 61 74 65 2a 20 73 74 61 74 65 50 74 72 (State* statePtr
2320: 2c 20 69 6e 74 20 66 6c 61 67 73 29 3b 0a 69 6e , int flags);.in
2330: 74 09 09 42 49 4f 5f 63 6c 65 61 6e 75 70 28 29 t..BIO_cleanup()
2340: 3b 0a 0a 23 64 65 66 69 6e 65 20 50 54 52 32 49 ;..#define PTR2I
2350: 4e 54 28 78 29 20 28 28 69 6e 74 29 20 28 28 69 NT(x) ((int) ((i
2360: 6e 74 70 74 72 5f 74 29 20 28 78 29 29 29 0a 0a ntptr_t) (x)))..
2370: 23 65 6e 64 69 66 20 2f 2a 20 5f 54 4c 53 49 4e #endif /* _TLSIN
2380: 54 5f 48 20 2a 2f 0a T_H */.