TclTLS
Hex Artifact Content
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
Download

Artifact 5e8cf5527fc736445eff4142a2c870a06d48ae59f3ff5e41323c908d16c62590:

0000: 2f 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 44 69  /*. * Message Di
0010: 67 65 73 74 73 20 4d 6f 64 75 6c 65 0a 20 2a 0a  gests Module. *.
0020: 20 2a 20 50 72 6f 76 69 64 65 73 20 63 6f 6d 6d   * Provides comm
0030: 61 6e 64 73 20 74 6f 20 63 61 6c 63 75 6c 61 74  ands to calculat
0040: 65 20 61 20 6d 65 73 73 61 67 65 20 64 69 67 65  e a message dige
0050: 73 74 20 75 73 69 6e 67 20 61 20 73 70 65 63 69  st using a speci
0060: 66 69 65 64 20 68 61 73 68 20 61 6c 67 6f 72 69  fied hash algori
0070: 74 68 6d 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72  thm.. *. * Copyr
0080: 69 67 68 74 20 28 43 29 20 32 30 32 33 20 42 72  ight (C) 2023 Br
0090: 69 61 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20  ian O'Hagan. *. 
00a0: 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c  */..#include "tl
00b0: 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65  sInt.h".#include
00c0: 20 22 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e   "tclOpts.h".#in
00d0: 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69  clude <tcl.h>.#i
00e0: 6e 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e  nclude <stdio.h>
00f0: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e  .#include <strin
0100: 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f  g.h>.#include <o
0110: 70 65 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 0a 2f  penssl/evp.h>../
0120: 2a 20 43 6f 6e 73 74 61 6e 74 73 20 2a 2f 0a 63  * Constants */.c
0130: 6f 6e 73 74 20 63 68 61 72 20 2a 68 65 78 20 3d  onst char *hex =
0140: 20 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44   "0123456789ABCD
0150: 45 46 22 3b 0a 0a 2f 2a 20 4d 61 63 72 6f 73 20  EF";../* Macros 
0160: 2a 2f 0a 23 64 65 66 69 6e 65 20 42 55 46 46 45  */.#define BUFFE
0170: 52 5f 53 49 5a 45 20 36 35 35 33 36 0a 23 64 65  R_SIZE 65536.#de
0180: 66 69 6e 65 20 42 49 4e 5f 46 4f 52 4d 41 54 20  fine BIN_FORMAT 
0190: 30 0a 23 64 65 66 69 6e 65 20 48 45 58 5f 46 4f  0.#define HEX_FO
01a0: 52 4d 41 54 20 31 0a 0a 2f 2a 0a 20 2a 20 54 68  RMAT 1../*. * Th
01b0: 69 73 20 73 74 72 75 63 74 75 72 65 20 64 65 73  is structure des
01c0: 63 72 69 62 65 73 20 74 68 65 20 70 65 72 2d 69  cribes the per-i
01d0: 6e 73 74 61 6e 63 65 20 73 74 61 74 65 20 6f 66  nstance state of
01e0: 20 61 6e 20 53 53 4c 20 63 68 61 6e 6e 65 6c 2e   an SSL channel.
01f0: 0a 20 2a 0a 20 2a 20 54 68 65 20 53 53 4c 20 70  . *. * The SSL p
0200: 72 6f 63 65 73 73 69 6e 67 20 63 6f 6e 74 65 78  rocessing contex
0210: 74 20 69 73 20 6d 61 69 6e 74 61 69 6e 65 64 20  t is maintained 
0220: 68 65 72 65 2c 20 69 6e 20 74 68 65 20 43 6c 69  here, in the Cli
0230: 65 6e 74 44 61 74 61 0a 20 2a 2f 0a 74 79 70 65  entData. */.type
0240: 64 65 66 20 73 74 72 75 63 74 20 44 69 67 65 73  def struct Diges
0250: 74 53 74 61 74 65 20 7b 0a 09 54 63 6c 5f 43 68  tState {..Tcl_Ch
0260: 61 6e 6e 65 6c 20 73 65 6c 66 3b 09 2f 2a 20 54  annel self;./* T
0270: 68 69 73 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e  his socket chann
0280: 65 6c 20 2a 2f 0a 09 54 63 6c 5f 54 69 6d 65 72  el */..Tcl_Timer
0290: 54 6f 6b 65 6e 20 74 69 6d 65 72 3b 09 2f 2a 20  Token timer;./* 
02a0: 54 69 6d 65 72 20 66 6f 72 20 72 65 61 64 20 65  Timer for read e
02b0: 76 65 6e 74 73 20 2a 2f 0a 0a 09 69 6e 74 20 66  vents */...int f
02c0: 6c 61 67 73 3b 09 09 2f 2a 20 43 68 61 6e 20 63  lags;../* Chan c
02d0: 6f 6e 66 69 67 20 66 6c 61 67 73 20 2a 2f 0a 09  onfig flags */..
02e0: 69 6e 74 20 77 61 74 63 68 4d 61 73 6b 3b 09 09  int watchMask;..
02f0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68  /* Current Watch
0300: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 69 6e  Proc mask */..in
0310: 74 20 6d 6f 64 65 3b 09 09 2f 2a 20 43 75 72 72  t mode;../* Curr
0320: 65 6e 74 20 6d 6f 64 65 20 6f 66 20 70 61 72 65  ent mode of pare
0330: 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 69  nt channel */..i
0340: 6e 74 20 66 6f 72 6d 61 74 3b 09 09 2f 2a 20 4f  nt format;../* O
0350: 75 74 70 75 74 20 66 6f 72 6d 61 74 20 2a 2f 0a  utput format */.
0360: 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  ..Tcl_Interp *in
0370: 74 65 72 70 3b 09 2f 2a 20 43 75 72 72 65 6e 74  terp;./* Current
0380: 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a   interpreter */.
0390: 09 45 56 50 5f 4d 44 5f 43 54 58 20 2a 63 74 78  .EVP_MD_CTX *ctx
03a0: 3b 09 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 20  ;./* MD Context 
03b0: 2a 2f 0a 7d 20 44 69 67 65 73 74 53 74 61 74 65  */.} DigestState
03c0: 3b 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ;../************
03d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
03e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
03f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0400: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d  *******/../*. *-
0410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0450: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 46  --. *. * DigestF
0460: 69 6c 65 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74  ile --. *. *.Ret
0470: 75 72 6e 20 6d 65 73 73 61 67 65 20 64 69 67 65  urn message dige
0480: 73 74 20 66 6f 72 20 66 69 6c 65 20 75 73 69 6e  st for file usin
0490: 67 20 75 73 65 72 20 73 70 65 63 69 66 69 65 64  g user specified
04a0: 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 2e 0a   hash function..
04b0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20   *. * Returns:. 
04c0: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f  *.TCL_OK or TCL_
04d0: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65  ERROR. *. * Side
04e0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 73   effects:. *.Res
04f0: 75 6c 74 20 69 73 20 6d 65 73 73 61 67 65 20 64  ult is message d
0500: 69 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 6d  igest or error m
0510: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d  essage. *. *----
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
0560: 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 46 69   */.int DigestFi
0570: 6c 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  le(Tcl_Interp *i
0580: 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a  nterp, Tcl_Obj *
0590: 66 69 6c 65 6e 61 6d 65 2c 20 63 6f 6e 73 74 20  filename, const 
05a0: 45 56 50 5f 4d 44 20 2a 6d 64 2c 20 69 6e 74 20  EVP_MD *md, int 
05b0: 66 6f 72 6d 61 74 2c 0a 09 54 63 6c 5f 4f 62 6a  format,..Tcl_Obj
05c0: 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a 20 20 20 20   *keyObj) {.    
05d0: 45 56 50 5f 4d 44 5f 43 54 58 20 2a 63 74 78 20  EVP_MD_CTX *ctx 
05e0: 3d 20 28 45 56 50 5f 4d 44 5f 43 54 58 20 2a 29  = (EVP_MD_CTX *)
05f0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 48 4d 41 43 5f   NULL;.    HMAC_
0600: 43 54 58 20 2a 68 63 74 78 20 3d 20 28 48 4d 41  CTX *hctx = (HMA
0610: 43 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 3b 0a 20  C_CTX *) NULL;. 
0620: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63     Tcl_Channel c
0630: 68 61 6e 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65  han;.    unsigne
0640: 64 20 63 68 61 72 20 62 75 66 5b 42 55 46 46 45  d char buf[BUFFE
0650: 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 20 75 6e 73  R_SIZE];.    uns
0660: 69 67 6e 65 64 20 63 68 61 72 20 6d 64 5f 62 75  igned char md_bu
0670: 66 5b 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a  f[EVP_MAX_MD_SIZ
0680: 45 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64  E];.    unsigned
0690: 20 69 6e 74 20 6d 64 5f 6c 65 6e 3b 0a 20 20 20   int md_len;.   
06a0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
06b0: 6b 65 79 3b 0a 20 20 20 20 69 6e 74 20 6b 65 79  key;.    int key
06c0: 5f 6c 65 6e 2c 20 72 65 73 3b 0a 0a 20 20 20 20  _len, res;..    
06d0: 2f 2a 20 4f 70 65 6e 20 66 69 6c 65 20 63 68 61  /* Open file cha
06e0: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e  nnel */.    chan
06f0: 20 3d 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c   = Tcl_FSOpenFil
0700: 65 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c  eChannel(interp,
0710: 20 66 69 6c 65 6e 61 6d 65 2c 20 22 72 62 22 2c   filename, "rb",
0720: 20 30 34 34 34 29 3b 0a 20 20 20 20 69 66 20 28   0444);.    if (
0730: 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61  chan == (Tcl_Cha
0740: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72  nnel) NULL) {..r
0750: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
0760: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43  .    }..    /* C
0770: 6f 6e 66 69 67 75 72 65 20 63 68 61 6e 6e 65 6c  onfigure channel
0780: 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f   */.    if (Tcl_
0790: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e  SetChannelOption
07a0: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22  (interp, chan, "
07b0: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22  -translation", "
07c0: 62 69 6e 61 72 79 22 29 20 3d 3d 20 54 43 4c 5f  binary") == TCL_
07d0: 45 52 52 4f 52 29 20 7b 0a 09 67 6f 74 6f 20 65  ERROR) {..goto e
07e0: 72 72 6f 72 3b 0a 20 20 20 20 7d 0a 20 20 20 20  rror;.    }.    
07f0: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 42 75  Tcl_SetChannelBu
0800: 66 66 65 72 53 69 7a 65 28 63 68 61 6e 2c 20 42  fferSize(chan, B
0810: 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a 0a 20 20  UFFER_SIZE);..  
0820: 20 20 2f 2a 20 43 72 65 61 74 65 20 6d 65 73 73    /* Create mess
0830: 61 67 65 20 64 69 67 65 73 74 20 63 6f 6e 74 65  age digest conte
0840: 78 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b 65  xt */.    if (ke
0850: 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  yObj == NULL) {.
0860: 09 63 74 78 20 3d 20 45 56 50 5f 4d 44 5f 43 54  .ctx = EVP_MD_CT
0870: 58 5f 6e 65 77 28 29 3b 0a 09 72 65 73 20 3d 20  X_new();..res = 
0880: 28 63 74 78 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20  (ctx != NULL);. 
0890: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 68 63 74     } else {..hct
08a0: 78 20 3d 20 48 4d 41 43 5f 43 54 58 5f 6e 65 77  x = HMAC_CTX_new
08b0: 28 29 3b 0a 09 72 65 73 20 3d 20 28 68 63 74 78  ();..res = (hctx
08c0: 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d   != NULL);.    }
08d0: 0a 20 20 20 20 69 66 20 28 21 72 65 73 29 20 7b  .    if (!res) {
08e0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
08f0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 43 72 65 61  lt(interp, "Crea
0900: 74 65 20 64 69 67 65 73 74 20 63 6f 6e 74 65 78  te digest contex
0910: 74 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 41  t failed: ", REA
0920: 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 67  SON(), NULL);..g
0930: 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 20 7d  oto error;.    }
0940: 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c  ..    /* Initial
0950: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f  ize hash functio
0960: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b 65 79  n */.    if (key
0970: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  Obj == NULL) {..
0980: 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65 73 74  res = EVP_Digest
0990: 49 6e 69 74 5f 65 78 28 63 74 78 2c 20 6d 64 2c  Init_ex(ctx, md,
09a0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c   NULL);.    } el
09b0: 73 65 20 7b 0a 09 6b 65 79 20 3d 20 54 63 6c 5f  se {..key = Tcl_
09c0: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d  GetByteArrayFrom
09d0: 4f 62 6a 28 6b 65 79 4f 62 6a 2c 20 26 6b 65 79  Obj(keyObj, &key
09e0: 5f 6c 65 6e 29 3b 0a 09 72 65 73 20 3d 20 48 4d  _len);..res = HM
09f0: 41 43 5f 49 6e 69 74 5f 65 78 28 68 63 74 78 2c  AC_Init_ex(hctx,
0a00: 20 28 63 6f 6e 73 74 20 76 6f 69 64 20 2a 29 20   (const void *) 
0a10: 6b 65 79 2c 20 6b 65 79 5f 6c 65 6e 2c 20 6d 64  key, key_len, md
0a20: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20  , NULL);.    }. 
0a30: 20 20 20 69 66 20 28 21 72 65 73 29 20 7b 0a 09     if (!res) {..
0a40: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
0a50: 28 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61  (interp, "Initia
0a60: 6c 69 7a 65 20 64 69 67 65 73 74 20 66 61 69 6c  lize digest fail
0a70: 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c  ed: ", REASON(),
0a80: 20 4e 55 4c 4c 29 3b 0a 09 67 6f 74 6f 20 65 72   NULL);..goto er
0a90: 72 6f 72 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ror;.    }..    
0aa0: 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74  /* Read file dat
0ab0: 61 20 61 6e 64 20 75 70 64 61 74 65 20 68 61 73  a and update has
0ac0: 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20  h function */.  
0ad0: 20 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f    while (!Tcl_Eo
0ae0: 66 28 63 68 61 6e 29 29 20 7b 0a 09 69 6e 74 20  f(chan)) {..int 
0af0: 6c 65 6e 20 3d 20 54 63 6c 5f 52 65 61 64 52 61  len = Tcl_ReadRa
0b00: 77 28 63 68 61 6e 2c 20 28 63 68 61 72 20 2a 29  w(chan, (char *)
0b10: 20 62 75 66 2c 20 42 55 46 46 45 52 5f 53 49 5a   buf, BUFFER_SIZ
0b20: 45 29 3b 0a 09 69 66 20 28 6b 65 79 4f 62 6a 20  E);..if (keyObj 
0b30: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20  == NULL) {..    
0b40: 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65 73 74  res = EVP_Digest
0b50: 55 70 64 61 74 65 28 63 74 78 2c 20 26 62 75 66  Update(ctx, &buf
0b60: 2c 20 28 73 69 7a 65 5f 74 29 20 6c 65 6e 29 3b  , (size_t) len);
0b70: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20  ..} else {..    
0b80: 72 65 73 20 3d 20 48 4d 41 43 5f 55 70 64 61 74  res = HMAC_Updat
0b90: 65 28 68 63 74 78 2c 20 26 62 75 66 5b 30 5d 2c  e(hctx, &buf[0],
0ba0: 20 28 73 69 7a 65 5f 74 29 20 6c 65 6e 29 3b 0a   (size_t) len);.
0bb0: 09 7d 0a 09 69 66 20 28 6c 65 6e 20 3e 20 30 20  .}..if (len > 0 
0bc0: 26 26 20 21 72 65 73 29 20 7b 0a 09 20 20 20 20  && !res) {..    
0bd0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
0be0: 28 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 65  (interp, "Update
0bf0: 20 64 69 67 65 73 74 20 66 61 69 6c 65 64 3a 20   digest failed: 
0c00: 22 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c  ", REASON(), NUL
0c10: 4c 29 3b 0a 09 20 20 20 20 67 6f 74 6f 20 65 72  L);..    goto er
0c20: 72 6f 72 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20  ror;..}.    }.. 
0c30: 20 20 20 2f 2a 20 43 6c 6f 73 65 20 63 68 61 6e     /* Close chan
0c40: 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 54  nel */.    if (T
0c50: 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c  cl_Close(interp,
0c60: 20 63 68 61 6e 29 20 3d 3d 20 54 43 4c 5f 45 52   chan) == TCL_ER
0c70: 52 4f 52 29 20 7b 0a 09 63 68 61 6e 20 3d 20 28  ROR) {..chan = (
0c80: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c  Tcl_Channel) NUL
0c90: 4c 3b 0a 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a  L;..goto error;.
0ca0: 20 20 20 20 7d 0a 20 20 20 20 63 68 61 6e 20 3d      }.    chan =
0cb0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e   (Tcl_Channel) N
0cc0: 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 6e  ULL;..    /* Fin
0cd0: 61 6c 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74  alize hash funct
0ce0: 69 6f 6e 20 61 6e 64 20 63 61 6c 63 75 6c 61 74  ion and calculat
0cf0: 65 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74  e message digest
0d00: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b 65 79 4f   */.    if (keyO
0d10: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72  bj == NULL) {..r
0d20: 65 73 20 3d 20 45 56 50 5f 44 69 67 65 73 74 46  es = EVP_DigestF
0d30: 69 6e 61 6c 5f 65 78 28 63 74 78 2c 20 6d 64 5f  inal_ex(ctx, md_
0d40: 62 75 66 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 20  buf, &md_len);. 
0d50: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73     } else {..res
0d60: 20 3d 20 48 4d 41 43 5f 46 69 6e 61 6c 28 68 63   = HMAC_Final(hc
0d70: 74 78 2c 20 6d 64 5f 62 75 66 2c 20 26 6d 64 5f  tx, md_buf, &md_
0d80: 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  len);.    }.    
0d90: 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c  if (!res) {..Tcl
0da0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
0db0: 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a 65 20  terp, "Finalize 
0dc0: 64 69 67 65 73 74 20 66 61 69 6c 65 64 3a 20 22  digest failed: "
0dd0: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c  , REASON(), NULL
0de0: 29 3b 0a 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a  );..goto error;.
0df0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f      }..    /* Do
0e00: 6e 65 20 77 69 74 68 20 73 74 72 75 63 74 20 2a  ne with struct *
0e10: 2f 0a 20 20 20 20 45 56 50 5f 4d 44 5f 43 54 58  /.    EVP_MD_CTX
0e20: 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 20 20  _free(ctx);.    
0e30: 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20  ctx = NULL;..   
0e40: 20 2f 2a 20 52 65 74 75 72 6e 20 6d 65 73 73 61   /* Return messa
0e50: 67 65 20 64 69 67 65 73 74 20 61 73 20 65 69 74  ge digest as eit
0e60: 68 65 72 20 61 20 62 69 6e 61 72 79 20 6f 72 20  her a binary or 
0e70: 68 65 78 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20  hex string */.  
0e80: 20 20 69 66 20 28 66 6f 72 6d 61 74 20 3d 3d 20    if (format == 
0e90: 42 49 4e 5f 46 4f 52 4d 41 54 29 20 7b 0a 09 54  BIN_FORMAT) {..T
0ea0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
0eb0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42  interp, Tcl_NewB
0ec0: 79 74 65 41 72 72 61 79 4f 62 6a 28 6d 64 5f 62  yteArrayObj(md_b
0ed0: 75 66 2c 20 6d 64 5f 6c 65 6e 29 29 3b 0a 0a 20  uf, md_len));.. 
0ee0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c     } else {..Tcl
0ef0: 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20  _Obj *resultObj 
0f00: 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a  = Tcl_NewObj();.
0f10: 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a  .unsigned char *
0f20: 70 74 72 20 3d 20 54 63 6c 5f 53 65 74 42 79 74  ptr = Tcl_SetByt
0f30: 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73  eArrayLength(res
0f40: 75 6c 74 4f 62 6a 2c 20 6d 64 5f 6c 65 6e 2a 32  ultObj, md_len*2
0f50: 29 3b 0a 0a 09 66 6f 72 20 28 75 6e 73 69 67 6e  );...for (unsign
0f60: 65 64 20 69 6e 74 20 69 20 3d 20 30 3b 20 69 20  ed int i = 0; i 
0f70: 3c 20 6d 64 5f 6c 65 6e 3b 20 69 2b 2b 29 20 7b  < md_len; i++) {
0f80: 0a 09 20 20 20 20 2a 70 74 72 2b 2b 20 3d 20 68  ..    *ptr++ = h
0f90: 65 78 5b 28 6d 64 5f 62 75 66 5b 69 5d 20 3e 3e  ex[(md_buf[i] >>
0fa0: 20 34 29 20 26 20 30 78 30 46 5d 3b 0a 09 20 20   4) & 0x0F];..  
0fb0: 20 20 2a 70 74 72 2b 2b 20 3d 20 68 65 78 5b 6d    *ptr++ = hex[m
0fc0: 64 5f 62 75 66 5b 69 5d 20 26 20 30 78 30 46 5d  d_buf[i] & 0x0F]
0fd0: 3b 0a 09 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a  ;..}..Tcl_SetObj
0fe0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72  Result(interp, r
0ff0: 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 7d  esultObj);.    }
1000: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
1010: 4f 4b 3b 0a 0a 65 72 72 6f 72 3a 0a 20 20 20 20  OK;..error:.    
1020: 69 66 20 28 63 68 61 6e 20 21 3d 20 28 54 63 6c  if (chan != (Tcl
1030: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20  _Channel) NULL) 
1040: 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74  {..Tcl_Close(int
1050: 65 72 70 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20  erp, chan);.    
1060: 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 3d  }.    if (ctx !=
1070: 20 28 45 56 50 5f 4d 44 5f 43 54 58 20 2a 29 20   (EVP_MD_CTX *) 
1080: 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 4d 44 5f  NULL) {..EVP_MD_
1090: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20  CTX_free(ctx);. 
10a0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 68 63 74     }.    if (hct
10b0: 78 20 21 3d 20 28 48 4d 41 43 5f 43 54 58 20 2a  x != (HMAC_CTX *
10c0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 48 4d 41 43 5f  ) NULL) {..HMAC_
10d0: 43 54 58 5f 66 72 65 65 28 68 63 74 78 29 3b 0a  CTX_free(hctx);.
10e0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
10f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f   TCL_ERROR;.}../
1100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1110: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
1140: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  ***/../*. *-----
1150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
1190: 2a 0a 20 2a 20 44 69 67 65 73 74 42 6c 6f 63 6b  *. * DigestBlock
11a0: 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20  ModeProc --. *. 
11b0: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65  *.This procedure
11c0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74   is invoked by t
11d0: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65  he generic IO le
11e0: 76 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20  vel. *       to 
11f0: 73 65 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64  set blocking and
1200: 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64   nonblocking mod
1210: 65 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e  es.. *. * Return
1220: 73 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65  s:. *.0 if succe
1230: 73 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65  ssful or POSIX e
1240: 72 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69  rror code if fai
1250: 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  led.. *. * Side 
1260: 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73  effects:. *.Sets
1270: 20 74 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f   the device into
1280: 20 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e   blocking or non
1290: 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20  blocking mode.. 
12a0: 2a 09 43 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53  *.Can call Tcl_S
12b0: 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a  etChannelError..
12c0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1300: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61  --------. */.sta
1310: 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 42 6c  tic int DigestBl
1320: 6f 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65  ockModeProc(Clie
1330: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
1340: 61 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20  a, int mode) {. 
1350: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a     DigestState *
1360: 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65  statePtr = (Dige
1370: 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e  stState *) clien
1380: 74 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28  tData;..    if (
1390: 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45  mode == TCL_MODE
13a0: 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a  _NONBLOCKING) {.
13b0: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73  .statePtr->flags
13c0: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e   |= TLS_TCL_ASYN
13d0: 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  C;.    } else {.
13e0: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73  .statePtr->flags
13f0: 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53   &= ~(TLS_TCL_AS
1400: 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  YNC);.    }.    
1410: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a  return 0;.}../*.
1420: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
1430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1460: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65  -----. *. * Dige
1470: 73 74 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09  stFree --. *. *.
1480: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 72  This procedure r
1490: 65 6d 6f 76 65 73 20 61 20 64 69 67 65 73 74 20  emoves a digest 
14a0: 73 74 61 74 65 20 73 74 72 75 63 74 75 72 65 0a  state structure.
14b0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20   *. * Returns:. 
14c0: 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a 20  *.Nothing. *. * 
14d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
14e0: 09 52 65 6d 6f 76 65 73 20 73 74 72 75 63 74 75  .Removes structu
14f0: 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  re. *. *--------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
1540: 76 6f 69 64 20 44 69 67 65 73 74 46 72 65 65 20  void DigestFree 
1550: 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74  (DigestState *st
1560: 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 66  atePtr) {.    if
1570: 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 44   (statePtr == (D
1580: 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 4e 55  igestState *) NU
1590: 4c 4c 29 20 72 65 74 75 72 6e 3b 0a 20 20 20 20  LL) return;.    
15a0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74  .    if (statePt
15b0: 72 2d 3e 63 74 78 20 21 3d 20 4e 55 4c 4c 29 20  r->ctx != NULL) 
15c0: 7b 0a 09 45 56 50 5f 4d 44 5f 43 54 58 5f 66 72  {..EVP_MD_CTX_fr
15d0: 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78  ee(statePtr->ctx
15e0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6b 66  );.    }.    ckf
15f0: 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 7d  ree(statePtr);.}
1600: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
1610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
1650: 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63   DigestCloseProc
1660: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70   --. *. *.This p
1670: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f  rocedure is invo
1680: 6b 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72  ked by the gener
1690: 69 63 20 49 4f 20 6c 65 76 65 6c 20 74 6f 20 70  ic IO level to p
16a0: 65 72 66 6f 72 6d 0a 20 2a 09 63 68 61 6e 6e 65  erform. *.channe
16b0: 6c 2d 74 79 70 65 2d 73 70 65 63 69 66 69 63 20  l-type-specific 
16c0: 63 6c 65 61 6e 75 70 20 77 68 65 6e 20 64 69 67  cleanup when dig
16d0: 65 73 74 20 63 68 61 6e 6e 65 6c 20 69 73 20 63  est channel is c
16e0: 6c 6f 73 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 74  losed.. *. * Ret
16f0: 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20  urns:. *.TCL_OK 
1700: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a  or TCL_ERROR. *.
1710: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
1720: 0a 20 2a 09 57 72 69 74 65 73 20 64 69 67 65 73  . *.Writes diges
1730: 74 20 74 6f 20 6f 75 74 70 75 74 20 61 6e 64 20  t to output and 
1740: 63 6c 6f 73 65 73 20 74 68 65 20 63 68 61 6e 6e  closes the chann
1750: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  el.. *. *-------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
17a0: 0a 69 6e 74 20 44 69 67 65 73 74 43 6c 6f 73 65  .int DigestClose
17b0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20  Proc(ClientData 
17c0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
17d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20  Interp *interp) 
17e0: 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 74  {.    DigestStat
17f0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44  e *statePtr = (D
1800: 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c  igestState *) cl
1810: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e  ientData;.    in
1820: 74 20 72 65 73 75 6c 74 20 3d 20 30 3b 0a 0a 20  t result = 0;.. 
1830: 20 20 20 2f 2a 20 43 61 6e 63 65 6c 20 61 63 74     /* Cancel act
1840: 69 76 65 20 74 69 6d 65 72 2c 20 69 66 20 61 6e  ive timer, if an
1850: 79 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61  y */.    if (sta
1860: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20  tePtr->timer != 
1870: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29  (Tcl_TimerToken)
1880: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65   NULL) {..Tcl_De
1890: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72  leteTimerHandler
18a0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72  (statePtr->timer
18b0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69  );..statePtr->ti
18c0: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72  mer = (Tcl_Timer
18d0: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20  Token) NULL;.   
18e0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e   }..    /* Clean
18f0: 2d 75 70 20 2a 2f 0a 20 20 20 20 44 69 67 65 73  -up */.    Diges
1900: 74 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b  tFree(statePtr);
1910: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 75  .    return resu
1920: 6c 74 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d  lt;.}../*. * Sam
1930: 65 20 61 73 20 44 69 67 65 73 74 43 6c 6f 73 65  e as DigestClose
1940: 50 72 6f 63 20 62 75 74 20 77 69 74 68 20 69 6e  Proc but with in
1950: 64 69 76 69 64 75 61 6c 20 72 65 61 64 20 61 6e  dividual read an
1960: 64 20 77 72 69 74 65 20 63 6c 6f 73 65 20 63 6f  d write close co
1970: 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 69 63  ntrol. */.static
1980: 20 69 6e 74 20 44 69 67 65 73 74 43 6c 6f 73 65   int DigestClose
1990: 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61  2Proc(ClientData
19a0: 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 54   instanceData, T
19b0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
19c0: 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 7b 0a  p, int flags) {.
19d0: 0a 20 20 20 20 69 66 20 28 28 66 6c 61 67 73 20  .    if ((flags 
19e0: 26 20 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41  & (TCL_CLOSE_REA
19f0: 44 20 7c 20 54 43 4c 5f 43 4c 4f 53 45 5f 57 52  D | TCL_CLOSE_WR
1a00: 49 54 45 29 29 20 3d 3d 20 30 29 20 7b 0a 09 72  ITE)) == 0) {..r
1a10: 65 74 75 72 6e 20 44 69 67 65 73 74 43 6c 6f 73  eturn DigestClos
1a20: 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 61  eProc(instanceDa
1a30: 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 20 20  ta, interp);.   
1a40: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 45 49   }.    return EI
1a50: 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d  NVAL;.}../*. *--
1a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1aa0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73  ----. *. * Diges
1ab0: 74 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a  tInputProc --. *
1ac0: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68  . *.Called by th
1ad0: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73  e generic IO sys
1ae0: 74 65 6d 20 74 6f 20 72 65 61 64 20 64 61 74 61  tem to read data
1af0: 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d 2e   from transform.
1b00: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a  . *. * Returns:.
1b10: 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 72   *.Total bytes r
1b20: 65 61 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ead. *. * Side e
1b30: 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 20  ffects:. *.Read 
1b40: 64 61 74 61 20 66 72 6f 6d 20 74 72 61 6e 73 66  data from transf
1b50: 6f 72 6d 20 61 6e 64 20 77 72 69 74 65 20 74 6f  orm and write to
1b60: 20 62 75 66 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d   buf. *. *------
1b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1bb0: 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 49  . */.int DigestI
1bc0: 6e 70 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44  nputProc(ClientD
1bd0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20  ata clientData, 
1be0: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74  char *buf, int t
1bf0: 6f 52 65 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f  oRead, int *erro
1c00: 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 20  rCodePtr) {.    
1c10: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61  DigestState *sta
1c20: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53  tePtr = (DigestS
1c30: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61  tate *) clientDa
1c40: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e  ta;.    Tcl_Chan
1c50: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20  nel parent;.    
1c60: 69 6e 74 20 72 65 61 64 3b 0a 20 20 20 20 2a 65  int read;.    *e
1c70: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b  rrorCodePtr = 0;
1c80: 0a 0a 20 20 20 20 69 66 20 28 74 6f 52 65 61 64  ..    if (toRead
1c90: 20 3c 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 74   <= 0 || statePt
1ca0: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f  r->self == (Tcl_
1cb0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b  Channel) NULL) {
1cc0: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20  ..return 0;.    
1cd0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 62 79  }..    /* Get by
1ce0: 74 65 73 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79  tes from underly
1cf0: 69 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20  ing channel */. 
1d00: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f     parent = Tcl_
1d10: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65  GetStackedChanne
1d20: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66  l(statePtr->self
1d30: 29 3b 0a 20 20 20 20 72 65 61 64 20 3d 20 54 63  );.    read = Tc
1d40: 6c 5f 52 65 61 64 52 61 77 28 70 61 72 65 6e 74  l_ReadRaw(parent
1d50: 2c 20 62 75 66 2c 20 74 6f 52 65 61 64 29 3b 0a  , buf, toRead);.
1d60: 0a 20 20 20 20 2f 2a 20 41 64 64 20 74 6f 20 6d  .    /* Add to m
1d70: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f  essage digest */
1d80: 0a 20 20 20 20 69 66 20 28 72 65 61 64 20 3e 20  .    if (read > 
1d90: 30 29 20 7b 0a 09 2f 2a 20 4f 4b 20 2a 2f 0a 09  0) {../* OK */..
1da0: 69 66 20 28 21 45 56 50 5f 44 69 67 65 73 74 55  if (!EVP_DigestU
1db0: 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e  pdate(statePtr->
1dc0: 63 74 78 2c 20 62 75 66 2c 20 72 65 61 64 29 29  ctx, buf, read))
1dd0: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 43   {..    Tcl_SetC
1de0: 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 74  hannelError(stat
1df0: 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f  ePtr->self, Tcl_
1e00: 4f 62 6a 50 72 69 6e 74 66 28 22 44 69 67 65 73  ObjPrintf("Diges
1e10: 74 20 75 70 64 61 74 65 20 66 61 69 6c 65 64 3a  t update failed:
1e20: 20 25 73 22 2c 20 52 45 41 53 4f 4e 28 29 29 29   %s", REASON()))
1e30: 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64  ;..    *errorCod
1e40: 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09  ePtr = EINVAL;..
1e50: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09      return -1;..
1e60: 7d 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72  }..*errorCodePtr
1e70: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 72 65 61 64   = EAGAIN;..read
1e80: 20 3d 20 2d 31 3b 0a 09 20 20 20 20 0a 20 20 20   = -1;..    .   
1e90: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64   } else if (read
1ea0: 20 3c 20 30 29 20 7b 0a 09 2f 2a 20 45 72 72 6f   < 0) {../* Erro
1eb0: 72 20 2a 2f 0a 09 2a 65 72 72 6f 72 43 6f 64 65  r */..*errorCode
1ec0: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72  Ptr = Tcl_GetErr
1ed0: 6e 6f 28 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73  no();..    } els
1ee0: 65 20 69 66 20 28 21 28 73 74 61 74 65 50 74 72  e if (!(statePtr
1ef0: 2d 3e 66 6c 61 67 73 20 26 20 30 78 31 30 29 29  ->flags & 0x10))
1f00: 20 7b 0a 09 2f 2a 20 45 4f 46 20 2a 2f 0a 09 2a   {../* EOF */..*
1f10: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30  errorCodePtr = 0
1f20: 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72  ;..unsigned char
1f30: 20 6d 64 5f 62 75 66 5b 45 56 50 5f 4d 41 58 5f   md_buf[EVP_MAX_
1f40: 4d 44 5f 53 49 5a 45 5d 3b 0a 09 75 6e 73 69 67  MD_SIZE];..unsig
1f50: 6e 65 64 20 69 6e 74 20 6d 64 5f 6c 65 6e 20 3d  ned int md_len =
1f60: 20 30 3b 0a 0a 09 2f 2a 20 47 65 74 20 6d 65 73   0;.../* Get mes
1f70: 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 09  sage digest */..
1f80: 69 66 20 28 21 45 56 50 5f 44 69 67 65 73 74 46  if (!EVP_DigestF
1f90: 69 6e 61 6c 5f 65 78 28 73 74 61 74 65 50 74 72  inal_ex(statePtr
1fa0: 2d 3e 63 74 78 2c 20 6d 64 5f 62 75 66 2c 20 26  ->ctx, md_buf, &
1fb0: 6d 64 5f 6c 65 6e 29 29 20 7b 0a 09 20 20 20 20  md_len)) {..    
1fc0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20  *errorCodePtr = 
1fd0: 45 49 4e 56 41 4c 3b 0a 0a 09 2f 2a 20 57 72 69  EINVAL;.../* Wri
1fe0: 74 65 20 6d 65 73 73 61 67 65 20 64 69 67 65 73  te message diges
1ff0: 74 20 74 6f 20 6f 75 74 70 75 74 20 63 68 61 6e  t to output chan
2000: 6e 65 6c 20 61 73 20 62 79 74 65 20 61 72 72 61  nel as byte arra
2010: 79 20 6f 72 20 68 65 78 20 73 74 72 69 6e 67 20  y or hex string 
2020: 2a 2f 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 6d  */..} else if (m
2030: 64 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 20  d_len > 0) {..  
2040: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e    if (statePtr->
2050: 66 6f 72 6d 61 74 20 3d 3d 20 42 49 4e 5f 46 4f  format == BIN_FO
2060: 52 4d 41 54 29 20 7b 0a 09 09 72 65 61 64 20 3d  RMAT) {...read =
2070: 20 6d 64 5f 6c 65 6e 3b 0a 09 09 6d 65 6d 63 70   md_len;...memcp
2080: 79 28 62 75 66 2c 20 6d 64 5f 62 75 66 2c 20 72  y(buf, md_buf, r
2090: 65 61 64 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c  ead);...    } el
20a0: 73 65 20 7b 0a 09 09 75 6e 73 69 67 6e 65 64 20  se {...unsigned 
20b0: 63 68 61 72 20 68 65 78 5f 62 75 66 5b 45 56 50  char hex_buf[EVP
20c0: 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 2a 32 5d 3b  _MAX_MD_SIZE*2];
20d0: 0a 09 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72  ...unsigned char
20e0: 20 2a 70 74 72 20 3d 20 68 65 78 5f 62 75 66 3b   *ptr = hex_buf;
20f0: 0a 0a 09 09 66 6f 72 20 28 75 6e 73 69 67 6e 65  ....for (unsigne
2100: 64 20 69 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c  d int i = 0; i <
2110: 20 6d 64 5f 6c 65 6e 3b 20 69 2b 2b 29 20 7b 0a   md_len; i++) {.
2120: 09 09 20 20 20 20 2a 70 74 72 2b 2b 20 3d 20 68  ..    *ptr++ = h
2130: 65 78 5b 28 6d 64 5f 62 75 66 5b 69 5d 20 3e 3e  ex[(md_buf[i] >>
2140: 20 34 29 20 26 20 30 78 30 46 5d 3b 0a 09 09 20   4) & 0x0F];... 
2150: 20 20 20 2a 70 74 72 2b 2b 20 3d 20 68 65 78 5b     *ptr++ = hex[
2160: 6d 64 5f 62 75 66 5b 69 5d 20 26 20 30 78 30 46  md_buf[i] & 0x0F
2170: 5d 3b 0a 09 09 7d 0a 09 09 72 65 61 64 20 3d 20  ];...}...read = 
2180: 6d 64 5f 6c 65 6e 2a 32 3b 0a 09 09 6d 65 6d 63  md_len*2;...memc
2190: 70 79 28 62 75 66 2c 20 68 65 78 5f 62 75 66 2c  py(buf, hex_buf,
21a0: 20 72 65 61 64 29 3b 0a 09 20 20 20 20 7d 0a 09   read);..    }..
21b0: 7d 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61  }..statePtr->fla
21c0: 67 73 20 7c 3d 20 30 78 31 30 3b 0a 20 20 20 20  gs |= 0x10;.    
21d0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 61  }.    return rea
21e0: 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  d;.}../*. *-----
21f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2230: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4f 75  -. *. * DigestOu
2240: 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20  tputProc --. *. 
2250: 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20  *.Called by the 
2260: 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65  generic IO syste
2270: 6d 20 74 6f 20 77 72 69 74 65 20 64 61 74 61 20  m to write data 
2280: 74 6f 20 74 72 61 6e 73 66 6f 72 6d 2e 0a 20 2a  to transform.. *
2290: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09  . * Returns:. *.
22a0: 54 6f 74 61 6c 20 62 79 74 65 73 20 77 72 69 74  Total bytes writ
22b0: 74 65 6e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ten. *. * Side e
22c0: 66 66 65 63 74 73 3a 0a 20 2a 09 47 65 74 20 64  ffects:. *.Get d
22d0: 61 74 61 20 66 72 6f 6d 20 62 75 66 20 61 6e 64  ata from buf and
22e0: 20 75 70 64 61 74 65 20 64 69 67 65 73 74 0a 20   update digest. 
22f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
2300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 20  ----------. */. 
2340: 69 6e 74 20 44 69 67 65 73 74 4f 75 74 70 75 74  int DigestOutput
2350: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20  Proc(ClientData 
2360: 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 6f 6e 73  clientData, cons
2370: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74  t char *buf, int
2380: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65   toWrite, int *e
2390: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20  rrorCodePtr) {. 
23a0: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a     DigestState *
23b0: 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65  statePtr = (Dige
23c0: 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e  stState *) clien
23d0: 74 44 61 74 61 3b 0a 20 20 20 20 2a 65 72 72 6f  tData;.    *erro
23e0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20  rCodePtr = 0;.. 
23f0: 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 3c     if (toWrite <
2400: 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 74 72 2d  = 0 || statePtr-
2410: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68  >self == (Tcl_Ch
2420: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09  annel) NULL) {..
2430: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a  return 0;.    }.
2440: 20 20 20 20 72 65 74 75 72 6e 20 74 6f 57 72 69      return toWri
2450: 74 65 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  te;.}../*. *----
2460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24a0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 53  --. *. * DigestS
24b0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a  etOptionProc --.
24c0: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20   *. *.Called by 
24d0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73  the generic IO s
24e0: 79 73 74 65 6d 20 74 6f 20 73 65 74 20 63 68 61  ystem to set cha
24f0: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 76  nnel option to v
2500: 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75  alue.. *. * Retu
2510: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69  rns:. *.TCL_OK i
2520: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20  f successful or 
2530: 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69  TCL_ERROR if fai
2540: 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  led.. *. * Side 
2550: 65 66 66 65 63 74 73 3a 0a 20 2a 09 55 70 64 61  effects:. *.Upda
2560: 74 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69  tes channel opti
2570: 6f 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e  on to new value.
2580: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
2590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25a0: 2d 2d 2d 2d 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 0a 20 2a 2f  ------------. */
25d0: 0a 73 74 61 74 69 63 20 69 6e 74 20 44 69 67 65  .static int Dige
25e0: 73 74 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28  stSetOptionProc(
25f0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
2600: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72  tData, Tcl_Inter
2610: 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74  p *interp, const
2620: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d   char *optionNam
2630: 65 2c 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a  e,..const char *
2640: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20  optionValue) {. 
2650: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a     DigestState *
2660: 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65  statePtr = (Dige
2670: 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e  stState *) clien
2680: 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43  tData;.    Tcl_C
2690: 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20  hannel parent;. 
26a0: 20 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74     Tcl_DriverSet
26b0: 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f  OptionProc *setO
26c0: 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20  ptionProc;..    
26d0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65  if (statePtr->se
26e0: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  lf == (Tcl_Chann
26f0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74  el) NULL) {..ret
2700: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
2710: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c     }..    /* Del
2720: 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f  egate options do
2730: 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20  wnstream */.    
2740: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74  parent = Tcl_Get
2750: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73  StackedChannel(s
2760: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a  tatePtr->self);.
2770: 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f      setOptionPro
2780: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53  c = Tcl_ChannelS
2790: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c  etOptionProc(Tcl
27a0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28  _GetChannelType(
27b0: 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66  parent));.    if
27c0: 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20   (setOptionProc 
27d0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75  != NULL) {..retu
27e0: 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72  rn (*setOptionPr
27f0: 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e  oc)(Tcl_GetChann
2800: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70  elInstanceData(p
2810: 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20  arent), interp, 
2820: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69  optionName, opti
2830: 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20  onValue);.    } 
2840: 65 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 54  else {..return T
2850: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
2860: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  }../*. *--------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
28b0: 2a 0a 20 2a 20 44 69 67 65 73 74 47 65 74 4f 70  *. * DigestGetOp
28c0: 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20  tionProc --. *. 
28d0: 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20  *.Called by the 
28e0: 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65  generic IO syste
28f0: 6d 20 74 6f 20 67 65 74 20 63 68 61 6e 6e 65 6c  m to get channel
2900: 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 2e   option's value.
2910: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a  . *. * Returns:.
2920: 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63   *.TCL_OK if suc
2930: 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45  cessful or TCL_E
2940: 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 2e 0a  RROR if failed..
2950: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
2960: 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75  ts:. *.Sets resu
2970: 6c 74 20 74 6f 20 6f 70 74 69 6f 6e 27 73 20 76  lt to option's v
2980: 61 6c 75 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  alue. *. *------
2990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29d0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  . */.static int 
29e0: 44 69 67 65 73 74 47 65 74 4f 70 74 69 6f 6e 50  DigestGetOptionP
29f0: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63  roc(ClientData c
2a00: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49  lientData, Tcl_I
2a10: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63  nterp *interp, c
2a20: 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f  onst char *optio
2a30: 6e 4e 61 6d 65 2c 0a 09 54 63 6c 5f 44 53 74 72  nName,..Tcl_DStr
2a40: 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65  ing *optionValue
2a50: 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74  ) {.    DigestSt
2a60: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20  ate *statePtr = 
2a70: 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 20  (DigestState *) 
2a80: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20  clientData;.    
2a90: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65  Tcl_Channel pare
2aa0: 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76  nt;.    Tcl_Driv
2ab0: 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20  erGetOptionProc 
2ac0: 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a  *getOptionProc;.
2ad0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74  .    if (statePt
2ae0: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f  r->self == (Tcl_
2af0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b  Channel) NULL) {
2b00: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
2b10: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  OR;.    }..    /
2b20: 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 69 6f  * Delegate optio
2b30: 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 2a 2f  ns downstream */
2b40: 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63  .    parent = Tc
2b50: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e  l_GetStackedChan
2b60: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65  nel(statePtr->se
2b70: 6c 66 29 3b 0a 20 20 20 20 67 65 74 4f 70 74 69  lf);.    getOpti
2b80: 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61  onProc = Tcl_Cha
2b90: 6e 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 72 6f  nnelGetOptionPro
2ba0: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  c(Tcl_GetChannel
2bb0: 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a 20  Type(parent));. 
2bc0: 20 20 20 69 66 20 28 67 65 74 4f 70 74 69 6f 6e     if (getOption
2bd0: 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a  Proc != NULL) {.
2be0: 09 72 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 74  .return (*getOpt
2bf0: 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74  ionProc)(Tcl_Get
2c00: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44  ChannelInstanceD
2c10: 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e 74  ata(parent), int
2c20: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c  erp, optionName,
2c30: 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20   optionValue);. 
2c40: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70     } else if (op
2c50: 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61  tionName == (cha
2c60: 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20  r*) NULL) {../* 
2c70: 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79  Request is query
2c80: 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73   for all options
2c90: 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 20 2a 2f  , this is ok. */
2ca0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b  ..return TCL_OK;
2cb0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52  .    }..    /* R
2cc0: 65 71 75 65 73 74 20 66 6f 72 20 61 20 73 70 65  equest for a spe
2cd0: 63 69 66 69 63 20 6f 70 74 69 6f 6e 20 68 61 73  cific option has
2ce0: 20 74 6f 20 66 61 69 6c 2c 20 77 65 20 64 6f 6e   to fail, we don
2cf0: 27 74 20 68 61 76 65 20 61 6e 79 2e 20 2a 2f 0a  't have any. */.
2d00: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 42      return Tcl_B
2d10: 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28  adChannelOption(
2d20: 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61  interp, optionNa
2d30: 6d 65 2c 20 22 22 29 3b 0a 7d 0a 0a 2f 2a 0a 20  me, "");.}../*. 
2d40: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
2d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d80: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69  -------. *. * Di
2d90: 67 65 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72  gestTimerHandler
2da0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64   --. *. *.Called
2db0: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72   by the notifier
2dc0: 20 76 69 61 20 74 69 6d 65 72 20 74 6f 20 66 6c   via timer to fl
2dd0: 75 73 68 20 6f 75 74 20 70 65 6e 64 69 6e 67 20  ush out pending 
2de0: 69 6e 70 75 74 20 64 61 74 61 2e 0a 20 2a 0a 20  input data.. *. 
2df0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f  * Returns:. *.No
2e00: 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65  thing. *. * Side
2e10: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79   effects:. *.May
2e20: 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79   call Tcl_Notify
2e30: 43 68 61 6e 6e 65 6c 0a 20 2a 0a 20 2a 2d 2d 2d  Channel. *. *---
2e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2e80: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76  ---. */.static v
2e90: 6f 69 64 20 44 69 67 65 73 74 54 69 6d 65 72 48  oid DigestTimerH
2ea0: 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74  andler(ClientDat
2eb0: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a  a clientData) {.
2ec0: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20      DigestState 
2ed0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67  *statePtr = (Dig
2ee0: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65  estState *) clie
2ef0: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20  ntData;..    if 
2f00: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20  (statePtr->self 
2f10: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29  == (Tcl_Channel)
2f20: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e   NULL) {..return
2f30: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20  ;.    }..    /* 
2f40: 43 6c 65 61 72 20 74 69 6d 65 72 20 74 6f 6b 65  Clear timer toke
2f50: 6e 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74  n */.    statePt
2f60: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f  r->timer = (Tcl_
2f70: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c  TimerToken) NULL
2f80: 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 72 65 20 65  ;..    /* Fire e
2f90: 76 65 6e 74 20 69 66 20 74 68 65 72 65 20 69 73  vent if there is
2fa0: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 2c 20 73   pending data, s
2fb0: 6b 69 70 20 6f 74 68 65 72 77 69 73 65 20 2a 2f  kip otherwise */
2fc0: 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 65 50  .    if ((stateP
2fd0: 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 26 20  tr->watchMask & 
2fe0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26  TCL_READABLE) &&
2ff0: 20 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65   (Tcl_InputBuffe
3000: 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65  red(statePtr->se
3010: 6c 66 29 20 3e 20 30 29 29 20 7b 0a 09 54 63 6c  lf) > 0)) {..Tcl
3020: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73  _NotifyChannel(s
3030: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54  tatePtr->self, T
3040: 43 4c 5f 52 45 41 44 41 42 4c 45 29 3b 0a 20 20  CL_READABLE);.  
3050: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d    }.}../*. *----
3060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
30a0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 57  --. *. * DigestW
30b0: 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20  atchProc --. *. 
30c0: 2a 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65  *.Initialize the
30d0: 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74   notifier to wat
30e0: 63 68 20 66 6f 72 20 65 76 65 6e 74 73 20 66 72  ch for events fr
30f0: 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e  om this channel.
3100: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a  . *. * Returns:.
3110: 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a   *.Nothing. *. *
3120: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
3130: 2a 09 43 6f 6e 66 69 67 75 72 65 20 6e 6f 74 69  *.Configure noti
3140: 66 69 65 72 20 73 6f 20 66 75 74 75 72 65 20 65  fier so future e
3150: 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61  vents on the cha
3160: 6e 6e 65 6c 20 77 69 6c 6c 20 62 65 20 73 65 65  nnel will be see
3170: 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d  n by Tcl.. *. *-
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31c0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 64 65 66 69 6e  -----. */.#defin
31d0: 65 20 52 45 41 44 5f 44 45 4c 41 59 09 35 0a 76  e READ_DELAY.5.v
31e0: 6f 69 64 20 44 69 67 65 73 74 57 61 74 63 68 50  oid DigestWatchP
31f0: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63  roc(ClientData c
3200: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d  lientData, int m
3210: 61 73 6b 29 20 7b 0a 20 20 20 20 44 69 67 65 73  ask) {.    Diges
3220: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72  tState *statePtr
3230: 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20   = (DigestState 
3240: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20  *) clientData;. 
3250: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70     Tcl_Channel p
3260: 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44  arent;.    Tcl_D
3270: 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 20 2a  riverWatchProc *
3280: 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 20  watchProc;..    
3290: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65  if (statePtr->se
32a0: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  lf == (Tcl_Chann
32b0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74  el) NULL) {..ret
32c0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  urn;.    }..    
32d0: 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 64 20 63  /* Store OR-ed c
32e0: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43  ombination of TC
32f0: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f  L_READABLE, TCL_
3300: 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c  WRITABLE and TCL
3310: 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f 0a 20 20  _EXCEPTION */.  
3320: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63    statePtr->watc
3330: 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20  hMask = mask;.. 
3340: 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 74 65 20     /* Propagate 
3350: 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 70 61 72  mask info to par
3360: 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20  ent channel */. 
3370: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f     parent = Tcl_
3380: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65  GetStackedChanne
3390: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66  l(statePtr->self
33a0: 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63  );.    watchProc
33b0: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61   = Tcl_ChannelWa
33c0: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43  tchProc(Tcl_GetC
33d0: 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e  hannelType(paren
33e0: 74 29 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72  t));.    watchPr
33f0: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  oc(Tcl_GetChanne
3400: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61  lInstanceData(pa
3410: 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20  rent), mask);.. 
3420: 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 70 65 6e     /* Remove pen
3430: 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f 0a 20 20  ding timer */.  
3440: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e    if (statePtr->
3450: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69  timer != (Tcl_Ti
3460: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20  merToken) NULL) 
3470: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d  {..Tcl_DeleteTim
3480: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50  erHandler(stateP
3490: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61  tr->timer);..sta
34a0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28  tePtr->timer = (
34b0: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20  Tcl_TimerToken) 
34c0: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  NULL;.    }..   
34d0: 20 2f 2a 20 49 66 20 74 68 65 72 65 20 69 73 20   /* If there is 
34e0: 64 61 74 61 20 70 65 6e 64 69 6e 67 2c 20 73 65  data pending, se
34f0: 74 20 6e 65 77 20 74 69 6d 65 72 20 74 6f 20 63  t new timer to c
3500: 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68  all Tcl_NotifyCh
3510: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20  annel */.    if 
3520: 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41  ((mask & TCL_REA
3530: 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49  DABLE) && (Tcl_I
3540: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61  nputBuffered(sta
3550: 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30  tePtr->self) > 0
3560: 29 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e  )) {..statePtr->
3570: 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61  timer = Tcl_Crea
3580: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 52  teTimerHandler(R
3590: 45 41 44 5f 44 45 4c 41 59 2c 20 44 69 67 65 73  EAD_DELAY, Diges
35a0: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 2c 20 28  tTimerHandler, (
35b0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74  ClientData) stat
35c0: 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a  ePtr);.    }.}..
35d0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
35e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
3620: 2a 20 44 69 67 65 73 74 47 65 74 48 61 6e 64 6c  * DigestGetHandl
3630: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43  eProc --. *. *.C
3640: 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47  alled from Tcl_G
3650: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20  etChannelHandle 
3660: 74 6f 20 72 65 74 72 69 65 76 65 20 4f 53 20 73  to retrieve OS s
3670: 70 65 63 69 66 69 63 20 66 69 6c 65 20 68 61 6e  pecific file han
3680: 64 6c 65 0a 20 2a 09 66 72 6f 6d 20 69 6e 73 69  dle. *.from insi
3690: 64 65 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e  de this channel.
36a0: 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 74 72   Not used for tr
36b0: 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 3f 0a 20  ansformations?. 
36c0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a  *. * Returns:. *
36d0: 09 49 66 20 64 69 72 65 63 74 69 6f 6e 20 69 73  .If direction is
36e0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 72 65   TCL_READABLE re
36f0: 74 75 72 6e 20 74 68 65 20 68 61 6e 64 6c 65 20  turn the handle 
3700: 75 73 65 64 20 66 6f 72 20 69 6e 70 75 74 2c 20  used for input, 
3710: 6f 72 20 69 66 0a 20 2a 09 54 43 4c 5f 57 52 49  or if. *.TCL_WRI
3720: 54 41 42 4c 45 20 72 65 74 75 72 6e 20 74 68 65  TABLE return the
3730: 20 68 61 6e 64 6c 65 20 75 73 65 64 20 66 6f 72   handle used for
3740: 20 6f 75 74 70 75 74 2e 0a 20 2a 0a 20 2a 20 53   output.. *. * S
3750: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
3760: 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  None. *. *------
3770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37b0: 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 47  . */.int DigestG
37c0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69  etHandleProc(Cli
37d0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61  entData clientDa
37e0: 74 61 2c 20 69 6e 74 20 64 69 72 65 63 74 69 6f  ta, int directio
37f0: 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68  n, ClientData *h
3800: 61 6e 64 6c 65 50 74 72 29 20 7b 0a 20 20 20 20  andlePtr) {.    
3810: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61  DigestState *sta
3820: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53  tePtr = (DigestS
3830: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61  tate *) clientDa
3840: 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61  ta;..    if (sta
3850: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28  tePtr->self == (
3860: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c  Tcl_Channel) NUL
3870: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c  L) {..return TCL
3880: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20  _ERROR;.    }.  
3890: 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74    return Tcl_Get
38a0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 54 63  ChannelHandle(Tc
38b0: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e  l_GetStackedChan
38c0: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65  nel(statePtr->se
38d0: 6c 66 29 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20  lf), direction, 
38e0: 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0a 2f  handlePtr);.}../
38f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
3900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
3940: 20 44 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f   DigestNotifyPro
3950: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65  c --. *. *.Calle
3960: 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e 66 6f  d by Tcl to info
3970: 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69 74  rm us of activit
3980: 79 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79  y on the underly
3990: 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a  ing channel.. *.
39a0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 55   * Returns:. *.U
39b0: 6e 63 68 61 6e 67 65 64 20 69 6e 74 65 72 65 73  nchanged interes
39c0: 74 4d 61 73 6b 20 77 68 69 63 68 20 69 73 20 61  tMask which is a
39d0: 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74  n OR-ed combinat
39e0: 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41  ion of TCL_READA
39f0: 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 41  BLE or TCL_WRITA
3a00: 42 4c 45 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  BLE. *. * Side e
3a10: 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6e 63 65  ffects:. *.Cance
3a20: 6c 73 20 61 6e 79 20 70 65 6e 64 69 6e 67 20 74  ls any pending t
3a30: 69 6d 65 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  imer.. *. *-----
3a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a80: 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74  -. */.int Digest
3a90: 4e 6f 74 69 66 79 50 72 6f 63 28 43 6c 69 65 6e  NotifyProc(Clien
3aa0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
3ab0: 2c 20 69 6e 74 20 69 6e 74 65 72 65 73 74 4d 61  , int interestMa
3ac0: 73 6b 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74  sk) {.    Digest
3ad0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20  State *statePtr 
3ae0: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a  = (DigestState *
3af0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20  ) clientData;.. 
3b00: 20 20 20 2f 2a 20 53 6b 69 70 20 74 69 6d 65 72     /* Skip timer
3b10: 20 65 76 65 6e 74 20 61 73 20 72 65 64 75 6e 64   event as redund
3b20: 61 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73  ant */.    if (s
3b30: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21  tatePtr->timer !
3b40: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65  = (Tcl_TimerToke
3b50: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f  n) NULL) {..Tcl_
3b60: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c  DeleteTimerHandl
3b70: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d  er(statePtr->tim
3b80: 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e  er);..statePtr->
3b90: 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d  timer = (Tcl_Tim
3ba0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20  erToken) NULL;. 
3bb0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
3bc0: 69 6e 74 65 72 65 73 74 4d 61 73 6b 3b 0a 7d 0a  interestMask;.}.
3bd0: 0a 2f 2a 0a 20 2a 0a 20 2a 20 43 68 61 6e 6e 65  ./*. *. * Channe
3be0: 6c 20 74 79 70 65 20 73 74 72 75 63 74 75 72 65  l type structure
3bf0: 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20   definition for 
3c00: 64 69 67 65 73 74 20 74 72 61 6e 73 66 6f 72 6d  digest transform
3c10: 61 74 69 6f 6e 73 2e 0a 20 2a 0a 20 2a 2f 0a 73  ations.. *. */.s
3c20: 74 61 74 69 63 20 63 6f 6e 73 74 20 54 63 6c 5f  tatic const Tcl_
3c30: 43 68 61 6e 6e 65 6c 54 79 70 65 20 64 69 67 65  ChannelType dige
3c40: 73 74 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20  stChannelType = 
3c50: 7b 0a 20 20 20 20 22 64 69 67 65 73 74 22 2c 09  {.    "digest",.
3c60: 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a  ../* Type name *
3c70: 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45  /.    TCL_CHANNE
3c80: 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20  L_VERSION_5,./* 
3c90: 76 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20  v5 channel */.  
3ca0: 20 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f    DigestClosePro
3cb0: 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f  c,../* Close pro
3cc0: 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 49  c */.    DigestI
3cd0: 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e  nputProc,../* In
3ce0: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20  put proc */.    
3cf0: 44 69 67 65 73 74 4f 75 74 70 75 74 50 72 6f 63  DigestOutputProc
3d00: 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f  ,../* Output pro
3d10: 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09  c */.    NULL,..
3d20: 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f  ./* Seek proc */
3d30: 0a 20 20 20 20 44 69 67 65 73 74 53 65 74 4f 70  .    DigestSetOp
3d40: 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 53 65 74  tionProc,./* Set
3d50: 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a   option proc */.
3d60: 20 20 20 20 44 69 67 65 73 74 47 65 74 4f 70 74      DigestGetOpt
3d70: 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20  ionProc,./* Get 
3d80: 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20  option proc */. 
3d90: 20 20 20 44 69 67 65 73 74 57 61 74 63 68 50 72     DigestWatchPr
3da0: 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69  oc,../* Initiali
3db0: 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20  ze notifier */. 
3dc0: 20 20 20 44 69 67 65 73 74 47 65 74 48 61 6e 64     DigestGetHand
3dd0: 6c 65 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 4f  leProc,./* Get O
3de0: 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66  S handles out of
3df0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20   channel */.    
3e00: 44 69 67 65 73 74 43 6c 6f 73 65 32 50 72 6f 63  DigestClose2Proc
3e10: 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63  ,../* close2proc
3e20: 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 42 6c   */.    DigestBl
3e30: 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a 20  ockModeProc,./* 
3e40: 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e  Set blocking/non
3e50: 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a  blocking mode*/.
3e60: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46      NULL,.../* F
3e70: 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20  lush proc */.   
3e80: 20 44 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f   DigestNotifyPro
3e90: 63 2c 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 20  c,../* Handling 
3ea0: 6f 66 20 65 76 65 6e 74 73 20 62 75 62 62 6c 69  of events bubbli
3eb0: 6e 67 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 4c  ng up */.    NUL
3ec0: 4c 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 65 65  L,.../* Wide see
3ed0: 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55  k proc */.    NU
3ee0: 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 20  LL,.../* Thread 
3ef0: 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55  action */.    NU
3f00: 4c 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 65  LL.../* Truncate
3f10: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d   */.};../*. *---
3f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f60: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74  ---. *. * Digest
3f70: 43 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a 20 2a  Channel --. *. *
3f80: 09 43 72 65 61 74 65 20 61 20 73 74 61 63 6b 65  .Create a stacke
3f90: 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20  d channel for a 
3fa0: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 74  message digest t
3fb0: 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20  ransformation.. 
3fc0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a  *. * Returns:. *
3fd0: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45  .TCL_OK or TCL_E
3fe0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20  RROR. *. * Side 
3ff0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73  effects:. *.Adds
4000: 20 74 72 61 6e 73 66 6f 72 6d 20 74 6f 20 63 68   transform to ch
4010: 61 6e 6e 65 6c 20 61 6e 64 20 73 65 74 73 20 72  annel and sets r
4020: 65 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c  esult to channel
4030: 20 6e 61 6d 65 20 6f 72 20 65 72 72 6f 72 20 6d   name or error m
4040: 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d  essage.. *. *---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4090: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69  ---. */.static i
40a0: 6e 74 0a 44 69 67 65 73 74 43 68 61 6e 6e 65 6c  nt.DigestChannel
40b0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
40c0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  erp, const char 
40d0: 2a 63 68 61 6e 6e 65 6c 2c 20 63 6f 6e 73 74 20  *channel, const 
40e0: 45 56 50 5f 4d 44 20 2a 6d 64 2c 20 69 6e 74 20  EVP_MD *md, int 
40f0: 66 6f 72 6d 61 74 29 20 7b 0a 20 20 20 20 69 6e  format) {.    in
4100: 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64  t mode; /* OR-ed
4110: 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20   combination of 
4120: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64  TCL_READABLE and
4130: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f   TCL_WRITABLE */
4140: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c  .    Tcl_Channel
4150: 20 63 68 61 6e 3b 0a 20 20 20 20 45 56 50 5f 4d   chan;.    EVP_M
4160: 44 5f 43 54 58 20 2a 63 74 78 3b 0a 20 20 20 20  D_CTX *ctx;.    
4170: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61  DigestState *sta
4180: 74 65 50 74 72 3b 0a 0a 20 20 20 20 2f 2a 20 56  tePtr;..    /* V
4190: 61 6c 69 64 61 74 65 20 61 72 67 73 20 2a 2f 0a  alidate args */.
41a0: 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 20      if (channel 
41b0: 3d 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a  == (const char *
41c0: 29 20 4e 55 4c 4c 20 7c 7c 20 6d 64 20 3d 3d 20  ) NULL || md == 
41d0: 28 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a 29  (const EVP_MD *)
41e0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e   NULL) {..return
41f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
4200: 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63  }..    chan = Tc
4210: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74  l_GetChannel(int
4220: 65 72 70 2c 20 63 68 61 6e 6e 65 6c 2c 20 26 6d  erp, channel, &m
4230: 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68  ode);.    if (ch
4240: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  an == (Tcl_Chann
4250: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74  el) NULL) {..ret
4260: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
4270: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b     }..    /* Mak
4280: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74  e sure to operat
4290: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74  e on the topmost
42a0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20   channel */.    
42b0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f  chan = Tcl_GetTo
42c0: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a  pChannel(chan);.
42d0: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 69  .    /* Create i
42e0: 6e 74 65 72 6e 61 6c 20 73 74 6f 72 61 67 65 20  nternal storage 
42f0: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20  structures */.  
4300: 20 20 63 74 78 20 3d 20 45 56 50 5f 4d 44 5f 43    ctx = EVP_MD_C
4310: 54 58 5f 6e 65 77 28 29 3b 0a 20 20 20 20 73 74  TX_new();.    st
4320: 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74  atePtr = (Digest
4330: 53 74 61 74 65 20 2a 29 20 63 6b 61 6c 6c 6f 63  State *) ckalloc
4340: 28 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65  ((unsigned) size
4350: 6f 66 28 44 69 67 65 73 74 53 74 61 74 65 29 29  of(DigestState))
4360: 3b 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 3d  ;.    if (ctx !=
4370: 20 4e 55 4c 4c 20 26 26 20 73 74 61 74 65 50 74   NULL && statePt
4380: 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65  r != NULL) {..me
4390: 6d 73 65 74 28 73 74 61 74 65 50 74 72 2c 20 30  mset(statePtr, 0
43a0: 2c 20 73 69 7a 65 6f 66 28 44 69 67 65 73 74 53  , sizeof(DigestS
43b0: 74 61 74 65 29 29 3b 0a 09 73 74 61 74 65 50 74  tate));..statePt
43c0: 72 2d 3e 73 65 6c 66 09 3d 20 63 68 61 6e 3b 09  r->self.= chan;.
43d0: 09 2f 2a 20 54 68 69 73 20 73 6f 63 6b 65 74 20  ./* This socket 
43e0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74  channel */..stat
43f0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54  ePtr->timer = (T
4400: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e  cl_TimerToken) N
4410: 55 4c 4c 3b 09 2f 2a 20 54 69 6d 65 72 20 74 6f  ULL;./* Timer to
4420: 20 66 6c 75 73 68 20 64 61 74 61 20 2a 2f 0a 09   flush data */..
4430: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20  statePtr->flags 
4440: 3d 20 30 3b 09 09 2f 2a 20 43 68 61 6e 20 63 6f  = 0;../* Chan co
4450: 6e 66 69 67 20 66 6c 61 67 73 20 2a 2f 0a 09 73  nfig flags */..s
4460: 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61  tatePtr->watchMa
4470: 73 6b 20 3d 20 30 3b 09 2f 2a 20 43 75 72 72 65  sk = 0;./* Curre
4480: 6e 74 20 57 61 74 63 68 50 72 6f 63 20 6d 61 73  nt WatchProc mas
4490: 6b 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e  k */..statePtr->
44a0: 6d 6f 64 65 09 3d 20 6d 6f 64 65 3b 09 09 2f 2a  mode.= mode;../*
44b0: 20 43 75 72 72 65 6e 74 20 6d 6f 64 65 20 6f 66   Current mode of
44c0: 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20   parent channel 
44d0: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6f  */..statePtr->fo
44e0: 72 6d 61 74 20 3d 20 66 6f 72 6d 61 74 3b 09 2f  rmat = format;./
44f0: 2a 20 4f 75 74 70 75 74 20 66 6f 72 6d 61 74 20  * Output format 
4500: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 69 6e  */..statePtr->in
4510: 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 09 2f  terp = interp;./
4520: 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70  * Current interp
4530: 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 74 65 50  reter */..stateP
4540: 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 09 09  tr->ctx = ctx;..
4550: 2f 2a 20 53 53 4c 20 43 6f 6e 74 65 78 74 20 2a  /* SSL Context *
4560: 2f 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09  /.    } else {..
4570: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
4580: 28 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61  (interp, "Initia
4590: 6c 69 7a 65 20 64 69 67 65 73 74 20 65 72 72 6f  lize digest erro
45a0: 72 3a 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61  r: memory alloca
45b0: 74 69 6f 6e 20 66 61 69 6c 75 72 65 22 2c 20 28  tion failure", (
45c0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
45d0: 45 56 50 5f 4d 44 5f 43 54 58 5f 66 72 65 65 28  EVP_MD_CTX_free(
45e0: 63 74 78 29 3b 0a 09 44 69 67 65 73 74 46 72 65  ctx);..DigestFre
45f0: 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65  e(statePtr);..re
4600: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
4610: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e      }..    /* In
4620: 69 74 69 61 6c 69 7a 65 20 64 69 67 65 73 74 20  itialize digest 
4630: 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56  */.#if OPENSSL_V
4640: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20  ERSION_NUMBER < 
4650: 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 20  0x30000000L.    
4660: 69 66 20 28 21 45 56 50 5f 44 69 67 65 73 74 49  if (!EVP_DigestI
4670: 6e 69 74 5f 65 78 28 63 74 78 2c 20 6d 64 2c 20  nit_ex(ctx, md, 
4680: 4e 55 4c 4c 29 29 0a 23 65 6c 73 65 0a 20 20 20  NULL)).#else.   
4690: 20 69 66 20 28 21 45 56 50 5f 44 69 67 65 73 74   if (!EVP_Digest
46a0: 49 6e 69 74 5f 65 78 32 28 63 74 78 2c 20 6d 64  Init_ex2(ctx, md
46b0: 2c 20 4e 55 4c 4c 29 29 0a 23 65 6e 64 69 66 0a  , NULL)).#endif.
46c0: 20 20 20 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e      {..Tcl_Appen
46d0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
46e0: 22 49 6e 69 74 69 61 6c 69 7a 65 20 64 69 67 65  "Initialize dige
46f0: 73 74 20 65 72 72 6f 72 3a 20 22 2c 20 52 45 41  st error: ", REA
4700: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20  SON(), (char *) 
4710: 4e 55 4c 4c 29 3b 0a 09 45 56 50 5f 4d 44 5f 43  NULL);..EVP_MD_C
4720: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 44  TX_free(ctx);..D
4730: 69 67 65 73 74 46 72 65 65 28 73 74 61 74 65 50  igestFree(stateP
4740: 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c  tr);..return TCL
4750: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
4760: 20 20 20 2f 2a 20 43 6f 6e 66 69 67 75 72 65 20     /* Configure 
4770: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 54  channel */.    T
4780: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74  cl_SetChannelOpt
4790: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e  ion(interp, chan
47a0: 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22  , "-translation"
47b0: 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20  , "binary");.   
47c0: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e   if (Tcl_GetChan
47d0: 6e 65 6c 42 75 66 66 65 72 53 69 7a 65 28 63 68  nelBufferSize(ch
47e0: 61 6e 29 20 3c 20 45 56 50 5f 4d 41 58 5f 4d 44  an) < EVP_MAX_MD
47f0: 5f 53 49 5a 45 20 2a 20 32 29 20 7b 0a 09 54 63  _SIZE * 2) {..Tc
4800: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 42 75 66 66  l_SetChannelBuff
4810: 65 72 53 69 7a 65 28 63 68 61 6e 2c 20 45 56 50  erSize(chan, EVP
4820: 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 20 2a 20 32  _MAX_MD_SIZE * 2
4830: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  );.    }..    /*
4840: 20 53 74 61 63 6b 20 63 68 61 6e 6e 65 6c 20 2a   Stack channel *
4850: 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e  /.    statePtr->
4860: 73 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b  self = Tcl_Stack
4870: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20  Channel(interp, 
4880: 26 64 69 67 65 73 74 43 68 61 6e 6e 65 6c 54 79  &digestChannelTy
4890: 70 65 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29  pe, (ClientData)
48a0: 20 73 74 61 74 65 50 74 72 2c 20 6d 6f 64 65 2c   statePtr, mode,
48b0: 20 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28   chan);.    if (
48c0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d  statePtr->self =
48d0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20  = (Tcl_Channel) 
48e0: 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 4d 44 5f  NULL) {..EVP_MD_
48f0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09  CTX_free(ctx);..
4900: 44 69 67 65 73 74 46 72 65 65 28 73 74 61 74 65  DigestFree(state
4910: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  Ptr);..return TC
4920: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
4930: 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c      Tcl_SetResul
4940: 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20  t(interp, (char 
4950: 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  *) Tcl_GetChanne
4960: 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 54 43 4c  lName(chan), TCL
4970: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20  _VOLATILE);.    
4980: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
4990: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
49a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
49e0: 0a 20 2a 20 55 6e 73 74 61 63 6b 20 43 68 61 6e  . * Unstack Chan
49f0: 6e 65 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69  nel --. *. *.Thi
4a00: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69  s procedure is i
4a10: 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73  nvoked to proces
4a20: 73 20 74 68 65 20 22 75 6e 73 74 61 63 6b 22 20  s the "unstack" 
4a30: 54 43 4c 20 63 6f 6d 6d 61 6e 64 2e 0a 20 2a 09  TCL command.. *.
4a40: 53 65 65 20 74 68 65 20 75 73 65 72 20 64 6f 63  See the user doc
4a50: 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 64  umentation for d
4a60: 65 74 61 69 6c 73 20 6f 6e 20 77 68 61 74 20 69  etails on what i
4a70: 74 20 64 6f 65 73 2e 0a 20 2a 0a 20 2a 20 52 65  t does.. *. * Re
4a80: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b  turns:. *.TCL_OK
4a90: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a   or TCL_ERROR. *
4aa0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
4ab0: 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 20 74 72 61  :. *.Removes tra
4ac0: 6e 73 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e  nsform from chan
4ad0: 6e 65 6c 20 6f 72 20 73 65 74 73 20 72 65 73 75  nel or sets resu
4ae0: 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 73  lt to error mess
4af0: 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  age.. *. *------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b40: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a  . */.static int.
4b50: 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 28 43 6c  UnstackObjCmd(Cl
4b60: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44  ientData clientD
4b70: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20  ata, Tcl_Interp 
4b80: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a  *interp, int obj
4b90: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73  c, Tcl_Obj *cons
4ba0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20  t objv[]) {.    
4bb0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e  Tcl_Channel chan
4bc0: 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 20  ;.    int mode; 
4bd0: 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61  /* OR-ed combina
4be0: 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44  tion of TCL_READ
4bf0: 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 57 52 49  ABLE and TCL_WRI
4c00: 54 41 42 4c 45 20 20 2a 2f 0a 0a 20 20 20 20 69  TABLE  */..    i
4c10: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a  f (objc != 2) {.
4c20: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67  .Tcl_WrongNumArg
4c30: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
4c40: 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09  v, "channel");..
4c50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
4c60: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20  ;.    }..    /* 
4c70: 47 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20  Get channel */. 
4c80: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65     chan = Tcl_Ge
4c90: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c  tChannel(interp,
4ca0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
4cb0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e  omObj(objv[1], N
4cc0: 55 4c 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 20  ULL), &mode);.  
4cd0: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54    if (chan == (T
4ce0: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c  cl_Channel) NULL
4cf0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ) {..return TCL_
4d00: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20  ERROR;.    }..  
4d10: 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74    /* Make sure t
4d20: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65  o operate on the
4d30: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c   topmost channel
4d40: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54   */.    chan = T
4d50: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c  cl_GetTopChannel
4d60: 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20  (chan);..    /* 
4d70: 43 68 65 63 6b 20 69 66 20 64 69 67 65 73 74 20  Check if digest 
4d80: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69  channel */.    i
4d90: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  f (Tcl_GetChanne
4da0: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 26  lType(chan) != &
4db0: 64 69 67 65 73 74 43 68 61 6e 6e 65 6c 54 79 70  digestChannelTyp
4dc0: 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64  e) {..Tcl_Append
4dd0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
4de0: 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c  bad channel \"",
4df0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e   Tcl_GetChannelN
4e00: 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 20 20 20  ame(chan),..    
4e10: 22 5c 22 3a 20 6e 6f 74 20 61 20 64 69 67 65 73  "\": not a diges
4e20: 74 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c  t channel", NULL
4e30: 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72  );..Tcl_SetError
4e40: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c  Code(interp, "TL
4e50: 53 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 22  S", "UNSTACK", "
4e60: 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c  CHANNEL", "INVAL
4e70: 49 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  ID", (char *) NU
4e80: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c  LL);..return TCL
4e90: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
4ea0: 20 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 66     /* Pop transf
4eb0: 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c  orm from channel
4ec0: 2c 20 6c 65 61 76 65 73 20 65 72 72 6f 72 20 69  , leaves error i
4ed0: 6e 66 6f 20 69 6e 20 69 6e 74 65 72 70 20 72 65  nfo in interp re
4ee0: 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 66 20 28  sult */.    if (
4ef0: 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e  Tcl_UnstackChann
4f00: 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29  el(interp, chan)
4f10: 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b   == TCL_ERROR) {
4f20: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
4f30: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  OR;.    }.    re
4f40: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20  turn TCL_OK;.   
4f50: 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63   .clientData = c
4f60: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a  lientData;.}../*
4f70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4f80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4f90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4fa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4fb0: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  **/../*. *------
4fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
5000: 0a 20 2a 20 44 69 67 65 73 74 48 61 73 68 46 75  . * DigestHashFu
5010: 6e 63 74 69 6f 6e 20 2d 2d 0a 20 2a 0a 20 2a 09  nction --. *. *.
5020: 20 43 61 6c 63 75 6c 61 74 65 20 6d 65 73 73 61   Calculate messa
5030: 67 65 20 64 69 67 65 73 74 20 75 73 69 6e 67 20  ge digest using 
5040: 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 20  hash function.. 
5050: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a  *. * Returns:. *
5060: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45  .TCL_OK or TCL_E
5070: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20  RROR. *. * Side 
5080: 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73  effects:. *.Sets
5090: 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 73 73 61   result to messa
50a0: 67 65 20 64 69 67 65 73 74 20 6f 72 20 65 72 72  ge digest or err
50b0: 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a  or message. *. *
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
50f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5100: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 0a 44 69 67 65  ---. */.int.Dige
5110: 73 74 48 61 73 68 46 75 6e 63 74 69 6f 6e 28 54  stHashFunction(T
5120: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
5130: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c  p, int objc, Tcl
5140: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76  _Obj *const objv
5150: 5b 5d 2c 0a 09 63 6f 6e 73 74 20 45 56 50 5f 4d  [],..const EVP_M
5160: 44 20 2a 6d 64 2c 20 69 6e 74 20 66 6f 72 6d 61  D *md, int forma
5170: 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f  t, Tcl_Obj *keyO
5180: 62 6a 29 20 7b 0a 20 20 20 20 63 68 61 72 20 2a  bj) {.    char *
5190: 64 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 6c 65  data;.    int le
51a0: 6e 2c 20 72 65 73 3b 0a 20 20 20 20 75 6e 73 69  n, res;.    unsi
51b0: 67 6e 65 64 20 69 6e 74 20 6d 64 5f 6c 65 6e 3b  gned int md_len;
51c0: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68  .    unsigned ch
51d0: 61 72 20 6d 64 5f 62 75 66 5b 45 56 50 5f 4d 41  ar md_buf[EVP_MA
51e0: 58 5f 4d 44 5f 53 49 5a 45 5d 3b 0a 0a 20 20 20  X_MD_SIZE];..   
51f0: 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20   if (objc != 2) 
5200: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  {..Tcl_WrongNumA
5210: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
5220: 62 6a 76 2c 20 22 64 61 74 61 22 29 3b 0a 09 72  bjv, "data");..r
5230: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
5240: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47  .    }..    /* G
5250: 65 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 64  et data */.    d
5260: 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74  ata = Tcl_GetByt
5270: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62  eArrayFromObj(ob
5280: 6a 76 5b 31 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20  jv[1], &len);.  
5290: 20 20 69 66 20 28 64 61 74 61 20 3d 3d 20 4e 55    if (data == NU
52a0: 4c 4c 20 7c 7c 20 6c 65 6e 20 3d 3d 20 30 29 20  LL || len == 0) 
52b0: 7b 0a 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74  {..Tcl_SetResult
52c0: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 64 61 74  (interp, "No dat
52d0: 61 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75  a", NULL);..retu
52e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
52f0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 61 6c 63    }..    /* Calc
5300: 75 6c 61 74 65 20 64 69 67 65 73 74 20 62 61 73  ulate digest bas
5310: 65 64 20 6f 6e 20 68 61 73 68 20 66 75 6e 63 74  ed on hash funct
5320: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b  ion */.    if (k
5330: 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b  eyObj == NULL) {
5340: 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65  ..res = EVP_Dige
5350: 73 74 28 64 61 74 61 2c 20 28 73 69 7a 65 5f 74  st(data, (size_t
5360: 29 20 6c 65 6e 2c 20 6d 64 5f 62 75 66 2c 20 26  ) len, md_buf, &
5370: 6d 64 5f 6c 65 6e 2c 20 6d 64 2c 20 4e 55 4c 4c  md_len, md, NULL
5380: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  );.    } else {.
5390: 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a  .unsigned char *
53a0: 6b 65 79 2c 20 2a 68 6d 61 63 3b 0a 09 69 6e 74  key, *hmac;..int
53b0: 20 6b 65 79 5f 6c 65 6e 3b 0a 0a 09 6b 65 79 20   key_len;...key 
53c0: 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72  = Tcl_GetByteArr
53d0: 61 79 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a  ayFromObj(keyObj
53e0: 2c 20 26 6b 65 79 5f 6c 65 6e 29 3b 0a 09 68 6d  , &key_len);..hm
53f0: 61 63 20 3d 20 48 4d 41 43 28 6d 64 2c 20 28 63  ac = HMAC(md, (c
5400: 6f 6e 73 74 20 76 6f 69 64 20 2a 29 20 6b 65 79  onst void *) key
5410: 2c 20 6b 65 79 5f 6c 65 6e 2c 20 28 63 6f 6e 73  , key_len, (cons
5420: 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20  t unsigned char 
5430: 2a 29 20 64 61 74 61 2c 0a 09 20 20 20 20 28 73  *) data,..    (s
5440: 69 7a 65 5f 74 29 20 6c 65 6e 2c 20 6d 64 5f 62  ize_t) len, md_b
5450: 75 66 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 09 72  uf, &md_len);..r
5460: 65 73 20 3d 20 28 68 6d 61 63 20 21 3d 20 4e 55  es = (hmac != NU
5470: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  LL);.    }..    
5480: 2f 2a 20 4f 75 74 70 75 74 20 64 69 67 65 73 74  /* Output digest
5490: 20 74 6f 20 72 65 73 75 6c 74 20 70 65 72 20 66   to result per f
54a0: 6f 72 6d 61 74 20 28 62 69 6e 20 6f 72 20 68 65  ormat (bin or he
54b0: 78 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 72 65  x) */.    if (re
54c0: 73 29 20 7b 0a 09 69 66 20 28 66 6f 72 6d 61 74  s) {..if (format
54d0: 20 3d 3d 20 42 49 4e 5f 46 4f 52 4d 41 54 29 20   == BIN_FORMAT) 
54e0: 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  {..    Tcl_SetOb
54f0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
5500: 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79  Tcl_NewByteArray
5510: 4f 62 6a 28 6d 64 5f 62 75 66 2c 20 6d 64 5f 6c  Obj(md_buf, md_l
5520: 65 6e 29 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b  en));...} else {
5530: 0a 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72  ..    Tcl_Obj *r
5540: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e  esultObj = Tcl_N
5550: 65 77 4f 62 6a 28 29 3b 0a 09 20 20 20 20 75 6e  ewObj();..    un
5560: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 70 74 72  signed char *ptr
5570: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72   = Tcl_SetByteAr
5580: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74  rayLength(result
5590: 4f 62 6a 2c 20 6d 64 5f 6c 65 6e 2a 32 29 3b 0a  Obj, md_len*2);.
55a0: 0a 09 20 20 20 20 66 6f 72 20 28 75 6e 73 69 67  ..    for (unsig
55b0: 6e 65 64 20 69 6e 74 20 69 20 3d 20 30 3b 20 69  ned int i = 0; i
55c0: 20 3c 20 6d 64 5f 6c 65 6e 3b 20 69 2b 2b 29 20   < md_len; i++) 
55d0: 7b 0a 09 09 2a 70 74 72 2b 2b 20 3d 20 68 65 78  {...*ptr++ = hex
55e0: 5b 28 6d 64 5f 62 75 66 5b 69 5d 20 3e 3e 20 34  [(md_buf[i] >> 4
55f0: 29 20 26 20 30 78 30 46 5d 3b 0a 09 09 2a 70 74  ) & 0x0F];...*pt
5600: 72 2b 2b 20 3d 20 68 65 78 5b 6d 64 5f 62 75 66  r++ = hex[md_buf
5610: 5b 69 5d 20 26 20 30 78 30 46 5d 3b 0a 09 20 20  [i] & 0x0F];..  
5620: 20 20 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52    }..Tcl_SetObjR
5630: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65  esult(interp, re
5640: 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d 0a 0a 20 20  sultObj);..}..  
5650: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f    } else {..Tcl_
5660: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
5670: 65 72 70 2c 20 22 48 61 73 68 20 63 61 6c 63 75  erp, "Hash calcu
5680: 6c 61 74 69 6f 6e 20 65 72 72 6f 72 3a 22 2c 20  lation error:", 
5690: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20  REASON(), (char 
56a0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72  *) NULL);..retur
56b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
56c0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43   }.    return TC
56d0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d  L_OK;.}../*. *--
56e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
56f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5720: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4f 62  -. *. * DigestOb
5730: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65  jCmd --. *. *.Re
5740: 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 69 67  turn message dig
5750: 65 73 74 20 75 73 69 6e 67 20 75 73 65 72 20 73  est using user s
5760: 70 65 63 69 66 69 65 64 20 68 61 73 68 20 66 75  pecified hash fu
5770: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65  nction.. *. * Re
5780: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b  turns:. *.TCL_OK
5790: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a   or TCL_ERROR. *
57a0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
57b0: 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74  :. *.Sets result
57c0: 20 74 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65   to message dige
57d0: 73 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73  st or error mess
57e0: 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  age. *. *-------
57f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
5830: 0a 73 74 61 74 69 63 20 69 6e 74 0a 44 69 67 65  .static int.Dige
5840: 73 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44  stObjCmd(ClientD
5850: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20  ata clientData, 
5860: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
5870: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63  rp, int objc, Tc
5880: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a  l_Obj *const obj
5890: 76 5b 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 69  v[]) {.    int i
58a0: 64 78 2c 20 6c 65 6e 2c 20 66 6f 72 6d 61 74 20  dx, len, format 
58b0: 3d 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 6b 65  = HEX_FORMAT, ke
58c0: 79 5f 6c 65 6e 20 3d 20 30 2c 20 64 61 74 61 5f  y_len = 0, data_
58d0: 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 63 6f 6e  len = 0;.    con
58e0: 73 74 20 63 68 61 72 20 2a 64 69 67 65 73 74 6e  st char *digestn
58f0: 61 6d 65 2c 20 2a 63 68 61 6e 6e 65 6c 20 3d 20  ame, *channel = 
5900: 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62  NULL;.    Tcl_Ob
5910: 6a 20 2a 64 61 74 61 4f 62 6a 20 3d 20 4e 55 4c  j *dataObj = NUL
5920: 4c 2c 20 2a 66 69 6c 65 4f 62 6a 20 3d 20 4e 55  L, *fileObj = NU
5930: 4c 4c 2c 20 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55  LL, *keyObj = NU
5940: 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64  LL;.    unsigned
5950: 20 63 68 61 72 20 2a 6b 65 79 20 3d 20 4e 55 4c   char *key = NUL
5960: 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 50  L;.    const EVP
5970: 5f 4d 44 20 2a 6d 64 3b 0a 0a 20 20 20 20 54 63  _MD *md;..    Tc
5980: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e  l_ResetResult(in
5990: 74 65 72 70 29 3b 0a 0a 20 20 20 20 69 66 20 28  terp);..    if (
59a0: 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63  objc < 3 || objc
59b0: 20 3e 20 37 29 20 7b 0a 09 54 63 6c 5f 57 72 6f   > 7) {..Tcl_Wro
59c0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
59d0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 74 79 70 65  , 1, objv, "type
59e0: 20 3f 2d 62 69 6e 7c 2d 68 65 78 3f 20 3f 2d 6b   ?-bin|-hex? ?-k
59f0: 65 79 20 68 6d 61 63 5f 6b 65 79 3f 20 5b 2d 63  ey hmac_key? [-c
5a00: 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 66  hannel chan | -f
5a10: 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 7c 20 3f  ile filename | ?
5a20: 2d 64 61 74 61 3f 20 64 61 74 61 5d 22 29 3b 0a  -data? data]");.
5a30: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
5a40: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a  R;.    }..    /*
5a50: 20 47 65 74 20 64 69 67 65 73 74 20 2a 2f 0a 20   Get digest */. 
5a60: 20 20 20 64 69 67 65 73 74 6e 61 6d 65 20 3d 20     digestname = 
5a70: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f  Tcl_GetStringFro
5a80: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 26 6c  mObj(objv[1], &l
5a90: 65 6e 29 3b 0a 20 20 20 20 69 66 20 28 64 69 67  en);.    if (dig
5aa0: 65 73 74 6e 61 6d 65 20 3d 3d 20 4e 55 4c 4c 20  estname == NULL 
5ab0: 7c 7c 20 28 6d 64 20 3d 20 45 56 50 5f 67 65 74  || (md = EVP_get
5ac0: 5f 64 69 67 65 73 74 62 79 6e 61 6d 65 28 64 69  _digestbyname(di
5ad0: 67 65 73 74 6e 61 6d 65 29 29 20 3d 3d 20 4e 55  gestname)) == NU
5ae0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e  LL) {..Tcl_Appen
5af0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
5b00: 22 49 6e 76 61 6c 69 64 20 64 69 67 65 73 74 20  "Invalid digest 
5b10: 74 79 70 65 20 5c 22 22 2c 20 64 69 67 65 73 74  type \"", digest
5b20: 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c  name, "\"", NULL
5b30: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
5b40: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  RROR;.    }..   
5b50: 20 2f 2a 20 4f 70 74 69 6d 61 6c 20 63 61 73 65   /* Optimal case
5b60: 20 66 6f 72 20 62 6c 6f 62 20 6f 66 20 64 61 74   for blob of dat
5b70: 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a  a */.    if (obj
5b80: 63 20 3d 3d 20 33 29 20 7b 0a 09 72 65 74 75 72  c == 3) {..retur
5b90: 6e 20 44 69 67 65 73 74 48 61 73 68 46 75 6e 63  n DigestHashFunc
5ba0: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 2d 2d 6f  tion(interp, --o
5bb0: 62 6a 63 2c 20 2b 2b 6f 62 6a 76 2c 20 6d 64 2c  bjc, ++objv, md,
5bc0: 20 66 6f 72 6d 61 74 2c 20 4e 55 4c 4c 29 3b 0a   format, NULL);.
5bd0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65      }..    /* Ge
5be0: 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20  t options */.   
5bf0: 20 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 69   for (idx = 2; i
5c00: 64 78 20 3c 20 6f 62 6a 63 2d 31 3b 20 69 64 78  dx < objc-1; idx
5c10: 2b 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74  ++) {..char *opt
5c20: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
5c30: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78  FromObj(objv[idx
5c40: 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28  ], NULL);...if (
5c50: 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 0a 09  opt[0] != '-')..
5c60: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 4f 50 54      break;...OPT
5c70: 46 4c 41 47 28 22 2d 62 69 6e 22 2c 20 66 6f 72  FLAG("-bin", for
5c80: 6d 61 74 2c 20 42 49 4e 5f 46 4f 52 4d 41 54 29  mat, BIN_FORMAT)
5c90: 3b 0a 09 4f 50 54 46 4c 41 47 28 22 2d 62 69 6e  ;..OPTFLAG("-bin
5ca0: 61 72 79 22 2c 20 66 6f 72 6d 61 74 2c 20 42 49  ary", format, BI
5cb0: 4e 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 54 46  N_FORMAT);..OPTF
5cc0: 4c 41 47 28 22 2d 68 65 78 22 2c 20 66 6f 72 6d  LAG("-hex", form
5cd0: 61 74 2c 20 48 45 58 5f 46 4f 52 4d 41 54 29 3b  at, HEX_FORMAT);
5ce0: 0a 09 4f 50 54 46 4c 41 47 28 22 2d 68 65 78 61  ..OPTFLAG("-hexa
5cf0: 64 65 63 69 6d 61 6c 22 2c 20 66 6f 72 6d 61 74  decimal", format
5d00: 2c 20 48 45 58 5f 46 4f 52 4d 41 54 29 3b 0a 09  , HEX_FORMAT);..
5d10: 4f 50 54 4f 42 4a 28 22 2d 64 61 74 61 22 2c 20  OPTOBJ("-data", 
5d20: 64 61 74 61 4f 62 6a 29 3b 0a 09 4f 50 54 53 54  dataObj);..OPTST
5d30: 52 28 22 2d 63 68 61 6e 22 2c 20 63 68 61 6e 6e  R("-chan", chann
5d40: 65 6c 29 3b 0a 09 4f 50 54 53 54 52 28 22 2d 63  el);..OPTSTR("-c
5d50: 68 61 6e 6e 65 6c 22 2c 20 63 68 61 6e 6e 65 6c  hannel", channel
5d60: 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 66 69 6c  );..OPTOBJ("-fil
5d70: 65 22 2c 20 66 69 6c 65 4f 62 6a 29 3b 0a 09 4f  e", fileObj);..O
5d80: 50 54 4f 42 4a 28 22 2d 66 69 6c 65 6e 61 6d 65  PTOBJ("-filename
5d90: 22 2c 20 66 69 6c 65 4f 62 6a 29 3b 0a 09 4f 50  ", fileObj);..OP
5da0: 54 4f 42 4a 28 22 2d 6b 65 79 22 2c 20 6b 65 79  TOBJ("-key", key
5db0: 4f 62 6a 29 3b 0a 0a 09 4f 50 54 42 41 44 28 22  Obj);...OPTBAD("
5dc0: 6f 70 74 69 6f 6e 22 2c 20 22 2d 62 69 6e 2c 20  option", "-bin, 
5dd0: 2d 64 61 74 61 2c 20 2d 66 69 6c 65 2c 20 2d 66  -data, -file, -f
5de0: 69 6c 65 6e 61 6d 65 2c 20 2d 68 65 78 2c 20 6f  ilename, -hex, o
5df0: 72 20 2d 6b 65 79 22 29 3b 0a 09 72 65 74 75 72  r -key");..retur
5e00: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
5e10: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 6e 6f   }..    /* If no
5e20: 20 6f 70 74 69 6f 6e 20 66 6f 72 20 6c 61 73 74   option for last
5e30: 20 61 72 67 2c 20 74 68 65 6e 20 69 74 73 20 74   arg, then its t
5e40: 68 65 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69  he data */.    i
5e50: 66 20 28 69 64 78 20 3c 20 6f 62 6a 63 29 20 7b  f (idx < objc) {
5e60: 0a 09 64 61 74 61 4f 62 6a 20 3d 20 6f 62 6a 76  ..dataObj = objv
5e70: 5b 69 64 78 5d 3b 0a 20 20 20 20 7d 0a 0a 20 20  [idx];.    }..  
5e80: 20 20 2f 2a 20 43 61 6c 63 20 64 69 67 65 73 74    /* Calc digest
5e90: 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b 65   on file, stacke
5ea0: 64 20 63 68 61 6e 6e 65 6c 2c 20 6f 72 20 64 61  d channel, or da
5eb0: 74 61 20 62 6c 6f 62 20 2a 2f 0a 20 20 20 20 69  ta blob */.    i
5ec0: 66 20 28 66 69 6c 65 4f 62 6a 20 21 3d 20 4e 55  f (fileObj != NU
5ed0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69  LL) {..return Di
5ee0: 67 65 73 74 46 69 6c 65 28 69 6e 74 65 72 70 2c  gestFile(interp,
5ef0: 20 66 69 6c 65 4f 62 6a 2c 20 6d 64 2c 20 66 6f   fileObj, md, fo
5f00: 72 6d 61 74 2c 20 6b 65 79 4f 62 6a 29 3b 0a 20  rmat, keyObj);. 
5f10: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 68     } else if (ch
5f20: 61 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b  annel != NULL) {
5f30: 0a 09 72 65 74 75 72 6e 20 44 69 67 65 73 74 43  ..return DigestC
5f40: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63  hannel(interp, c
5f50: 68 61 6e 6e 65 6c 2c 20 6d 64 2c 20 66 6f 72 6d  hannel, md, form
5f60: 61 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  at);.    } else 
5f70: 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e  if (dataObj != N
5f80: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20  ULL) {..Tcl_Obj 
5f90: 2a 6f 62 6a 73 5b 32 5d 3b 0a 09 6f 62 6a 73 5b  *objs[2];..objs[
5fa0: 30 5d 20 3d 20 4e 55 4c 4c 3b 0a 09 6f 62 6a 73  0] = NULL;..objs
5fb0: 5b 31 5d 20 3d 20 64 61 74 61 4f 62 6a 3b 0a 09  [1] = dataObj;..
5fc0: 72 65 74 75 72 6e 20 44 69 67 65 73 74 48 61 73  return DigestHas
5fd0: 68 46 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72 70  hFunction(interp
5fe0: 2c 20 32 2c 20 6f 62 6a 73 2c 20 6d 64 2c 20 66  , 2, objs, md, f
5ff0: 6f 72 6d 61 74 2c 20 6b 65 79 4f 62 6a 29 3b 0a  ormat, keyObj);.
6000: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 41      }..    Tcl_A
6010: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
6020: 72 70 2c 20 22 4e 6f 20 64 61 74 61 20 73 70 65  rp, "No data spe
6030: 63 69 66 69 65 64 2e 22 2c 20 4e 55 4c 4c 29 3b  cified.", NULL);
6040: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
6050: 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d  ERROR;.}../*. *-
6060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
60a0: 2d 2d 0a 20 2a 0a 20 2a 20 4d 65 73 73 61 67 65  --. *. * Message
60b0: 20 44 69 67 65 73 74 20 43 6f 6e 76 65 6e 69 65   Digest Convenie
60c0: 6e 63 65 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a  nce Commands --.
60d0: 20 2a 0a 20 2a 09 43 6f 6e 76 65 6e 69 65 6e 63   *. *.Convenienc
60e0: 65 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 6d  e commands for m
60f0: 65 73 73 61 67 65 20 64 69 67 65 73 74 73 2e 0a  essage digests..
6100: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20   *. * Returns:. 
6110: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f  *.TCL_OK or TCL_
6120: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65  ERROR. *. * Side
6130: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74   effects:. *.Set
6140: 73 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 73 73  s result to mess
6150: 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 65 72  age digest or er
6160: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20  ror message. *. 
6170: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61b0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67  ----. */.int Dig
61c0: 65 73 74 4d 44 34 43 6d 64 28 43 6c 69 65 6e 74  estMD4Cmd(Client
61d0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c  Data clientData,
61e0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
61f0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54  erp, int objc, T
6200: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62  cl_Obj *const ob
6210: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 75  jv[]) {.    retu
6220: 72 6e 20 44 69 67 65 73 74 48 61 73 68 46 75 6e  rn DigestHashFun
6230: 63 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 62  ction(interp, ob
6240: 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f 6d 64  jc, objv, EVP_md
6250: 34 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 2c  4(), HEX_FORMAT,
6260: 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44   NULL);.}..int D
6270: 69 67 65 73 74 4d 44 35 43 6d 64 28 43 6c 69 65  igestMD5Cmd(Clie
6280: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
6290: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  a, Tcl_Interp *i
62a0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  nterp, int objc,
62b0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20   Tcl_Obj *const 
62c0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65  objv[]) {.    re
62d0: 74 75 72 6e 20 44 69 67 65 73 74 48 61 73 68 46  turn DigestHashF
62e0: 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20  unction(interp, 
62f0: 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f  objc, objv, EVP_
6300: 6d 64 35 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41  md5(), HEX_FORMA
6310: 54 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74  T, NULL);.}..int
6320: 20 44 69 67 65 73 74 53 48 41 31 43 6d 64 28 43   DigestSHA1Cmd(C
6330: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
6340: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70  Data, Tcl_Interp
6350: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62   *interp, int ob
6360: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e  jc, Tcl_Obj *con
6370: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20  st objv[]) {.   
6380: 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 48 61   return DigestHa
6390: 73 68 46 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72  shFunction(inter
63a0: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 45  p, objc, objv, E
63b0: 56 50 5f 73 68 61 31 28 29 2c 20 48 45 58 5f 46  VP_sha1(), HEX_F
63c0: 4f 52 4d 41 54 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a  ORMAT, NULL);.}.
63d0: 0a 69 6e 74 20 44 69 67 65 73 74 53 48 41 32 35  .int DigestSHA25
63e0: 36 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20  6Cmd(ClientData 
63f0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
6400: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
6410: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
6420: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29  j *const objv[])
6430: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69   {.    return Di
6440: 67 65 73 74 48 61 73 68 46 75 6e 63 74 69 6f 6e  gestHashFunction
6450: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f  (interp, objc, o
6460: 62 6a 76 2c 20 45 56 50 5f 73 68 61 32 35 36 28  bjv, EVP_sha256(
6470: 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 4e  ), HEX_FORMAT, N
6480: 55 4c 4c 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d  ULL);.}../*. *--
6490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64d0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 67 65  -. *. * Tls_Dige
64e0: 73 74 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a  stCommands --. *
64f0: 0a 20 2a 09 43 72 65 61 74 65 20 64 69 67 65 73  . *.Create diges
6500: 74 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a  t commands. *. *
6510: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c   Returns:. *.TCL
6520: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52  _OK or TCL_ERROR
6530: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
6540: 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20  cts:. *.Creates 
6550: 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d  commands. *. *--
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
65a0: 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 44 69  -. */.int Tls_Di
65b0: 67 65 73 74 43 6f 6d 6d 61 6e 64 73 28 54 63 6c  gestCommands(Tcl
65c0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29  _Interp *interp)
65d0: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74   {.    Tcl_Creat
65e0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
65f0: 72 70 2c 20 22 74 6c 73 3a 3a 64 69 67 65 73 74  rp, "tls::digest
6600: 22 2c 20 44 69 67 65 73 74 4f 62 6a 43 6d 64 2c  ", DigestObjCmd,
6610: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c   (ClientData) 0,
6620: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
6630: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  roc *) NULL);.  
6640: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
6650: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
6660: 74 6c 73 3a 3a 6d 64 34 22 2c 20 44 69 67 65 73  tls::md4", Diges
6670: 74 4d 44 34 43 6d 64 2c 20 28 43 6c 69 65 6e 74  tMD4Cmd, (Client
6680: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d  Data) 0, (Tcl_Cm
6690: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e  dDeleteProc *) N
66a0: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72  ULL);.    Tcl_Cr
66b0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69  eateObjCommand(i
66c0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 64 35  nterp, "tls::md5
66d0: 22 2c 20 44 69 67 65 73 74 4d 44 35 43 6d 64 2c  ", DigestMD5Cmd,
66e0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c   (ClientData) 0,
66f0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
6700: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  roc *) NULL);.  
6710: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
6720: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
6730: 74 6c 73 3a 3a 73 68 61 31 22 2c 20 44 69 67 65  tls::sha1", Dige
6740: 73 74 53 48 41 31 43 6d 64 2c 20 28 43 6c 69 65  stSHA1Cmd, (Clie
6750: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f  ntData) 0, (Tcl_
6760: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29  CmdDeleteProc *)
6770: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f   NULL);.    Tcl_
6780: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
6790: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73  (interp, "tls::s
67a0: 68 61 32 35 36 22 2c 20 44 69 67 65 73 74 53 48  ha256", DigestSH
67b0: 41 32 35 36 43 6d 64 2c 20 28 43 6c 69 65 6e 74  A256Cmd, (Client
67c0: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d  Data) 0, (Tcl_Cm
67d0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e  dDeleteProc *) N
67e0: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72  ULL);.    Tcl_Cr
67f0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69  eateObjCommand(i
6800: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 75 6e 73  nterp, "tls::uns
6810: 74 61 63 6b 22 2c 20 55 6e 73 74 61 63 6b 4f 62  tack", UnstackOb
6820: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74  jCmd, (ClientDat
6830: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65  a) 0, (Tcl_CmdDe
6840: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c  leteProc *) NULL
6850: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
6860: 4c 5f 4f 4b 3b 0a 7d 0a 0a                       L_OK;.}..
Powered by Fossil · RSS