TclTLS: Hex Artifact Content

Artifact 45743e25af64232c8a80ed8c9f26903e445825ff:

File tlsInt.h — part of check-in [e7ef654f47] at 2000-08-15 18:49:30 on branch trunk — * tlsInt.h: * tls.c: * tlsIO.c: corrected structure initialization to work when compiling with 8.2. Now compiles with 8.2+ and tested to work with 8.2+ and dynamically adjust to the version of Tcl it was loaded into. TLS will fail the test suite with Tcl 8.2-8.3.1. (user: hobbs, size: 6877) [annotate] [blame] [check-ins using]
0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20  /*. * Copyright 
0010: 28 43 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61  (C) 1997-2000 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40  tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a  novadigm.com>. *
0040: 0a 20 2a 20 24 48 65 61 64 65 72 3a 20 2f 68 6f  . * $Header: /ho
0050: 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 2f 63 76  me/rkeene/tmp/cv
0060: 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 63 6c 74  s2fossil/../tclt
0070: 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c 73 49 6e  ls/tls/tls/tlsIn
0080: 74 2e 68 2c 76 20 31 2e 37 20 32 30 30 30 2f 30  t.h,v 1.7 2000/0
0090: 38 2f 31 35 20 31 38 3a 34 39 3a 33 31 20 68 6f  8/15 18:49:31 ho
00a0: 62 62 73 20 45 78 70 20 24 0a 20 2a 0a 20 2a 20  bbs Exp $. *. * 
00b0: 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 20 43 68  TLS (aka SSL) Ch
00c0: 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 65 20 6c  annel - can be l
00d0: 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 20 62 69  ayered on any bi
00e0: 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a 20 2a 20  -directional. * 
00f0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 4e 6f 74  Tcl_Channel (Not
0100: 65 3a 20 52 65 71 75 69 72 65 73 20 54 72 66 20  e: Requires Trf 
0110: 43 6f 72 65 20 50 61 74 63 68 29 0a 20 2a 0a 20  Core Patch). *. 
0120: 2a 20 54 68 69 73 20 77 61 73 20 62 75 69 6c 74  * This was built
0130: 20 66 72 6f 6d 20 73 63 72 61 74 63 68 20 62 61   from scratch ba
0140: 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 76 61  sed upon observa
0150: 74 69 6f 6e 20 6f 66 20 4f 70 65 6e 53 53 4c 20  tion of OpenSSL 
0160: 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64  0.9.2B. *. * Add
0170: 69 74 69 6f 6e 20 63 72 65 64 69 74 20 69 73 20  ition credit is 
0180: 64 75 65 20 66 6f 72 20 41 6e 64 72 65 61 73 20  due for Andreas 
0190: 4b 75 70 72 69 65 73 20 28 61 2e 6b 75 70 72 69  Kupries (a.kupri
01a0: 65 73 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c  es@westend.com),
01b0: 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e   for. * providin
01c0: 67 20 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 63  g the Tcl_Replac
01d0: 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69  eChannel mechani
01e0: 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63  sm and working c
01f0: 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d 65 0a 20  losely with me. 
0200: 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 20  * to enhance it 
0210: 74 6f 20 73 75 70 70 6f 72 74 20 66 75 6c 6c 20  to support full 
0220: 66 69 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e 74  fileevent semant
0230: 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20  ics.. *. * Also 
0240: 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 65  work done by the
0250: 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70   follow people p
0260: 72 6f 76 69 64 65 64 20 74 68 65 20 69 6d 70 65  rovided the impe
0270: 74 75 73 20 74 6f 20 64 6f 20 74 68 69 73 20 22  tus to do this "
0280: 72 69 67 68 74 22 3a 2d 0a 20 2a 09 74 63 6c 53  right":-. *.tclS
0290: 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d  SL (Colin McCorm
02a0: 61 63 6b 2c 20 53 68 61 72 65 64 20 54 65 63 68  ack, Shared Tech
02b0: 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c 74 63  nology). *.SSLtc
02c0: 6c 20 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29  l (Peter Antman)
02d0: 0a 20 2a 0a 20 2a 2f 0a 23 69 66 6e 64 65 66 20  . *. */.#ifndef 
02e0: 5f 54 53 4c 49 4e 54 5f 48 0a 23 64 65 66 69 6e  _TSLINT_H.#defin
02f0: 65 20 5f 54 4c 53 49 4e 54 5f 48 0a 0a 23 69 6e  e _TLSINT_H..#in
0300: 63 6c 75 64 65 20 22 74 6c 73 2e 68 22 0a 23 69  clude "tls.h".#i
0310: 6e 63 6c 75 64 65 20 3c 65 72 72 6e 6f 2e 68 3e  nclude <errno.h>
0320: 0a 0a 23 69 66 64 65 66 20 4e 4f 5f 50 41 54 45  ..#ifdef NO_PATE
0330: 4e 54 53 0a 23 64 65 66 69 6e 65 20 4e 4f 5f 49  NTS.#define NO_I
0340: 44 45 41 0a 23 64 65 66 69 6e 65 20 4e 4f 5f 52  DEA.#define NO_R
0350: 43 32 0a 23 64 65 66 69 6e 65 20 4e 4f 5f 52 43  C2.#define NO_RC
0360: 34 0a 23 64 65 66 69 6e 65 20 4e 4f 5f 52 43 35  4.#define NO_RC5
0370: 0a 23 64 65 66 69 6e 65 20 4e 4f 5f 52 53 41 0a  .#define NO_RSA.
0380: 23 64 65 66 69 6e 65 20 4e 4f 5f 53 53 4c 32 0a  #define NO_SSL2.
0390: 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 42  #endif..#ifdef B
03a0: 53 41 46 45 0a 23 69 6e 63 6c 75 64 65 20 3c 73  SAFE.#include <s
03b0: 73 6c 2e 68 3e 0a 23 65 6c 73 65 0a 23 69 6e 63  sl.h>.#else.#inc
03c0: 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 73 73  lude <openssl/ss
03d0: 6c 2e 68 3e 0a 23 65 6e 64 69 66 0a 0a 23 69 66  l.h>.#endif..#if
03e0: 64 65 66 20 54 43 4c 5f 53 54 4f 52 41 47 45 5f  def TCL_STORAGE_
03f0: 43 4c 41 53 53 0a 23 20 75 6e 64 65 66 20 54 43  CLASS.# undef TC
0400: 4c 5f 53 54 4f 52 41 47 45 5f 43 4c 41 53 53 0a  L_STORAGE_CLASS.
0410: 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 42 55  #endif.#ifdef BU
0420: 49 4c 44 5f 74 6c 73 0a 23 20 64 65 66 69 6e 65  ILD_tls.# define
0430: 20 54 43 4c 5f 53 54 4f 52 41 47 45 5f 43 4c 41   TCL_STORAGE_CLA
0440: 53 53 20 44 4c 4c 45 58 50 4f 52 54 0a 23 65 6c  SS DLLEXPORT.#el
0450: 73 65 0a 23 20 64 65 66 69 6e 65 20 54 43 4c 5f  se.# define TCL_
0460: 53 54 4f 52 41 47 45 5f 43 4c 41 53 53 20 44 4c  STORAGE_CLASS DL
0470: 4c 49 4d 50 4f 52 54 0a 23 65 6e 64 69 66 0a 20  LIMPORT.#endif. 
0480: 0a 23 69 66 6e 64 65 66 20 45 43 4f 4e 4e 41 42  .#ifndef ECONNAB
0490: 4f 52 54 45 44 0a 23 64 65 66 69 6e 65 20 45 43  ORTED.#define EC
04a0: 4f 4e 4e 41 42 4f 52 54 45 44 09 31 33 30 09 2f  ONNABORTED.130./
04b0: 2a 20 53 6f 66 74 77 61 72 65 20 63 61 75 73 65  * Software cause
04c0: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 61 62 6f  d connection abo
04d0: 72 74 20 2a 2f 0a 23 65 6e 64 69 66 0a 23 69 66  rt */.#endif.#if
04e0: 6e 64 65 66 20 45 43 4f 4e 4e 52 45 53 45 54 0a  ndef ECONNRESET.
04f0: 23 64 65 66 69 6e 65 20 45 43 4f 4e 4e 52 45 53  #define ECONNRES
0500: 45 54 09 31 33 31 09 2f 2a 20 43 6f 6e 6e 65 63  ET.131./* Connec
0510: 74 69 6f 6e 20 72 65 73 65 74 20 62 79 20 70 65  tion reset by pe
0520: 65 72 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a 23 69  er */.#endif..#i
0530: 66 64 65 66 20 44 45 42 55 47 0a 23 64 65 66 69  fdef DEBUG.#defi
0540: 6e 65 20 64 70 72 69 6e 74 66 20 66 70 72 69 6e  ne dprintf fprin
0550: 74 66 0a 23 65 6c 73 65 0a 23 64 65 66 69 6e 65  tf.#else.#define
0560: 20 64 70 72 69 6e 74 66 20 69 66 20 28 30 29 20   dprintf if (0) 
0570: 66 70 72 69 6e 74 66 0a 23 65 6e 64 69 66 0a 0a  fprintf.#endif..
0580: 23 64 65 66 69 6e 65 20 53 53 4c 5f 45 52 52 4f  #define SSL_ERRO
0590: 52 28 73 73 6c 2c 65 72 72 29 09 5c 0a 09 20 20  R(ssl,err).\..  
05a0: 20 20 28 28 63 68 61 72 2a 29 45 52 52 5f 72 65    ((char*)ERR_re
05b0: 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e  ason_error_strin
05c0: 67 28 53 53 4c 5f 67 65 74 5f 65 72 72 6f 72 28  g(SSL_get_error(
05d0: 28 73 73 6c 29 2c 28 65 72 72 29 29 29 29 0a 2f  (ssl),(err))))./
05e0: 2a 0a 20 2a 20 4f 70 65 6e 53 53 4c 20 42 49 4f  *. * OpenSSL BIO
05f0: 20 52 6f 75 74 69 6e 65 73 0a 20 2a 2f 0a 23 64   Routines. */.#d
0600: 65 66 69 6e 65 20 42 49 4f 5f 54 59 50 45 5f 54  efine BIO_TYPE_T
0610: 43 4c 09 28 31 39 7c 30 78 30 34 30 30 29 0a 0a  CL.(19|0x0400)..
0620: 2f 2a 0a 20 2a 20 44 65 66 69 6e 65 73 20 66 6f  /*. * Defines fo
0630: 72 20 53 74 61 74 65 2e 66 6c 61 67 73 0a 20 2a  r State.flags. *
0640: 2f 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 54 43  /.#define TLS_TC
0650: 4c 5f 41 53 59 4e 43 09 28 31 3c 3c 30 29 09 2f  L_ASYNC.(1<<0)./
0660: 2a 20 6e 6f 6e 2d 62 6c 6f 63 6b 69 6e 67 20 6d  * non-blocking m
0670: 6f 64 65 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54  ode */.#define T
0680: 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 09 28 31  LS_TCL_SERVER.(1
0690: 3c 3c 31 29 09 2f 2a 20 53 65 72 76 65 72 2d 53  <<1)./* Server-S
06a0: 69 64 65 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54  ide */.#define T
06b0: 4c 53 5f 54 43 4c 5f 49 4e 49 54 09 28 31 3c 3c  LS_TCL_INIT.(1<<
06c0: 32 29 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 69  2)./* Initializi
06d0: 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 2a 2f  ng connection */
06e0: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 54 43 4c  .#define TLS_TCL
06f0: 5f 44 45 42 55 47 09 28 31 3c 3c 33 29 09 2f 2a  _DEBUG.(1<<3)./*
0700: 20 53 68 6f 77 20 64 65 62 75 67 20 74 72 61 63   Show debug trac
0710: 69 6e 67 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20  ing */..#define 
0720: 54 4c 53 5f 54 43 4c 5f 44 45 4c 41 59 20 28 35  TLS_TCL_DELAY (5
0730: 29 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 20 73 74  )../*. * This st
0740: 72 75 63 74 75 72 65 20 64 65 73 63 72 69 62 65  ructure describe
0750: 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 6e  s the per-instan
0760: 63 65 20 73 74 61 74 65 0a 20 2a 20 6f 66 20 61  ce state. * of a
0770: 6e 20 73 73 6c 20 63 68 61 6e 6e 65 6c 2e 0a 20  n ssl channel.. 
0780: 2a 0a 20 2a 20 54 68 65 20 53 53 4c 20 70 72 6f  *. * The SSL pro
0790: 63 65 73 73 69 6e 67 20 63 6f 6e 74 65 78 74 20  cessing context 
07a0: 69 73 20 6d 61 69 6e 74 61 69 6e 65 64 20 68 65  is maintained he
07b0: 72 65 2c 20 69 6e 20 74 68 65 20 43 6c 69 65 6e  re, in the Clien
07c0: 74 44 61 74 61 0a 20 2a 2f 0a 74 79 70 65 64 65  tData. */.typede
07d0: 66 20 73 74 72 75 63 74 20 53 74 61 74 65 20 7b  f struct State {
07e0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c  .    Tcl_Channel
07f0: 20 73 65 6c 66 3b 09 2f 2a 20 74 68 69 73 20 73   self;./* this s
0800: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f  ocket channel */
0810: 0a 20 20 20 20 54 63 6c 5f 54 69 6d 65 72 54 6f  .    Tcl_TimerTo
0820: 6b 65 6e 20 74 69 6d 65 72 3b 0a 0a 20 20 20 20  ken timer;..    
0830: 69 6e 74 20 66 6c 61 67 73 3b 09 09 2f 2a 20 63  int flags;../* c
0840: 75 72 72 65 6e 74 6c 79 20 6f 6e 6c 79 20 43 48  urrently only CH
0850: 41 4e 4e 45 4c 5f 41 53 59 4e 43 20 2a 2f 0a 20  ANNEL_ASYNC */. 
0860: 20 20 20 69 6e 74 20 77 61 74 63 68 4d 61 73 6b     int watchMask
0870: 3b 09 2f 2a 20 63 75 72 72 65 6e 74 20 57 61 74  ;./* current Wat
0880: 63 68 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 20  chProc mask */. 
0890: 20 20 20 69 6e 74 20 6d 6f 64 65 3b 09 09 2f 2a     int mode;../*
08a0: 20 63 75 72 72 65 6e 74 20 6d 6f 64 65 20 6f 66   current mode of
08b0: 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20   parent channel 
08c0: 2a 2f 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65  */..    Tcl_Inte
08d0: 72 70 20 2a 69 6e 74 65 72 70 3b 09 2f 2a 20 69  rp *interp;./* i
08e0: 6e 74 65 72 70 72 65 74 65 72 20 69 6e 20 77 68  nterpreter in wh
08f0: 69 63 68 20 74 68 69 73 20 72 65 73 69 64 65 73  ich this resides
0900: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20   */.    Tcl_Obj 
0910: 2a 63 61 6c 6c 62 61 63 6b 3b 09 2f 2a 20 73 63  *callback;./* sc
0920: 72 69 70 74 20 63 61 6c 6c 65 64 20 66 6f 72 20  ript called for 
0930: 74 72 61 63 69 6e 67 2c 20 76 65 72 69 66 79 69  tracing, verifyi
0940: 6e 67 20 61 6e 64 20 65 72 72 6f 72 73 20 2a 2f  ng and errors */
0950: 0a 0a 20 20 20 20 69 6e 74 20 76 66 6c 61 67 73  ..    int vflags
0960: 3b 09 09 2f 2a 20 76 65 72 69 66 79 20 66 6c 61  ;../* verify fla
0970: 67 73 20 2a 2f 0a 20 20 20 20 53 53 4c 20 2a 73  gs */.    SSL *s
0980: 73 6c 3b 09 09 2f 2a 20 53 74 72 75 63 74 20 66  sl;../* Struct f
0990: 6f 72 20 53 53 4c 20 70 72 6f 63 65 73 73 69 6e  or SSL processin
09a0: 67 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58  g */.    SSL_CTX
09b0: 20 2a 63 74 78 3b 09 2f 2a 20 53 53 4c 20 43 6f   *ctx;./* SSL Co
09c0: 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 42 49 4f  ntext */.    BIO
09d0: 20 2a 62 69 6f 3b 09 09 2f 2a 20 53 74 72 75 63   *bio;../* Struc
09e0: 74 20 66 6f 72 20 53 53 4c 20 70 72 6f 63 65 73  t for SSL proces
09f0: 73 69 6e 67 20 2a 2f 0a 20 20 20 20 42 49 4f 20  sing */.    BIO 
0a00: 2a 70 5f 62 69 6f 3b 09 09 2f 2a 20 50 61 72 65  *p_bio;../* Pare
0a10: 6e 74 20 42 49 4f 20 28 74 68 61 74 20 69 73 20  nt BIO (that is 
0a20: 6c 61 79 65 72 65 64 20 6f 6e 20 54 63 6c 5f 43  layered on Tcl_C
0a30: 68 61 6e 6e 65 6c 29 20 2a 2f 0a 0a 20 20 20 20  hannel) */..    
0a40: 63 68 61 72 20 2a 65 72 72 3b 0a 7d 20 53 74 61  char *err;.} Sta
0a50: 74 65 3b 0a 0a 2f 2a 0a 20 2a 20 54 68 65 20 66  te;../*. * The f
0a60: 6f 6c 6c 6f 77 69 6e 67 20 64 65 66 69 6e 69 74  ollowing definit
0a70: 69 6f 6e 73 20 68 61 76 65 20 74 6f 20 62 65 20  ions have to be 
0a80: 75 73 61 62 6c 65 20 66 6f 72 20 38 2e 32 2e 30  usable for 8.2.0
0a90: 2d 38 2e 33 2e 31 20 61 6e 64 20 38 2e 33 2e 32  -8.3.1 and 8.3.2
0aa0: 2b 2e 0a 20 2a 20 54 68 65 20 64 69 66 66 65 72  +.. * The differ
0ab0: 65 6e 63 65 73 20 62 65 74 77 65 65 6e 20 74 68  ences between th
0ac0: 65 73 65 20 76 65 72 73 69 6f 6e 73 3a 0a 20 2a  ese versions:. *
0ad0: 0a 20 2a 20 38 2e 30 2d 38 2e 31 3a 09 54 68 65  . * 8.0-8.1:.The
0ae0: 72 65 20 69 73 20 6e 6f 20 73 75 70 70 6f 72 74  re is no support
0af0: 20 66 6f 72 20 74 68 65 73 65 20 69 6e 20 54 4c   for these in TL
0b00: 53 20 31 2e 34 20 28 67 65 74 20 31 2e 33 29 2e  S 1.4 (get 1.3).
0b10: 20 20 54 68 69 73 0a 20 2a 09 09 77 61 73 20 74    This. *..was t
0b20: 68 65 20 76 65 72 73 69 6f 6e 20 77 69 74 68 20  he version with 
0b30: 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 70 61 74  the original pat
0b40: 63 68 2e 0a 20 2a 0a 20 2a 20 38 2e 32 2e 30 2d  ch.. *. * 8.2.0-
0b50: 09 43 68 61 6e 67 65 64 20 73 65 6d 61 6e 74 69  .Changed semanti
0b60: 63 73 20 66 6f 72 20 54 63 6c 5f 53 74 61 63 6b  cs for Tcl_Stack
0b70: 43 68 61 6e 6e 65 6c 20 28 54 63 6c 5f 52 65 70  Channel (Tcl_Rep
0b80: 6c 61 63 65 43 68 61 6e 6e 65 6c 29 2e 0a 20 2a  laceChannel).. *
0b90: 20 38 2e 33 2e 31 3a 09 43 68 65 63 6b 20 61 74   8.3.1:.Check at
0ba0: 20 72 75 6e 74 69 6d 65 20 74 6f 20 73 77 69 74   runtime to swit
0bb0: 63 68 20 74 68 65 20 62 65 68 61 76 69 6f 75 72  ch the behaviour
0bc0: 2e 20 54 68 65 20 70 61 74 63 68 20 69 73 20 70  . The patch is p
0bd0: 61 72 74 0a 20 2a 09 09 6f 66 20 74 68 65 20 63  art. *..of the c
0be0: 6f 72 65 20 66 72 6f 6d 20 6e 6f 77 20 6f 6e 2e  ore from now on.
0bf0: 0a 20 2a 0a 20 2a 20 38 2e 33 2e 32 2b 3a 09 53  . *. * 8.3.2+:.S
0c00: 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 73 20  tacked channels 
0c10: 72 65 77 72 69 74 74 65 6e 20 66 6f 72 20 62 65  rewritten for be
0c20: 74 74 65 72 20 62 65 68 61 76 69 6f 75 72 20 69  tter behaviour i
0c30: 6e 20 73 6f 6d 65 0a 20 2a 09 09 73 69 74 75 61  n some. *..situa
0c40: 74 69 6f 6e 73 20 28 63 6c 6f 73 69 6e 67 29 2e  tions (closing).
0c50: 20 53 6f 6d 65 20 6e 65 77 20 41 50 49 27 73 2c   Some new API's,
0c60: 20 73 65 6d 61 6e 74 69 63 20 63 68 61 6e 67 65   semantic change
0c70: 73 2e 0a 20 2a 0a 20 2a 20 54 68 65 20 66 6f 6c  s.. *. * The fol
0c80: 6c 6f 77 69 6e 67 20 6d 61 67 69 63 20 77 61 73  lowing magic was
0c90: 20 61 64 61 70 74 65 64 20 66 72 6f 6d 20 54 72   adapted from Tr
0ca0: 66 20 32 2e 31 20 28 4b 75 70 72 69 65 73 29 2e  f 2.1 (Kupries).
0cb0: 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 54 4c  . */..#define TL
0cc0: 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f  S_CHANNEL_VERSIO
0cd0: 4e 5f 31 09 30 78 31 0a 23 64 65 66 69 6e 65 20  N_1.0x1.#define 
0ce0: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53  TLS_CHANNEL_VERS
0cf0: 49 4f 4e 5f 32 09 30 78 32 0a 65 78 74 65 72 6e  ION_2.0x2.extern
0d00: 20 69 6e 74 20 63 68 61 6e 6e 65 6c 54 79 70 65   int channelType
0d10: 56 65 72 73 69 6f 6e 3b 0a 0a 23 69 66 64 65 66  Version;..#ifdef
0d20: 20 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a 23   USE_TCL_STUBS.#
0d30: 69 66 6e 64 65 66 20 54 63 6c 5f 53 74 61 63 6b  ifndef Tcl_Stack
0d40: 43 68 61 6e 6e 65 6c 0a 2f 2a 0a 20 2a 20 54 68  Channel./*. * Th
0d50: 65 20 63 6f 72 65 20 77 65 20 61 72 65 20 63 6f  e core we are co
0d60: 6d 70 69 6c 69 6e 67 20 61 67 61 69 6e 73 74 20  mpiling against 
0d70: 69 73 20 6e 6f 74 20 70 61 74 63 68 65 64 2c 20  is not patched, 
0d80: 73 6f 20 73 75 70 70 6c 79 20 74 68 65 0a 20 2a  so supply the. *
0d90: 20 6e 65 63 65 73 73 73 61 72 79 20 64 65 66 69   necesssary defi
0da0: 6e 69 74 69 6f 6e 73 20 68 65 72 65 20 62 79 20  nitions here by 
0db0: 6f 75 72 73 65 6c 76 65 73 2e 20 54 68 65 20 66  ourselves. The f
0dc0: 6f 72 6d 20 63 68 6f 73 65 6e 20 66 6f 72 0a 20  orm chosen for. 
0dd0: 2a 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20  * the procedure 
0de0: 6d 61 63 72 6f 73 20 28 72 65 73 65 72 76 65 64  macros (reserved
0df0: 58 58 58 29 20 77 69 6c 6c 20 6e 6f 74 69 66 79  XXX) will notify
0e00: 20 75 73 20 69 66 20 74 68 65 20 63 6f 72 65 0a   us if the core.
0e10: 20 2a 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65   * does not have
0e20: 20 74 68 65 73 65 20 72 65 73 65 72 76 65 64 20   these reserved 
0e30: 6c 6f 63 61 74 69 6f 6e 73 20 61 6e 79 6d 6f 72  locations anymor
0e40: 65 2e 0a 20 2a 0a 20 2a 20 21 21 20 53 79 6e 63  e.. *. * !! Sync
0e50: 68 72 6f 6e 69 7a 65 20 74 68 65 20 70 72 6f 63  hronize the proc
0e60: 65 64 75 72 65 20 69 6e 64 69 63 65 73 20 69 6e  edure indices in
0e70: 20 74 68 65 69 72 20 64 65 66 69 6e 69 74 69 6f   their definitio
0e80: 6e 73 20 77 69 74 68 0a 20 2a 20 20 20 20 74 68  ns with. *    th
0e90: 65 20 70 61 74 63 68 20 74 6f 20 74 63 6c 2e 64  e patch to tcl.d
0ea0: 65 63 6c 73 2c 20 61 73 20 74 68 65 79 20 68 61  ecls, as they ha
0eb0: 76 65 20 74 6f 20 62 65 20 74 68 65 20 73 61 6d  ve to be the sam
0ec0: 65 2e 0a 20 2a 2f 0a 0a 2f 2a 20 32 38 31 20 2a  e.. */../* 281 *
0ed0: 2f 0a 74 79 70 65 64 65 66 20 54 63 6c 5f 43 68  /.typedef Tcl_Ch
0ee0: 61 6e 6e 65 6c 20 28 74 6c 73 5f 53 74 61 63 6b  annel (tls_Stack
0ef0: 43 68 61 6e 6e 65 6c 29 20 5f 41 4e 53 49 5f 41  Channel) _ANSI_A
0f00: 52 47 53 5f 28 28 54 63 6c 5f 49 6e 74 65 72 70  RGS_((Tcl_Interp
0f10: 2a 20 69 6e 74 65 72 70 2c 0a 09 09 09 09 09 09  * interp,.......
0f20: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54      Tcl_ChannelT
0f30: 79 70 65 2a 20 74 79 70 65 50 74 72 2c 0a 09 09  ype* typePtr,...
0f40: 09 09 09 09 20 20 20 20 43 6c 69 65 6e 74 44 61  ....    ClientDa
0f50: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c  ta instanceData,
0f60: 0a 09 09 09 09 09 09 20 20 20 20 69 6e 74 20 6d  .......    int m
0f70: 61 73 6b 2c 0a 09 09 09 09 09 09 20 20 20 20 54  ask,.......    T
0f80: 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 72 65 76 43  cl_Channel prevC
0f90: 68 61 6e 29 29 3b 0a 2f 2a 20 32 38 32 20 2a 2f  han));./* 282 */
0fa0: 0a 74 79 70 65 64 65 66 20 76 6f 69 64 20 28 74  .typedef void (t
0fb0: 6c 73 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65  ls_UnstackChanne
0fc0: 6c 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  l) _ANSI_ARGS_((
0fd0: 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65  Tcl_Interp* inte
0fe0: 72 70 2c 0a 09 09 09 09 09 20 20 20 20 20 20 20  rp,......       
0ff0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e  Tcl_Channel chan
1000: 29 29 3b 0a 0a 23 64 65 66 69 6e 65 20 54 63 6c  ));..#define Tcl
1010: 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 20 20 20  _StackChannel   
1020: 20 20 28 28 74 6c 73 5f 53 74 61 63 6b 43 68 61    ((tls_StackCha
1030: 6e 6e 65 6c 2a 29 20 74 63 6c 53 74 75 62 73 50  nnel*) tclStubsP
1040: 74 72 2d 3e 72 65 73 65 72 76 65 64 32 38 31 29  tr->reserved281)
1050: 0a 23 64 65 66 69 6e 65 20 54 63 6c 5f 55 6e 73  .#define Tcl_Uns
1060: 74 61 63 6b 43 68 61 6e 6e 65 6c 20 28 28 74 6c  tackChannel ((tl
1070: 73 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 6c  s_UnstackChannel
1080: 2a 29 20 74 63 6c 53 74 75 62 73 50 74 72 2d 3e  *) tclStubsPtr->
1090: 72 65 73 65 72 76 65 64 32 38 32 29 0a 0a 23 65  reserved282)..#e
10a0: 6e 64 69 66 20 2f 2a 20 54 63 6c 5f 53 74 61 63  ndif /* Tcl_Stac
10b0: 6b 43 68 61 6e 6e 65 6c 20 2a 2f 0a 0a 23 69 66  kChannel */..#if
10c0: 6e 64 65 66 20 54 63 6c 5f 47 65 74 53 74 61 63  ndef Tcl_GetStac
10d0: 6b 65 64 43 68 61 6e 6e 65 6c 0a 2f 2a 0a 20 2a  kedChannel./*. *
10e0: 20 53 65 70 61 72 61 74 65 20 64 65 66 69 6e 69   Separate defini
10f0: 74 69 6f 6e 2c 20 61 76 61 69 6c 61 62 6c 65 20  tion, available 
1100: 69 6e 20 38 2e 32 2c 20 62 75 74 20 6e 6f 74 20  in 8.2, but not 
1110: 38 2e 31 20 61 6e 64 20 62 65 66 6f 72 65 20 21  8.1 and before !
1120: 0a 20 2a 2f 0a 0a 2f 2a 20 32 38 33 20 2a 2f 0a  . */../* 283 */.
1130: 74 79 70 65 64 65 66 20 54 63 6c 5f 43 68 61 6e  typedef Tcl_Chan
1140: 6e 65 6c 20 28 74 6c 73 5f 47 65 74 53 74 61 63  nel (tls_GetStac
1150: 6b 65 64 43 68 61 6e 6e 65 6c 29 20 5f 41 4e 53  kedChannel) _ANS
1160: 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 43 68 61  I_ARGS_((Tcl_Cha
1170: 6e 6e 65 6c 20 63 68 61 6e 29 29 3b 0a 0a 23 64  nnel chan));..#d
1180: 65 66 69 6e 65 20 54 63 6c 5f 47 65 74 53 74 61  efine Tcl_GetSta
1190: 63 6b 65 64 43 68 61 6e 6e 65 6c 20 28 28 74 6c  ckedChannel ((tl
11a0: 73 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e  s_GetStackedChan
11b0: 6e 65 6c 2a 29 20 74 63 6c 53 74 75 62 73 50 74  nel*) tclStubsPt
11c0: 72 2d 3e 72 65 73 65 72 76 65 64 32 38 33 29 0a  r->reserved283).
11d0: 0a 23 65 6e 64 69 66 20 2f 2a 20 54 63 6c 5f 47  .#endif /* Tcl_G
11e0: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c  etStackedChannel
11f0: 20 2a 2f 0a 0a 0a 23 69 66 6e 64 65 66 20 54 43   */...#ifndef TC
1200: 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f  L_CHANNEL_VERSIO
1210: 4e 5f 32 0a 2f 2a 0a 20 2a 20 43 6f 72 65 20 69  N_2./*. * Core i
1220: 73 20 6f 6c 64 65 72 20 74 68 61 6e 20 38 2e 33  s older than 8.3
1230: 2e 32 2e 20 20 53 75 70 70 6c 79 20 74 68 65 20  .2.  Supply the 
1240: 6d 69 73 73 69 6e 67 20 64 65 66 69 6e 69 74 69  missing definiti
1250: 6f 6e 73 20 66 6f 72 0a 20 2a 20 74 68 65 20 6e  ons for. * the n
1260: 65 77 20 41 50 49 27 73 20 69 6e 20 38 2e 33 2e  ew API's in 8.3.
1270: 32 2e 0a 20 2a 2f 0a 23 64 65 66 69 6e 65 20 45  2.. */.#define E
1280: 4d 55 4c 41 54 45 5f 43 48 41 4e 4e 45 4c 5f 56  MULATE_CHANNEL_V
1290: 45 52 53 49 4f 4e 5f 32 0a 0a 74 79 70 65 64 65  ERSION_2..typede
12a0: 66 20 73 74 72 75 63 74 20 54 6c 73 43 68 61 6e  f struct TlsChan
12b0: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 5f 2a  nelTypeVersion_*
12c0: 20 54 6c 73 43 68 61 6e 6e 65 6c 54 79 70 65 56   TlsChannelTypeV
12d0: 65 72 73 69 6f 6e 3b 0a 23 64 65 66 69 6e 65 20  ersion;.#define 
12e0: 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53  TCL_CHANNEL_VERS
12f0: 49 4f 4e 5f 32 09 28 28 54 6c 73 43 68 61 6e 6e  ION_2.((TlsChann
1300: 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 29 20 30  elTypeVersion) 0
1310: 78 32 29 0a 0a 74 79 70 65 64 65 66 20 69 6e 74  x2)..typedef int
1320: 20 28 54 6c 73 44 72 69 76 65 72 48 61 6e 64 6c   (TlsDriverHandl
1330: 65 72 50 72 6f 63 29 20 5f 41 4e 53 49 5f 41 52  erProc) _ANSI_AR
1340: 47 53 5f 28 28 43 6c 69 65 6e 74 44 61 74 61 20  GS_((ClientData 
1350: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 0a 09 09  instanceData,...
1360: 09 09 09 69 6e 74 20 69 6e 74 65 72 65 73 74 4d  ...int interestM
1370: 61 73 6b 29 29 3b 0a 2f 2a 20 33 39 34 20 2a 2f  ask));./* 394 */
1380: 0a 74 79 70 65 64 65 66 20 69 6e 74 20 28 74 6c  .typedef int (tl
1390: 73 5f 52 65 61 64 52 61 77 29 20 20 5f 41 4e 53  s_ReadRaw)  _ANS
13a0: 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 43 68 61  I_ARGS_((Tcl_Cha
13b0: 6e 6e 65 6c 20 63 68 61 6e 2c 20 63 68 61 72 20  nnel chan, char 
13c0: 2a 64 73 74 2c 0a 09 09 09 09 09 69 6e 74 20 62  *dst,......int b
13d0: 79 74 65 73 54 6f 52 65 61 64 29 29 3b 0a 2f 2a  ytesToRead));./*
13e0: 20 33 39 35 20 2a 2f 0a 74 79 70 65 64 65 66 20   395 */.typedef 
13f0: 69 6e 74 20 28 74 6c 73 5f 57 72 69 74 65 52 61  int (tls_WriteRa
1400: 77 29 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28  w) _ANSI_ARGS_((
1410: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e  Tcl_Channel chan
1420: 2c 20 63 68 61 72 20 2a 73 72 63 2c 0a 09 09 09  , char *src,....
1430: 09 09 69 6e 74 20 73 72 63 4c 65 6e 29 29 3b 0a  ..int srcLen));.
1440: 2f 2a 20 33 39 37 20 2a 2f 0a 74 79 70 65 64 65  /* 397 */.typede
1450: 66 20 69 6e 74 20 28 74 6c 73 5f 47 65 74 54 6f  f int (tls_GetTo
1460: 70 43 68 61 6e 6e 65 6c 29 20 5f 41 4e 53 49 5f  pChannel) _ANSI_
1470: 41 52 47 53 5f 28 28 54 63 6c 5f 43 68 61 6e 6e  ARGS_((Tcl_Chann
1480: 65 6c 20 63 68 61 6e 29 29 3b 0a 0a 2f 2a 0a 20  el chan));../*. 
1490: 2a 20 47 65 6e 65 72 61 74 69 6e 67 20 63 6f 64  * Generating cod
14a0: 65 20 66 6f 72 20 61 63 63 65 73 73 69 6e 67 20  e for accessing 
14b0: 74 68 65 73 65 20 70 61 72 74 73 20 6f 66 20 74  these parts of t
14c0: 68 65 20 73 74 75 62 20 74 61 62 6c 65 20 77 68  he stub table wh
14d0: 65 6e 0a 20 2a 20 63 6f 6d 70 69 6c 69 6e 67 20  en. * compiling 
14e0: 61 67 61 69 6e 73 74 20 61 20 63 6f 72 65 20 6f  against a core o
14f0: 6c 64 65 72 20 74 68 61 6e 20 38 2e 33 2e 32 20  lder than 8.3.2 
1500: 69 73 20 61 20 68 61 73 73 6c 65 20 62 65 63 61  is a hassle beca
1510: 75 73 65 20 65 76 65 6e 0a 20 2a 20 74 68 65 20  use even. * the 
1520: 27 72 65 73 65 72 76 65 64 58 58 58 27 20 66 69  'reservedXXX' fi
1530: 65 6c 64 73 20 6f 66 20 74 68 65 20 73 74 72 75  elds of the stru
1540: 63 74 75 72 65 20 61 72 65 20 6e 6f 74 20 64 65  cture are not de
1550: 66 69 6e 65 64 20 79 65 74 2e 20 53 6f 0a 20 2a  fined yet. So. *
1560: 20 77 65 20 68 61 76 65 20 74 6f 20 77 72 69 74   we have to writ
1570: 65 20 75 70 20 73 6f 6d 65 20 6d 61 63 72 6f 73  e up some macros
1580: 20 68 69 64 69 6e 67 20 73 6f 6d 65 20 76 65 72   hiding some ver
1590: 79 20 68 61 63 6b 69 73 68 20 70 6f 69 6e 74 65  y hackish pointe
15a0: 72 0a 20 2a 20 61 72 69 74 68 6d 65 74 69 63 73  r. * arithmetics
15b0: 20 74 6f 20 67 65 74 20 61 74 20 74 68 65 73 65   to get at these
15c0: 20 66 69 65 6c 64 73 2e 20 57 65 20 61 73 73 75   fields. We assu
15d0: 6d 65 20 74 68 61 74 20 70 6f 69 6e 74 65 72 20  me that pointer 
15e0: 74 6f 0a 20 2a 20 66 75 6e 63 74 69 6f 6e 73 20  to. * functions 
15f0: 61 72 65 20 61 6c 77 61 79 73 20 6f 66 20 74 68  are always of th
1600: 65 20 73 61 6d 65 20 73 69 7a 65 2e 0a 20 2a 2f  e same size.. */
1610: 0a 0a 23 64 65 66 69 6e 65 20 53 54 55 42 5f 42  ..#define STUB_B
1620: 41 53 45 20 20 20 28 28 63 68 61 72 2a 29 28 26  ASE   ((char*)(&
1630: 28 74 63 6c 53 74 75 62 73 50 74 72 2d 3e 74 63  (tclStubsPtr->tc
1640: 6c 5f 55 74 66 4e 63 61 73 65 63 6d 70 29 29 29  l_UtfNcasecmp)))
1650: 20 2f 2a 20 66 69 65 6c 64 20 33 37 30 20 2a 2f   /* field 370 */
1660: 0a 23 64 65 66 69 6e 65 20 70 72 6f 63 50 74 72  .#define procPtr
1670: 53 69 7a 65 20 28 73 69 7a 65 6f 66 20 28 54 63  Size (sizeof (Tc
1680: 6c 5f 44 72 69 76 65 72 42 6c 6f 63 6b 4d 6f 64  l_DriverBlockMod
1690: 65 50 72 6f 63 20 2a 29 29 0a 23 64 65 66 69 6e  eProc *)).#defin
16a0: 65 20 49 44 58 28 6e 29 20 20 20 20 20 20 28 28  e IDX(n)      ((
16b0: 28 6e 29 2d 33 37 30 29 20 2a 20 70 72 6f 63 50  (n)-370) * procP
16c0: 74 72 53 69 7a 65 29 0a 23 64 65 66 69 6e 65 20  trSize).#define 
16d0: 53 4c 4f 54 28 6e 29 20 20 20 20 20 28 53 54 55  SLOT(n)     (STU
16e0: 42 5f 42 41 53 45 20 2b 20 49 44 58 28 6e 29 29  B_BASE + IDX(n))
16f0: 0a 0a 23 64 65 66 69 6e 65 20 54 63 6c 5f 52 65  ..#define Tcl_Re
1700: 61 64 52 61 77 09 09 28 2a 28 28 74 6c 73 5f 52  adRaw..(*((tls_R
1710: 65 61 64 52 61 77 2a 2a 29 09 28 53 4c 4f 54 28  eadRaw**).(SLOT(
1720: 33 39 34 29 29 29 29 0a 23 64 65 66 69 6e 65 20  394)))).#define 
1730: 54 63 6c 5f 57 72 69 74 65 52 61 77 09 09 28 2a  Tcl_WriteRaw..(*
1740: 28 28 74 6c 73 5f 57 72 69 74 65 52 61 77 2a 2a  ((tls_WriteRaw**
1750: 29 09 28 53 4c 4f 54 28 33 39 35 29 29 29 29 0a  ).(SLOT(395)))).
1760: 23 64 65 66 69 6e 65 20 54 63 6c 5f 47 65 74 54  #define Tcl_GetT
1770: 6f 70 43 68 61 6e 6e 65 6c 09 28 2a 28 28 74 6c  opChannel.(*((tl
1780: 73 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 2a  s_GetTopChannel*
1790: 2a 29 28 53 4c 4f 54 28 33 39 36 29 29 29 29 0a  *)(SLOT(396)))).
17a0: 0a 2f 2a 0a 20 2a 20 52 65 71 75 69 72 65 64 2c  ./*. * Required,
17b0: 20 65 61 73 79 20 65 6d 75 6c 61 74 69 6f 6e 2e   easy emulation.
17c0: 0a 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 63 6c  . */.#define Tcl
17d0: 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f  _ChannelGetOptio
17e0: 6e 50 72 6f 63 28 63 68 61 6e 44 72 69 76 65 72  nProc(chanDriver
17f0: 29 20 28 28 63 68 61 6e 44 72 69 76 65 72 29 2d  ) ((chanDriver)-
1800: 3e 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 0a  >getOptionProc).
1810: 0a 23 65 6e 64 69 66 20 2f 2a 20 54 43 4c 5f 43  .#endif /* TCL_C
1820: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32  HANNEL_VERSION_2
1830: 20 2a 2f 0a 0a 23 65 6e 64 69 66 20 2f 2a 20 55   */..#endif /* U
1840: 53 45 5f 54 43 4c 5f 53 54 55 42 53 20 2a 2f 0a  SE_TCL_STUBS */.
1850: 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64  ./*. * Forward d
1860: 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a  eclarations. */.
1870: 0a 45 58 54 45 52 4e 20 54 63 6c 5f 43 68 61 6e  .EXTERN Tcl_Chan
1880: 6e 65 6c 54 79 70 65 20 2a 54 6c 73 5f 43 68 61  nelType *Tls_Cha
1890: 6e 6e 65 6c 54 79 70 65 20 5f 41 4e 53 49 5f 41  nnelType _ANSI_A
18a0: 52 47 53 5f 28 28 76 6f 69 64 29 29 3b 0a 45 58  RGS_((void));.EX
18b0: 54 45 52 4e 20 54 63 6c 5f 43 68 61 6e 6e 65 6c  TERN Tcl_Channel
18c0: 09 54 6c 73 5f 47 65 74 50 61 72 65 6e 74 20 5f  .Tls_GetParent _
18d0: 41 4e 53 49 5f 41 52 47 53 5f 28 28 53 74 61 74  ANSI_ARGS_((Stat
18e0: 65 20 2a 73 74 61 74 65 50 74 72 29 29 3b 0a 0a  e *statePtr));..
18f0: 45 58 54 45 52 4e 20 54 63 6c 5f 4f 62 6a 2a 09  EXTERN Tcl_Obj*.
1900: 09 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 20  .Tls_NewX509Obj 
1910: 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 20 54  _ANSI_ARGS_ (( T
1920: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
1930: 70 2c 20 58 35 30 39 20 2a 63 65 72 74 29 29 3b  p, X509 *cert));
1940: 0a 45 58 54 45 52 4e 20 76 6f 69 64 09 09 54 6c  .EXTERN void..Tl
1950: 73 5f 45 72 72 6f 72 20 5f 41 4e 53 49 5f 41 52  s_Error _ANSI_AR
1960: 47 53 5f 20 28 28 53 74 61 74 65 20 2a 73 74 61  GS_ ((State *sta
1970: 74 65 50 74 72 2c 20 63 68 61 72 20 2a 6d 73 67  tePtr, char *msg
1980: 29 29 3b 0a 45 58 54 45 52 4e 20 76 6f 69 64 09  ));.EXTERN void.
1990: 09 54 6c 73 5f 46 72 65 65 20 5f 41 4e 53 49 5f  .Tls_Free _ANSI_
19a0: 41 52 47 53 5f 20 28 28 63 68 61 72 20 2a 62 6c  ARGS_ ((char *bl
19b0: 6f 63 6b 50 74 72 29 29 3b 0a 45 58 54 45 52 4e  ockPtr));.EXTERN
19c0: 20 76 6f 69 64 09 09 54 6c 73 5f 43 6c 65 61 6e   void..Tls_Clean
19d0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 53   _ANSI_ARGS_ ((S
19e0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 29  tate *statePtr))
19f0: 3b 0a 45 58 54 45 52 4e 20 69 6e 74 09 09 54 6c  ;.EXTERN int..Tl
1a00: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74  s_WaitForConnect
1a10: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 20 53   _ANSI_ARGS_(( S
1a20: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 0a  tate *statePtr,.
1a30: 09 09 09 09 09 09 09 69 6e 74 20 2a 65 72 72 6f  .......int *erro
1a40: 72 43 6f 64 65 50 74 72 29 29 3b 0a 0a 45 58 54  rCodePtr));..EXT
1a50: 45 52 4e 20 42 49 4f 5f 4d 45 54 48 4f 44 20 2a  ERN BIO_METHOD *
1a60: 09 42 49 4f 5f 73 5f 74 63 6c 20 5f 41 4e 53 49  .BIO_s_tcl _ANSI
1a70: 5f 41 52 47 53 5f 28 28 76 6f 69 64 29 29 3b 0a  _ARGS_((void));.
1a80: 45 58 54 45 52 4e 20 42 49 4f 20 2a 09 09 42 49  EXTERN BIO *..BI
1a90: 4f 5f 6e 65 77 5f 74 63 6c 20 5f 41 4e 53 49 5f  O_new_tcl _ANSI_
1aa0: 41 52 47 53 5f 28 28 53 74 61 74 65 2a 20 73 74  ARGS_((State* st
1ab0: 61 74 65 50 74 72 2c 20 69 6e 74 20 66 6c 61 67  atePtr, int flag
1ac0: 73 29 29 3b 0a 0a 23 65 6e 64 69 66 20 2f 2a 20  s));..#endif /* 
1ad0: 5f 54 4c 53 49 4e 54 5f 48 20 2a 2f 0a           _TLSINT_H */.