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 09 48 4d 41 43 5f 43 54 58 20 2a 68 63 */..HMAC_CTX *hc
03c0: 74 78 3b 09 09 2f 2a 20 48 4d 41 43 20 43 6f 6e tx;../* HMAC Con
03d0: 74 65 78 74 20 2a 2f 0a 7d 20 44 69 67 65 73 74 text */.} Digest
03e0: 53 74 61 74 65 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d State;../*. *---
03f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 46 72 65 . *. * DigestFre
0440: 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 e --. *. *.This
0450: 70 72 6f 63 65 64 75 72 65 20 72 65 6d 6f 76 65 procedure remove
0460: 73 20 61 20 64 69 67 65 73 74 20 73 74 61 74 65 s a digest state
0470: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0480: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
0490: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
04a0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
04b0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
04c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0500: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0510: 44 69 67 65 73 74 46 72 65 65 20 28 44 69 67 65 DigestFree (Dige
0520: 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 stState *statePt
0530: 72 29 20 7b 0a 20 20 20 20 69 66 20 28 73 74 61 r) {. if (sta
0540: 74 65 50 74 72 20 3d 3d 20 28 44 69 67 65 73 74 tePtr == (Digest
0550: 53 74 61 74 65 20 2a 29 20 4e 55 4c 4c 29 20 72 State *) NULL) r
0560: 65 74 75 72 6e 3b 0a 0a 20 20 20 20 69 66 20 28 eturn;.. if (
0570: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 21 3d statePtr->ctx !=
0580: 20 28 45 56 50 5f 4d 44 5f 43 54 58 20 2a 29 20 (EVP_MD_CTX *)
0590: 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 4d 44 5f NULL) {..EVP_MD_
05a0: 43 54 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 CTX_free(statePt
05b0: 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 r->ctx);. }.
05c0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
05d0: 3e 68 63 74 78 20 21 3d 20 28 48 4d 41 43 5f 43 >hctx != (HMAC_C
05e0: 54 58 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 48 TX *) NULL) {..H
05f0: 4d 41 43 5f 43 54 58 5f 66 72 65 65 28 73 74 61 MAC_CTX_free(sta
0600: 74 65 50 74 72 2d 3e 68 63 74 78 29 3b 0a 20 20 tePtr->hctx);.
0610: 20 20 7d 0a 20 20 20 20 63 6b 66 72 65 65 28 73 }. ckfree(s
0620: 74 61 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 2a tatePtr);.}../**
0630: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0640: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0650: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0660: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0670: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
06c0: 20 2a 20 44 69 67 65 73 74 46 69 6c 65 20 2d 2d * DigestFile --
06d0: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 6d 65 . *. *.Return me
06e0: 73 73 61 67 65 20 64 69 67 65 73 74 20 66 6f 72 ssage digest for
06f0: 20 66 69 6c 65 20 75 73 69 6e 67 20 75 73 65 72 file using user
0700: 20 73 70 65 63 69 66 69 65 64 20 68 61 73 68 20 specified hash
0710: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
0720: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
0730: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
0740: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0750: 74 73 3a 0a 20 2a 09 52 65 73 75 6c 74 20 69 73 ts:. *.Result is
0760: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
0770: 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 or error message
0780: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
0790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
07d0: 74 20 44 69 67 65 73 74 46 69 6c 65 28 54 63 6c t DigestFile(Tcl
07e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
07f0: 20 54 63 6c 5f 4f 62 6a 20 2a 66 69 6c 65 6e 61 Tcl_Obj *filena
0800: 6d 65 2c 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 me, const EVP_MD
0810: 20 2a 6d 64 2c 20 69 6e 74 20 66 6f 72 6d 61 74 *md, int format
0820: 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f ,..Tcl_Obj *keyO
0830: 62 6a 29 20 7b 0a 20 20 20 20 45 56 50 5f 4d 44 bj) {. EVP_MD
0840: 5f 43 54 58 20 2a 63 74 78 20 3d 20 28 45 56 50 _CTX *ctx = (EVP
0850: 5f 4d 44 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 3b _MD_CTX *) NULL;
0860: 0a 20 20 20 20 48 4d 41 43 5f 43 54 58 20 2a 68 . HMAC_CTX *h
0870: 63 74 78 20 3d 20 28 48 4d 41 43 5f 43 54 58 20 ctx = (HMAC_CTX
0880: 2a 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c *) NULL;. Tcl
0890: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 _Channel chan;.
08a0: 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 unsigned char
08b0: 20 62 75 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 buf[BUFFER_SIZE
08c0: 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 ];. unsigned
08d0: 63 68 61 72 20 6d 64 5f 62 75 66 5b 45 56 50 5f char md_buf[EVP_
08e0: 4d 41 58 5f 4d 44 5f 53 49 5a 45 5d 3b 0a 20 20 MAX_MD_SIZE];.
08f0: 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 6d unsigned int m
0900: 64 5f 6c 65 6e 3b 0a 20 20 20 20 75 6e 73 69 67 d_len;. unsig
0910: 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 3b 0a 20 ned char *key;.
0920: 20 20 20 69 6e 74 20 6b 65 79 5f 6c 65 6e 2c 20 int key_len,
0930: 72 65 73 3b 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 res;.. /* Ope
0940: 6e 20 66 69 6c 65 20 63 68 61 6e 6e 65 6c 20 2a n file channel *
0950: 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c /. chan = Tcl
0960: 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e _FSOpenFileChann
0970: 65 6c 28 69 6e 74 65 72 70 2c 20 66 69 6c 65 6e el(interp, filen
0980: 61 6d 65 2c 20 22 72 62 22 2c 20 30 34 34 34 29 ame, "rb", 0444)
0990: 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d ;. if (chan =
09a0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
09b0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
09c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
09d0: 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 69 67 75 .. /* Configu
09e0: 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 re channel */.
09f0: 20 20 69 66 20 28 54 63 6c 5f 53 65 74 43 68 61 if (Tcl_SetCha
0a00: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
0a10: 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 p, chan, "-trans
0a20: 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 lation", "binary
0a30: 22 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 ") == TCL_ERROR)
0a40: 20 7b 0a 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a {..goto error;.
0a50: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 }. Tcl_Se
0a60: 74 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 tChannelBufferSi
0a70: 7a 65 28 63 68 61 6e 2c 20 42 55 46 46 45 52 5f ze(chan, BUFFER_
0a80: 53 49 5a 45 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 SIZE);.. /* C
0a90: 72 65 61 74 65 20 6d 65 73 73 61 67 65 20 64 69 reate message di
0aa0: 67 65 73 74 20 63 6f 6e 74 65 78 74 20 2a 2f 0a gest context */.
0ab0: 20 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d if (keyObj =
0ac0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 63 74 78 20 3d = NULL) {..ctx =
0ad0: 20 45 56 50 5f 4d 44 5f 43 54 58 5f 6e 65 77 28 EVP_MD_CTX_new(
0ae0: 29 3b 0a 09 72 65 73 20 3d 20 28 63 74 78 20 21 );..res = (ctx !
0af0: 3d 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 = NULL);. } e
0b00: 6c 73 65 20 7b 0a 09 68 63 74 78 20 3d 20 48 4d lse {..hctx = HM
0b10: 41 43 5f 43 54 58 5f 6e 65 77 28 29 3b 0a 09 72 AC_CTX_new();..r
0b20: 65 73 20 3d 20 28 68 63 74 78 20 21 3d 20 4e 55 es = (hctx != NU
0b30: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 LL);. }. i
0b40: 66 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f f (!res) {..Tcl_
0b50: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
0b60: 65 72 70 2c 20 22 43 72 65 61 74 65 20 64 69 67 erp, "Create dig
0b70: 65 73 74 20 63 6f 6e 74 65 78 74 20 66 61 69 6c est context fail
0b80: 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c ed: ", REASON(),
0b90: 20 4e 55 4c 4c 29 3b 0a 09 67 6f 74 6f 20 65 72 NULL);..goto er
0ba0: 72 6f 72 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ror;. }..
0bb0: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 68 61 /* Initialize ha
0bc0: 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 sh function */.
0bd0: 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d 3d if (keyObj ==
0be0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 NULL) {..res =
0bf0: 45 56 50 5f 44 69 67 65 73 74 49 6e 69 74 5f 65 EVP_DigestInit_e
0c00: 78 28 63 74 78 2c 20 6d 64 2c 20 4e 55 4c 4c 29 x(ctx, md, NULL)
0c10: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
0c20: 6b 65 79 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 key = Tcl_GetByt
0c30: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6b 65 eArrayFromObj(ke
0c40: 79 4f 62 6a 2c 20 26 6b 65 79 5f 6c 65 6e 29 3b yObj, &key_len);
0c50: 0a 09 72 65 73 20 3d 20 48 4d 41 43 5f 49 6e 69 ..res = HMAC_Ini
0c60: 74 5f 65 78 28 68 63 74 78 2c 20 28 63 6f 6e 73 t_ex(hctx, (cons
0c70: 74 20 76 6f 69 64 20 2a 29 20 6b 65 79 2c 20 6b t void *) key, k
0c80: 65 79 5f 6c 65 6e 2c 20 6d 64 2c 20 4e 55 4c 4c ey_len, md, NULL
0c90: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 );. }. if
0ca0: 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 (!res) {..Tcl_Ap
0cb0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0cc0: 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 64 p, "Initialize d
0cd0: 69 67 65 73 74 20 66 61 69 6c 65 64 3a 20 22 2c igest failed: ",
0ce0: 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 REASON(), NULL)
0cf0: 3b 0a 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 ;..goto error;.
0d00: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 61 }.. /* Rea
0d10: 64 20 66 69 6c 65 20 64 61 74 61 20 61 6e 64 20 d file data and
0d20: 75 70 64 61 74 65 20 68 61 73 68 20 66 75 6e 63 update hash func
0d30: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 77 68 69 6c tion */. whil
0d40: 65 20 28 21 54 63 6c 5f 45 6f 66 28 63 68 61 6e e (!Tcl_Eof(chan
0d50: 29 29 20 7b 0a 09 69 6e 74 20 6c 65 6e 20 3d 20 )) {..int len =
0d60: 54 63 6c 5f 52 65 61 64 52 61 77 28 63 68 61 6e Tcl_ReadRaw(chan
0d70: 2c 20 28 63 68 61 72 20 2a 29 20 62 75 66 2c 20 , (char *) buf,
0d80: 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a 09 69 BUFFER_SIZE);..i
0d90: 66 20 28 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 f (len > 0) {..
0da0: 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d 3d if (keyObj ==
0db0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d NULL) {...res =
0dc0: 20 45 56 50 5f 44 69 67 65 73 74 55 70 64 61 74 EVP_DigestUpdat
0dd0: 65 28 63 74 78 2c 20 26 62 75 66 2c 20 28 73 69 e(ctx, &buf, (si
0de0: 7a 65 5f 74 29 20 6c 65 6e 29 3b 0a 09 20 20 20 ze_t) len);..
0df0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 72 65 73 20 } else {...res
0e00: 3d 20 48 4d 41 43 5f 55 70 64 61 74 65 28 68 63 = HMAC_Update(hc
0e10: 74 78 2c 20 26 62 75 66 5b 30 5d 2c 20 28 73 69 tx, &buf[0], (si
0e20: 7a 65 5f 74 29 20 6c 65 6e 29 3b 0a 09 20 20 20 ze_t) len);..
0e30: 20 7d 0a 09 20 20 20 20 69 66 20 28 21 72 65 73 }.. if (!res
0e40: 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 ) {...Tcl_Append
0e50: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
0e60: 55 70 64 61 74 65 20 64 69 67 65 73 74 20 66 61 Update digest fa
0e70: 69 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 iled: ", REASON(
0e80: 29 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 73 20 ), NULL);...res
0e90: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 = TCL_ERROR;...g
0ea0: 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 20 20 20 20 oto error;..
0eb0: 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }..}. }..
0ec0: 2f 2a 20 43 6c 6f 73 65 20 63 68 61 6e 6e 65 6c /* Close channel
0ed0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f */. if (Tcl_
0ee0: 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 63 68 Close(interp, ch
0ef0: 61 6e 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 an) == TCL_ERROR
0f00: 29 20 7b 0a 09 63 68 61 6e 20 3d 20 28 54 63 6c ) {..chan = (Tcl
0f10: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 3b 0a _Channel) NULL;.
0f20: 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 .goto error;.
0f30: 20 7d 0a 20 20 20 20 63 68 61 6e 20 3d 20 28 54 }. chan = (T
0f40: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
0f50: 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 ;.. /* Finali
0f60: 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e ze hash function
0f70: 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 6d and calculate m
0f80: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f essage digest */
0f90: 0a 20 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 . if (keyObj
0fa0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 == NULL) {..res
0fb0: 3d 20 45 56 50 5f 44 69 67 65 73 74 46 69 6e 61 = EVP_DigestFina
0fc0: 6c 5f 65 78 28 63 74 78 2c 20 6d 64 5f 62 75 66 l_ex(ctx, md_buf
0fd0: 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 20 20 20 20 , &md_len);.
0fe0: 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 } else {..res =
0ff0: 48 4d 41 43 5f 46 69 6e 61 6c 28 68 63 74 78 2c HMAC_Final(hctx,
1000: 20 6d 64 5f 62 75 66 2c 20 26 6d 64 5f 6c 65 6e md_buf, &md_len
1010: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 );. }. if
1020: 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 (!res) {..Tcl_Ap
1030: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1040: 70 2c 20 22 46 69 6e 61 6c 69 7a 65 20 64 69 67 p, "Finalize dig
1050: 65 73 74 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 est failed: ", R
1060: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a EASON(), NULL);.
1070: 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 20 20 20 .goto error;.
1080: 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f 6e 65 20 }.. /* Done
1090: 77 69 74 68 20 73 74 72 75 63 74 20 2a 2f 0a 20 with struct */.
10a0: 20 20 20 45 56 50 5f 4d 44 5f 43 54 58 5f 66 72 EVP_MD_CTX_fr
10b0: 65 65 28 63 74 78 29 3b 0a 20 20 20 20 63 74 78 ee(ctx);. ctx
10c0: 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a = NULL;.. /*
10d0: 20 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 Return message
10e0: 64 69 67 65 73 74 20 61 73 20 65 69 74 68 65 72 digest as either
10f0: 20 61 20 62 69 6e 61 72 79 20 6f 72 20 68 65 78 a binary or hex
1100: 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 20 20 69 string */. i
1110: 66 20 28 66 6f 72 6d 61 74 20 3d 3d 20 42 49 4e f (format == BIN
1120: 5f 46 4f 52 4d 41 54 29 20 7b 0a 09 54 63 6c 5f _FORMAT) {..Tcl_
1130: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
1140: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 erp, Tcl_NewByte
1150: 41 72 72 61 79 4f 62 6a 28 6d 64 5f 62 75 66 2c ArrayObj(md_buf,
1160: 20 6d 64 5f 6c 65 6e 29 29 3b 0a 0a 20 20 20 20 md_len));..
1170: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 4f 62 } else {..Tcl_Ob
1180: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 j *resultObj = T
1190: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 09 75 6e cl_NewObj();..un
11a0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 70 74 72 signed char *ptr
11b0: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 = Tcl_SetByteAr
11c0: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 rayLength(result
11d0: 4f 62 6a 2c 20 6d 64 5f 6c 65 6e 2a 32 29 3b 0a Obj, md_len*2);.
11e0: 0a 09 66 6f 72 20 28 75 6e 73 69 67 6e 65 64 20 ..for (unsigned
11f0: 69 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c 20 6d int i = 0; i < m
1200: 64 5f 6c 65 6e 3b 20 69 2b 2b 29 20 7b 0a 09 20 d_len; i++) {..
1210: 20 20 20 2a 70 74 72 2b 2b 20 3d 20 68 65 78 5b *ptr++ = hex[
1220: 28 6d 64 5f 62 75 66 5b 69 5d 20 3e 3e 20 34 29 (md_buf[i] >> 4)
1230: 20 26 20 30 78 30 46 5d 3b 0a 09 20 20 20 20 2a & 0x0F];.. *
1240: 70 74 72 2b 2b 20 3d 20 68 65 78 5b 6d 64 5f 62 ptr++ = hex[md_b
1250: 75 66 5b 69 5d 20 26 20 30 78 30 46 5d 3b 0a 09 uf[i] & 0x0F];..
1260: 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 }..Tcl_SetObjRes
1270: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
1280: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a 20 20 ltObj);. }.
1290: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
12a0: 0a 0a 65 72 72 6f 72 3a 0a 20 20 20 20 69 66 20 ..error:. if
12b0: 28 63 68 61 6e 20 21 3d 20 28 54 63 6c 5f 43 68 (chan != (Tcl_Ch
12c0: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
12d0: 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 Tcl_Close(interp
12e0: 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 , chan);. }.
12f0: 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 28 45 if (ctx != (E
1300: 56 50 5f 4d 44 5f 43 54 58 20 2a 29 20 4e 55 4c VP_MD_CTX *) NUL
1310: 4c 29 20 7b 0a 09 45 56 50 5f 4d 44 5f 43 54 58 L) {..EVP_MD_CTX
1320: 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 20 20 _free(ctx);.
1330: 7d 0a 20 20 20 20 69 66 20 28 68 63 74 78 20 21 }. if (hctx !
1340: 3d 20 28 48 4d 41 43 5f 43 54 58 20 2a 29 20 4e = (HMAC_CTX *) N
1350: 55 4c 4c 29 20 7b 0a 09 48 4d 41 43 5f 43 54 58 ULL) {..HMAC_CTX
1360: 5f 66 72 65 65 28 68 63 74 78 29 3b 0a 20 20 20 _free(hctx);.
1370: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 }. return TC
1380: 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 2f 2a 2a 2a L_ERROR;.}../***
1390: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13d0: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
13e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
1420: 2a 20 44 69 67 65 73 74 42 6c 6f 63 6b 4d 6f 64 * DigestBlockMod
1430: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eProc --. *. *.T
1440: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 his procedure is
1450: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
1460: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
1470: 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 73 65 74 . * to set
1480: 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f blocking and no
1490: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 2e nblocking modes.
14a0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
14b0: 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 *.0 if successf
14c0: 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f ul or POSIX erro
14d0: 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 r code if failed
14e0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
14f0: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 74 68 ects:. *.Sets th
1500: 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 62 6c e device into bl
1510: 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f ocking or nonblo
1520: 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 09 43 cking mode.. *.C
1530: 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53 65 74 43 an call Tcl_SetC
1540: 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 2a 0a hannelError.. *.
1550: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1590: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
15a0: 20 69 6e 74 20 44 69 67 65 73 74 42 6c 6f 63 6b int DigestBlock
15b0: 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 ModeProc(ClientD
15c0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
15d0: 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 20 int mode) {.
15e0: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
15f0: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 tePtr = (DigestS
1600: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
1610: 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 ta;.. if (mod
1620: 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f e == TCL_MODE_NO
1630: 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 74 NBLOCKING) {..st
1640: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
1650: 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a TLS_TCL_ASYNC;.
1660: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 } else {..st
1670: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d atePtr->flags &=
1680: 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 ~(TLS_TCL_ASYNC
1690: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
16a0: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d urn 0;.}../*. *-
16b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16f0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 43 --. *. * DigestC
1700: 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 loseProc --. *.
1710: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
1720: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
1730: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
1740: 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 vel to perform.
1750: 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 70 65 2d 73 *.channel-type-s
1760: 70 65 63 69 66 69 63 20 63 6c 65 61 6e 75 70 20 pecific cleanup
1770: 77 68 65 6e 20 64 69 67 65 73 74 20 63 68 61 6e when digest chan
1780: 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 2e 0a 20 nel is closed..
1790: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
17a0: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
17b0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
17c0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 57 72 69 74 effects:. *.Writ
17d0: 65 73 20 64 69 67 65 73 74 20 74 6f 20 6f 75 74 es digest to out
17e0: 70 75 74 20 61 6e 64 20 63 6c 6f 73 65 73 20 74 put and closes t
17f0: 68 65 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 he channel.. *.
1800: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1840: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
1850: 65 73 74 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 estCloseProc(Cli
1860: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
1870: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
1880: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 44 69 interp) {. Di
1890: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
18a0: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
18b0: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
18c0: 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 ;. int result
18d0: 20 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 = 0;.. /* Ca
18e0: 6e 63 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 ncel active time
18f0: 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 r, if any */.
1900: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
1910: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
1920: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
1930: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
1940: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
1950: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
1960: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
1970: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
1980: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
1990: 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 /* Clean-up */.
19a0: 20 20 20 44 69 67 65 73 74 46 72 65 65 28 73 74 DigestFree(st
19b0: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 atePtr);. ret
19c0: 75 72 6e 20 72 65 73 75 6c 74 3b 0a 7d 0a 0a 2f urn result;.}../
19d0: 2a 0a 20 2a 20 53 61 6d 65 20 61 73 20 44 69 67 *. * Same as Dig
19e0: 65 73 74 43 6c 6f 73 65 50 72 6f 63 20 62 75 74 estCloseProc but
19f0: 20 77 69 74 68 20 69 6e 64 69 76 69 64 75 61 6c with individual
1a00: 20 72 65 61 64 20 61 6e 64 20 77 72 69 74 65 20 read and write
1a10: 63 6c 6f 73 65 20 63 6f 6e 74 72 6f 6c 0a 20 2a close control. *
1a20: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 69 67 /.static int Dig
1a30: 65 73 74 43 6c 6f 73 65 32 50 72 6f 63 28 43 6c estClose2Proc(Cl
1a40: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
1a50: 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 eData, Tcl_Inter
1a60: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 66 p *interp, int f
1a70: 6c 61 67 73 29 20 7b 0a 0a 20 20 20 20 69 66 20 lags) {.. if
1a80: 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 ((flags & (TCL_C
1a90: 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 43 4c 5f LOSE_READ | TCL_
1aa0: 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d CLOSE_WRITE)) ==
1ab0: 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 0) {..return Di
1ac0: 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 28 69 6e gestCloseProc(in
1ad0: 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 stanceData, inte
1ae0: 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 rp);. }. r
1af0: 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a eturn EINVAL;.}.
1b00: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
1b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1b50: 20 2a 20 44 69 67 65 73 74 49 6e 70 75 74 50 72 * DigestInputPr
1b60: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c oc --. *. *.Call
1b70: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
1b80: 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 72 c IO system to r
1b90: 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 74 72 ead data from tr
1ba0: 61 6e 73 66 6f 72 6d 2e 0a 20 2a 0a 20 2a 20 52 ansform.. *. * R
1bb0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c eturns:. *.Total
1bc0: 20 62 79 74 65 73 20 72 65 61 64 0a 20 2a 0a 20 bytes read. *.
1bd0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
1be0: 20 2a 09 52 65 61 64 20 64 61 74 61 20 66 72 6f *.Read data fro
1bf0: 6d 20 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 20 m transform and
1c00: 77 72 69 74 65 20 74 6f 20 62 75 66 0a 20 2a 0a write to buf. *.
1c10: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
1c60: 20 44 69 67 65 73 74 49 6e 70 75 74 50 72 6f 63 DigestInputProc
1c70: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
1c80: 6e 74 44 61 74 61 2c 20 63 68 61 72 20 2a 62 75 ntData, char *bu
1c90: 66 2c 20 69 6e 74 20 74 6f 52 65 61 64 2c 20 69 f, int toRead, i
1ca0: 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 nt *errorCodePtr
1cb0: 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 ) {. DigestSt
1cc0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
1cd0: 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 (DigestState *)
1ce0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
1cf0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 Tcl_Channel pare
1d00: 6e 74 3b 0a 20 20 20 20 69 6e 74 20 72 65 61 64 nt;. int read
1d10: 2c 20 72 65 73 3b 0a 20 20 20 20 2a 65 72 72 6f , res;. *erro
1d20: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 rCodePtr = 0;..
1d30: 20 20 20 69 66 20 28 74 6f 52 65 61 64 20 3c 3d if (toRead <=
1d40: 20 30 20 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 0 || statePtr->
1d50: 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 self == (Tcl_Cha
1d60: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
1d70: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
1d80: 20 20 20 20 2f 2a 20 47 65 74 20 62 79 74 65 73 /* Get bytes
1d90: 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e 67 from underlying
1da0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
1db0: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
1dc0: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
1dd0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
1de0: 20 20 20 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 read = Tcl_R
1df0: 65 61 64 52 61 77 28 70 61 72 65 6e 74 2c 20 62 eadRaw(parent, b
1e00: 75 66 2c 20 74 6f 52 65 61 64 29 3b 0a 0a 20 20 uf, toRead);..
1e10: 20 20 2f 2a 20 41 64 64 20 74 6f 20 6d 65 73 73 /* Add to mess
1e20: 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 age digest */.
1e30: 20 20 69 66 20 28 72 65 61 64 20 3e 20 30 29 20 if (read > 0)
1e40: 7b 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d {..if (statePtr-
1e50: 3e 63 74 78 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a >ctx != NULL) {.
1e60: 09 20 20 20 20 72 65 73 20 3d 20 45 56 50 5f 44 . res = EVP_D
1e70: 69 67 65 73 74 55 70 64 61 74 65 28 73 74 61 74 igestUpdate(stat
1e80: 65 50 74 72 2d 3e 63 74 78 2c 20 62 75 66 2c 20 ePtr->ctx, buf,
1e90: 28 73 69 7a 65 5f 74 29 20 72 65 61 64 29 3b 0a (size_t) read);.
1ea0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 .} else {.. r
1eb0: 65 73 20 3d 20 48 4d 41 43 5f 55 70 64 61 74 65 es = HMAC_Update
1ec0: 28 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 2c (statePtr->hctx,
1ed0: 20 62 75 66 2c 20 28 73 69 7a 65 5f 74 29 20 72 buf, (size_t) r
1ee0: 65 61 64 29 3b 0a 09 7d 0a 09 69 66 20 28 21 72 ead);..}..if (!r
1ef0: 65 73 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 es) {.. Tcl_S
1f00: 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 etChannelError(s
1f10: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 tatePtr->self, T
1f20: 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 44 69 cl_ObjPrintf("Di
1f30: 67 65 73 74 20 75 70 64 61 74 65 20 66 61 69 6c gest update fail
1f40: 65 64 3a 20 25 73 22 2c 20 52 45 41 53 4f 4e 28 ed: %s", REASON(
1f50: 29 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 )));.. *error
1f60: 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c CodePtr = EINVAL
1f70: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 ;.. return -1
1f80: 3b 0a 09 7d 0a 09 2a 65 72 72 6f 72 43 6f 64 65 ;..}..*errorCode
1f90: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 72 Ptr = EAGAIN;..r
1fa0: 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 0a ead = -1;.. .
1fb0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 } else if (r
1fc0: 65 61 64 20 3c 20 30 29 20 7b 0a 09 2f 2a 20 45 ead < 0) {../* E
1fd0: 72 72 6f 72 20 2a 2f 0a 09 2a 65 72 72 6f 72 43 rror */..*errorC
1fe0: 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 odePtr = Tcl_Get
1ff0: 45 72 72 6e 6f 28 29 3b 0a 0a 20 20 20 20 7d 20 Errno();.. }
2000: 65 6c 73 65 20 69 66 20 28 21 28 73 74 61 74 65 else if (!(state
2010: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 30 78 31 Ptr->flags & 0x1
2020: 30 29 29 20 7b 0a 09 2f 2a 20 45 4f 46 20 2a 2f 0)) {../* EOF */
2030: 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
2040: 3d 20 30 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 = 0;..unsigned c
2050: 68 61 72 20 6d 64 5f 62 75 66 5b 45 56 50 5f 4d har md_buf[EVP_M
2060: 41 58 5f 4d 44 5f 53 49 5a 45 5d 3b 0a 09 75 6e AX_MD_SIZE];..un
2070: 73 69 67 6e 65 64 20 69 6e 74 20 6d 64 5f 6c 65 signed int md_le
2080: 6e 20 3d 20 30 3b 0a 0a 09 2f 2a 20 46 69 6e 61 n = 0;.../* Fina
2090: 6c 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 lize hash functi
20a0: 6f 6e 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 on and calculate
20b0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
20c0: 2a 2f 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 */..if (statePtr
20d0: 2d 3e 63 74 78 20 21 3d 20 4e 55 4c 4c 29 20 7b ->ctx != NULL) {
20e0: 0a 09 20 20 20 20 72 65 73 20 3d 20 45 56 50 5f .. res = EVP_
20f0: 44 69 67 65 73 74 46 69 6e 61 6c 5f 65 78 28 73 DigestFinal_ex(s
2100: 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6d 64 tatePtr->ctx, md
2110: 5f 62 75 66 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a _buf, &md_len);.
2120: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 .} else {.. r
2130: 65 73 20 3d 20 48 4d 41 43 5f 46 69 6e 61 6c 28 es = HMAC_Final(
2140: 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 statePtr->hctx,
2150: 6d 64 5f 62 75 66 2c 20 26 6d 64 5f 6c 65 6e 29 md_buf, &md_len)
2160: 3b 0a 09 7d 0a 09 69 66 20 28 21 72 65 73 29 20 ;..}..if (!res)
2170: 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 {.. *errorCod
2180: 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 0a ePtr = EINVAL;..
2190: 09 2f 2a 20 57 72 69 74 65 20 6d 65 73 73 61 67 ./* Write messag
21a0: 65 20 64 69 67 65 73 74 20 74 6f 20 6f 75 74 70 e digest to outp
21b0: 75 74 20 63 68 61 6e 6e 65 6c 20 61 73 20 62 79 ut channel as by
21c0: 74 65 20 61 72 72 61 79 20 6f 72 20 68 65 78 20 te array or hex
21d0: 73 74 72 69 6e 67 20 2a 2f 0a 09 7d 20 65 6c 73 string */..} els
21e0: 65 20 69 66 20 28 6d 64 5f 6c 65 6e 20 3e 20 30 e if (md_len > 0
21f0: 29 20 7b 0a 09 20 20 20 20 69 66 20 28 73 74 61 ) {.. if (sta
2200: 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 3d 3d tePtr->format ==
2210: 20 42 49 4e 5f 46 4f 52 4d 41 54 29 20 7b 0a 09 BIN_FORMAT) {..
2220: 09 72 65 61 64 20 3d 20 6d 64 5f 6c 65 6e 3b 0a .read = md_len;.
2230: 09 09 6d 65 6d 63 70 79 28 62 75 66 2c 20 6d 64 ..memcpy(buf, md
2240: 5f 62 75 66 2c 20 72 65 61 64 29 3b 0a 0a 09 20 _buf, read);...
2250: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 75 6e } else {...un
2260: 73 69 67 6e 65 64 20 63 68 61 72 20 68 65 78 5f signed char hex_
2270: 62 75 66 5b 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 buf[EVP_MAX_MD_S
2280: 49 5a 45 2a 32 5d 3b 0a 09 09 75 6e 73 69 67 6e IZE*2];...unsign
2290: 65 64 20 63 68 61 72 20 2a 70 74 72 20 3d 20 68 ed char *ptr = h
22a0: 65 78 5f 62 75 66 3b 0a 0a 09 09 66 6f 72 20 28 ex_buf;....for (
22b0: 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 69 20 3d unsigned int i =
22c0: 20 30 3b 20 69 20 3c 20 6d 64 5f 6c 65 6e 3b 20 0; i < md_len;
22d0: 69 2b 2b 29 20 7b 0a 09 09 20 20 20 20 2a 70 74 i++) {... *pt
22e0: 72 2b 2b 20 3d 20 68 65 78 5b 28 6d 64 5f 62 75 r++ = hex[(md_bu
22f0: 66 5b 69 5d 20 3e 3e 20 34 29 20 26 20 30 78 30 f[i] >> 4) & 0x0
2300: 46 5d 3b 0a 09 09 20 20 20 20 2a 70 74 72 2b 2b F];... *ptr++
2310: 20 3d 20 68 65 78 5b 6d 64 5f 62 75 66 5b 69 5d = hex[md_buf[i]
2320: 20 26 20 30 78 30 46 5d 3b 0a 09 09 7d 0a 09 09 & 0x0F];...}...
2330: 72 65 61 64 20 3d 20 6d 64 5f 6c 65 6e 2a 32 3b read = md_len*2;
2340: 0a 09 09 6d 65 6d 63 70 79 28 62 75 66 2c 20 68 ...memcpy(buf, h
2350: 65 78 5f 62 75 66 2c 20 72 65 61 64 29 3b 0a 09 ex_buf, read);..
2360: 20 20 20 20 7d 0a 09 7d 0a 09 73 74 61 74 65 50 }..}..stateP
2370: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 30 78 31 tr->flags |= 0x1
2380: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 0;. }. ret
2390: 75 72 6e 20 72 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a urn read;.}../*.
23a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
23b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
23f0: 69 67 65 73 74 4f 75 74 70 75 74 50 72 6f 63 20 igestOutputProc
2400: 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 --. *. *.Called
2410: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
2420: 4f 20 73 79 73 74 65 6d 20 74 6f 20 77 72 69 74 O system to writ
2430: 65 20 64 61 74 61 20 74 6f 20 74 72 61 6e 73 66 e data to transf
2440: 6f 72 6d 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 orm.. *. * Retur
2450: 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 62 79 74 ns:. *.Total byt
2460: 65 73 20 77 72 69 74 74 65 6e 0a 20 2a 0a 20 2a es written. *. *
2470: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2480: 2a 09 47 65 74 20 64 61 74 61 20 66 72 6f 6d 20 *.Get data from
2490: 62 75 66 20 61 6e 64 20 75 70 64 61 74 65 20 64 buf and update d
24a0: 69 67 65 73 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d igest. *. *-----
24b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24f0: 2d 0a 20 2a 2f 0a 20 69 6e 74 20 44 69 67 65 73 -. */. int Diges
2500: 74 4f 75 74 70 75 74 50 72 6f 63 28 43 6c 69 65 tOutputProc(Clie
2510: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
2520: 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 a, const char *b
2530: 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 74 65 2c uf, int toWrite,
2540: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
2550: 74 72 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 tr) {. Digest
2560: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
2570: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
2580: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
2590: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
25a0: 3d 20 30 3b 0a 0a 20 20 20 20 69 66 20 28 74 6f = 0;.. if (to
25b0: 57 72 69 74 65 20 3c 3d 20 30 20 7c 7c 20 73 74 Write <= 0 || st
25c0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
25d0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
25e0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b LL) {..return 0;
25f0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
2600: 6e 20 74 6f 57 72 69 74 65 3b 0a 7d 0a 0a 2f 2a n toWrite;.}../*
2610: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
2660: 44 69 67 65 73 74 53 65 74 4f 70 74 69 6f 6e 50 DigestSetOptionP
2670: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c roc --. *. *.Cal
2680: 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 led by the gener
2690: 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 ic IO system to
26a0: 73 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 set channel opti
26b0: 6f 6e 20 74 6f 20 76 61 6c 75 65 2e 0a 20 2a 0a on to value.. *.
26c0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
26d0: 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 CL_OK if success
26e0: 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 ful or TCL_ERROR
26f0: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
2700: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
2710: 20 2a 09 55 70 64 61 74 65 73 20 63 68 61 6e 6e *.Updates chann
2720: 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 77 el option to new
2730: 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d value.. *. *---
2740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2780: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
2790: 6e 74 20 44 69 67 65 73 74 53 65 74 4f 70 74 69 nt DigestSetOpti
27a0: 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 onProc(ClientDat
27b0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
27c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
27d0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 , const char *op
27e0: 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f 6e 73 74 tionName,..const
27f0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 61 6c char *optionVal
2800: 75 65 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 ue) {. Digest
2810: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
2820: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
2830: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
2840: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 Tcl_Channel pa
2850: 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 rent;. Tcl_Dr
2860: 69 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 6f iverSetOptionPro
2870: 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 c *setOptionProc
2880: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
2890: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
28a0: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
28b0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
28c0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
28d0: 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 /* Delegate opt
28e0: 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 ions downstream
28f0: 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 */. parent =
2900: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
2910: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
2920: 73 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f 70 self);. setOp
2930: 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 tionProc = Tcl_C
2940: 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 hannelSetOptionP
2950: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
2960: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b elType(parent));
2970: 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 . if (setOpti
2980: 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 onProc != NULL)
2990: 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f {..return (*setO
29a0: 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 ptionProc)(Tcl_G
29b0: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
29c0: 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 eData(parent), i
29d0: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
29e0: 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b e, optionValue);
29f0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 . } else {..r
2a00: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2a10: 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d . }.}../*. *-
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a60: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 -----. *. * Dige
2a70: 73 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 stGetOptionProc
2a80: 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 --. *. *.Called
2a90: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
2aa0: 4f 20 73 79 73 74 65 6d 20 74 6f 20 67 65 74 20 O system to get
2ab0: 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 27 73 channel option's
2ac0: 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 value.. *. * Re
2ad0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
2ae0: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
2af0: 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 r TCL_ERROR if f
2b00: 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 ailed.. *. * Sid
2b10: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 e effects:. *.Se
2b20: 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6f 70 74 ts result to opt
2b30: 69 6f 6e 27 73 20 76 61 6c 75 65 0a 20 2a 0a 20 ion's value. *.
2b40: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b80: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
2b90: 69 63 20 69 6e 74 20 44 69 67 65 73 74 47 65 74 ic int DigestGet
2ba0: 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e OptionProc(Clien
2bb0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
2bc0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
2bd0: 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 terp, const char
2be0: 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 54 *optionName,..T
2bf0: 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 69 cl_DString *opti
2c00: 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 20 20 44 onValue) {. D
2c10: 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 igestState *stat
2c20: 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 ePtr = (DigestSt
2c30: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
2c40: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
2c50: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 el parent;. T
2c60: 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 69 cl_DriverGetOpti
2c70: 6f 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 6f onProc *getOptio
2c80: 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 69 66 20 28 nProc;.. if (
2c90: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
2ca0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
2cb0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
2cc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
2cd0: 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 67 61 74 .. /* Delegat
2ce0: 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 6e 73 74 e options downst
2cf0: 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 61 72 65 ream */. pare
2d00: 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 nt = Tcl_GetStac
2d10: 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 kedChannel(state
2d20: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 Ptr->self);.
2d30: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 getOptionProc =
2d40: 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 Tcl_ChannelGetOp
2d50: 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 tionProc(Tcl_Get
2d60: 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 ChannelType(pare
2d70: 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 nt));. if (ge
2d80: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e tOptionProc != N
2d90: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 ULL) {..return (
2da0: 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 *getOptionProc)(
2db0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
2dc0: 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e stanceData(paren
2dd0: 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 t), interp, opti
2de0: 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 onName, optionVa
2df0: 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 lue);. } else
2e00: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 if (optionName
2e10: 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 == (char*) NULL)
2e20: 20 7b 0a 09 2f 2a 20 52 65 71 75 65 73 74 20 69 {../* Request i
2e30: 73 20 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 s query for all
2e40: 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 options, this is
2e50: 20 6f 6b 2e 20 2a 2f 0a 09 72 65 74 75 72 6e 20 ok. */..return
2e60: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 0a 0a 20 TCL_OK;. }..
2e70: 20 20 20 2f 2a 20 52 65 71 75 65 73 74 20 66 6f /* Request fo
2e80: 72 20 61 20 73 70 65 63 69 66 69 63 20 6f 70 74 r a specific opt
2e90: 69 6f 6e 20 68 61 73 20 74 6f 20 66 61 69 6c 2c ion has to fail,
2ea0: 20 77 65 20 64 6f 6e 27 74 20 68 61 76 65 20 61 we don't have a
2eb0: 6e 79 2e 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 ny. */. retur
2ec0: 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c n Tcl_BadChannel
2ed0: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f Option(interp, o
2ee0: 70 74 69 6f 6e 4e 61 6d 65 2c 20 22 22 29 3b 0a ptionName, "");.
2ef0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
2f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2f40: 2a 0a 20 2a 20 44 69 67 65 73 74 54 69 6d 65 72 *. * DigestTimer
2f50: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
2f60: 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e .Called by the n
2f70: 6f 74 69 66 69 65 72 20 76 69 61 20 74 69 6d 65 otifier via time
2f80: 72 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 70 r to flush out p
2f90: 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 64 61 74 ending input dat
2fa0: 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 a.. *. * Returns
2fb0: 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a :. *.Nothing. *.
2fc0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2fd0: 0a 20 2a 09 4d 61 79 20 63 61 6c 6c 20 54 63 6c . *.May call Tcl
2fe0: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 0a 20 _NotifyChannel.
2ff0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
3040: 74 61 74 69 63 20 76 6f 69 64 20 44 69 67 65 73 tatic void Diges
3050: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 43 6c tTimerHandler(Cl
3060: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
3070: 61 74 61 29 20 7b 0a 20 20 20 20 44 69 67 65 73 ata) {. Diges
3080: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
3090: 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 = (DigestState
30a0: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a *) clientData;..
30b0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
30c0: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
30d0: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
30e0: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a .return;. }..
30f0: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 69 6d /* Clear tim
3100: 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 20 er token */.
3110: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
3120: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
3130: 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a n) NULL;.. /*
3140: 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 20 74 Fire event if t
3150: 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e 67 20 here is pending
3160: 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 65 72 data, skip other
3170: 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 wise */. if (
3180: 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 (statePtr->watch
3190: 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 Mask & TCL_READA
31a0: 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e 70 BLE) && (Tcl_Inp
31b0: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
31c0: 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 29 Ptr->self) > 0))
31d0: 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 43 68 {..Tcl_NotifyCh
31e0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
31f0: 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 41 42 self, TCL_READAB
3200: 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a LE);. }.}../*
3210: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
3260: 44 69 67 65 73 74 57 61 74 63 68 50 72 6f 63 20 DigestWatchProc
3270: 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c --. *. *.Initial
3280: 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 72 ize the notifier
3290: 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 65 76 to watch for ev
32a0: 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 20 63 ents from this c
32b0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
32c0: 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e turns:. *.Nothin
32d0: 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 g. *. * Side eff
32e0: 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 ects:. *.Configu
32f0: 72 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 re notifier so f
3300: 75 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 uture events on
3310: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c the channel will
3320: 20 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e be seen by Tcl.
3330: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
3380: 0a 23 64 65 66 69 6e 65 20 52 45 41 44 5f 44 45 .#define READ_DE
3390: 4c 41 59 09 35 0a 76 6f 69 64 20 44 69 67 65 73 LAY.5.void Diges
33a0: 74 57 61 74 63 68 50 72 6f 63 28 43 6c 69 65 6e tWatchProc(Clien
33b0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
33c0: 2c 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 20 , int mask) {.
33d0: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
33e0: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
33f0: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
3400: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 Data;. Tcl_Ch
3410: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 annel parent;.
3420: 20 20 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 Tcl_DriverWatc
3430: 68 50 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 hProc *watchProc
3440: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
3450: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
3460: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
3470: 20 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 {..return;.
3480: 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 6f 72 65 20 }.. /* Store
3490: 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f OR-ed combinatio
34a0: 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c n of TCL_READABL
34b0: 45 2c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 E, TCL_WRITABLE
34c0: 61 6e 64 20 54 43 4c 5f 45 58 43 45 50 54 49 4f and TCL_EXCEPTIO
34d0: 4e 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 N */. statePt
34e0: 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d r->watchMask = m
34f0: 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a 20 50 72 6f ask;.. /* Pro
3500: 70 61 67 61 74 65 20 6d 61 73 6b 20 69 6e 66 6f pagate mask info
3510: 20 74 6f 20 70 61 72 65 6e 74 20 63 68 61 6e 6e to parent chann
3520: 65 6c 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 el */. parent
3530: 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 = Tcl_GetStacke
3540: 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 dChannel(statePt
3550: 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 77 61 r->self);. wa
3560: 74 63 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 tchProc = Tcl_Ch
3570: 61 6e 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 annelWatchProc(T
3580: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
3590: 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 e(parent));.
35a0: 77 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 watchProc(Tcl_Ge
35b0: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
35c0: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 6d 61 Data(parent), ma
35d0: 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 6d sk);.. /* Rem
35e0: 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 ove pending time
35f0: 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 r */. if (sta
3600: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
3610: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
3620: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 NULL) {..Tcl_De
3630: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
3640: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
3650: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
3660: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
3670: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 Token) NULL;.
3680: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 66 20 74 68 }.. /* If th
3690: 65 72 65 20 69 73 20 64 61 74 61 20 70 65 6e 64 ere is data pend
36a0: 69 6e 67 2c 20 73 65 74 20 6e 65 77 20 74 69 6d ing, set new tim
36b0: 65 72 20 74 6f 20 63 61 6c 6c 20 54 63 6c 5f 4e er to call Tcl_N
36c0: 6f 74 69 66 79 43 68 61 6e 6e 65 6c 20 2a 2f 0a otifyChannel */.
36d0: 20 20 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 if ((mask &
36e0: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 TCL_READABLE) &&
36f0: 20 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 (Tcl_InputBuffe
3700: 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 red(statePtr->se
3710: 6c 66 29 20 3e 20 30 29 29 20 7b 0a 09 73 74 61 lf) > 0)) {..sta
3720: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 tePtr->timer = T
3730: 63 6c 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 cl_CreateTimerHa
3740: 6e 64 6c 65 72 28 52 45 41 44 5f 44 45 4c 41 59 ndler(READ_DELAY
3750: 2c 20 44 69 67 65 73 74 54 69 6d 65 72 48 61 6e , DigestTimerHan
3760: 64 6c 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 dler, (ClientDat
3770: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
3780: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37d0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 47 --. *. * DigestG
37e0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a etHandleProc --.
37f0: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f *. *.Called fro
3800: 6d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c m Tcl_GetChannel
3810: 48 61 6e 64 6c 65 20 74 6f 20 72 65 74 72 69 65 Handle to retrie
3820: 76 65 20 4f 53 20 73 70 65 63 69 66 69 63 20 66 ve OS specific f
3830: 69 6c 65 20 68 61 6e 64 6c 65 0a 20 2a 09 66 72 ile handle. *.fr
3840: 6f 6d 20 69 6e 73 69 64 65 20 74 68 69 73 20 63 om inside this c
3850: 68 61 6e 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 64 hannel. Not used
3860: 20 66 6f 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 for transformat
3870: 69 6f 6e 73 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 ions?. *. * Retu
3880: 72 6e 73 3a 0a 20 2a 09 49 66 20 64 69 72 65 63 rns:. *.If direc
3890: 74 69 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 tion is TCL_READ
38a0: 41 42 4c 45 20 72 65 74 75 72 6e 20 74 68 65 20 ABLE return the
38b0: 68 61 6e 64 6c 65 20 75 73 65 64 20 66 6f 72 20 handle used for
38c0: 69 6e 70 75 74 2c 20 6f 72 20 69 66 0a 20 2a 09 input, or if. *.
38d0: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 72 65 74 TCL_WRITABLE ret
38e0: 75 72 6e 20 74 68 65 20 68 61 6e 64 6c 65 20 75 urn the handle u
38f0: 73 65 64 20 66 6f 72 20 6f 75 74 70 75 74 2e 0a sed for output..
3900: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
3910: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 ts:. *.None. *.
3920: 2a 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 2d 2d 2d 2d 2d 2d ----------------
3940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
3970: 44 69 67 65 73 74 47 65 74 48 61 6e 64 6c 65 50 DigestGetHandleP
3980: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 roc(ClientData c
3990: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 64 lientData, int d
39a0: 69 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 irection, Client
39b0: 44 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 Data *handlePtr)
39c0: 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 {. DigestSta
39d0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
39e0: 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 63 DigestState *) c
39f0: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
3a00: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
3a10: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
3a20: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
3a30: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3a40: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
3a50: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 Tcl_GetChannelHa
3a60: 6e 64 6c 65 28 54 63 6c 5f 47 65 74 53 74 61 63 ndle(Tcl_GetStac
3a70: 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 kedChannel(state
3a80: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 64 69 72 65 Ptr->self), dire
3a90: 63 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 ction, handlePtr
3aa0: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
3ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3af0: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4e 6f -. *. * DigestNo
3b00: 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tifyProc --. *.
3b10: 2a 09 43 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 *.Called by Tcl
3b20: 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 to inform us of
3b30: 61 63 74 69 76 69 74 79 20 6f 6e 20 74 68 65 20 activity on the
3b40: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
3b50: 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e el.. *. * Return
3b60: 73 3a 0a 20 2a 09 55 6e 63 68 61 6e 67 65 64 20 s:. *.Unchanged
3b70: 69 6e 74 65 72 65 73 74 4d 61 73 6b 20 77 68 69 interestMask whi
3b80: 63 68 20 69 73 20 61 6e 20 4f 52 2d 65 64 20 63 ch is an OR-ed c
3b90: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 ombination of TC
3ba0: 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 L_READABLE or TC
3bb0: 4c 5f 57 52 49 54 41 42 4c 45 0a 20 2a 0a 20 2a L_WRITABLE. *. *
3bc0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3bd0: 2a 09 43 61 6e 63 65 6c 73 20 61 6e 79 20 70 65 *.Cancels any pe
3be0: 6e 64 69 6e 67 20 74 69 6d 65 72 2e 0a 20 2a 0a nding timer.. *.
3bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
3c40: 20 44 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f DigestNotifyPro
3c50: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 c(ClientData cli
3c60: 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 69 6e 74 entData, int int
3c70: 65 72 65 73 74 4d 61 73 6b 29 20 7b 0a 20 20 20 erestMask) {.
3c80: 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 DigestState *st
3c90: 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 atePtr = (Digest
3ca0: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
3cb0: 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 ata;.. /* Ski
3cc0: 70 20 74 69 6d 65 72 20 65 76 65 6e 74 20 61 73 p timer event as
3cd0: 20 72 65 64 75 6e 64 61 6e 74 20 2a 2f 0a 20 20 redundant */.
3ce0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
3cf0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
3d00: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
3d10: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d {..Tcl_DeleteTim
3d20: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 erHandler(stateP
3d30: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 tr->timer);..sta
3d40: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
3d50: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
3d60: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
3d70: 72 65 74 75 72 6e 20 69 6e 74 65 72 65 73 74 4d return interestM
3d80: 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 0a 20 2a ask;.}../*. *. *
3d90: 20 43 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 Channel type st
3da0: 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 74 69 ructure definiti
3db0: 6f 6e 20 66 6f 72 20 64 69 67 65 73 74 20 74 72 on for digest tr
3dc0: 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 2e 0a 20 ansformations..
3dd0: 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e *. */.static con
3de0: 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 st Tcl_ChannelTy
3df0: 70 65 20 64 69 67 65 73 74 43 68 61 6e 6e 65 6c pe digestChannel
3e00: 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 64 69 Type = {. "di
3e10: 67 65 73 74 22 2c 09 09 09 2f 2a 20 54 79 70 65 gest",.../* Type
3e20: 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c name */. TCL
3e30: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
3e40: 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 _5,./* v5 channe
3e50: 6c 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 43 l */. DigestC
3e60: 6c 6f 73 65 50 72 6f 63 2c 09 09 2f 2a 20 43 6c loseProc,../* Cl
3e70: 6f 73 65 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 ose proc */.
3e80: 44 69 67 65 73 74 49 6e 70 75 74 50 72 6f 63 2c DigestInputProc,
3e90: 09 09 2f 2a 20 49 6e 70 75 74 20 70 72 6f 63 20 ../* Input proc
3ea0: 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 4f 75 74 */. DigestOut
3eb0: 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 4f 75 74 putProc,../* Out
3ec0: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 put proc */.
3ed0: 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 65 65 6b 20 NULL,.../* Seek
3ee0: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 proc */. Dige
3ef0: 73 74 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c stSetOptionProc,
3f00: 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 ./* Set option p
3f10: 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 roc */. Diges
3f20: 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 tGetOptionProc,.
3f30: 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 /* Get option pr
3f40: 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 oc */. Digest
3f50: 57 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 WatchProc,../* I
3f60: 6e 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 nitialize notifi
3f70: 65 72 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 er */. Digest
3f80: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 2f GetHandleProc,./
3f90: 2a 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 * Get OS handles
3fa0: 20 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 out of channel
3fb0: 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 43 6c 6f */. DigestClo
3fc0: 73 65 32 50 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f se2Proc,../* clo
3fd0: 73 65 32 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 se2proc */. D
3fe0: 69 67 65 73 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 igestBlockModePr
3ff0: 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f 63 6b oc,./* Set block
4000: 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 ing/nonblocking
4010: 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c mode*/. NULL,
4020: 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f 63 .../* Flush proc
4030: 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 4e 6f */. DigestNo
4040: 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 tifyProc,../* Ha
4050: 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 ndling of events
4060: 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a bubbling up */.
4070: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 57 NULL,.../* W
4080: 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 2a 2f ide seek proc */
4090: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
40a0: 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 2a 2f Thread action */
40b0: 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 54 . NULL.../* T
40c0: 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a 2f runcate */.};../
40d0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
4120: 20 44 69 67 65 73 74 43 68 61 6e 6e 65 6c 20 2d DigestChannel -
4130: 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 61 -. *. *.Create a
4140: 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c stacked channel
4150: 20 66 6f 72 20 61 20 6d 65 73 73 61 67 65 20 64 for a message d
4160: 69 67 65 73 74 20 74 72 61 6e 73 66 6f 72 6d 61 igest transforma
4170: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 tion.. *. * Retu
4180: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
4190: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
41a0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
41b0: 20 2a 09 41 64 64 73 20 74 72 61 6e 73 66 6f 72 *.Adds transfor
41c0: 6d 20 74 6f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 m to channel and
41d0: 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 sets result to
41e0: 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 20 6f 72 20 channel name or
41f0: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 error message..
4200: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
4250: 74 61 74 69 63 20 69 6e 74 0a 44 69 67 65 73 74 tatic int.Digest
4260: 43 68 61 6e 6e 65 6c 28 54 63 6c 5f 49 6e 74 65 Channel(Tcl_Inte
4270: 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 rp *interp, cons
4280: 74 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c t char *channel,
4290: 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d const EVP_MD *m
42a0: 64 2c 20 69 6e 74 20 66 6f 72 6d 61 74 2c 0a 09 d, int format,..
42b0: 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 Tcl_Obj *keyObj)
42c0: 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 2c 20 {. int res,
42d0: 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 mode; /* OR-ed c
42e0: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 ombination of TC
42f0: 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 54 L_READABLE and T
4300: 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 CL_WRITABLE */.
4310: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 Tcl_Channel c
4320: 68 61 6e 3b 0a 20 20 20 20 44 69 67 65 73 74 53 han;. DigestS
4330: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a tate *statePtr;.
4340: 20 20 20 20 45 56 50 5f 4d 44 5f 43 54 58 20 2a EVP_MD_CTX *
4350: 63 74 78 20 3d 20 28 45 56 50 5f 4d 44 5f 43 54 ctx = (EVP_MD_CT
4360: 58 20 2a 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 48 X *) NULL;. H
4370: 4d 41 43 5f 43 54 58 20 2a 68 63 74 78 20 3d 20 MAC_CTX *hctx =
4380: 28 48 4d 41 43 5f 43 54 58 20 2a 29 20 4e 55 4c (HMAC_CTX *) NUL
4390: 4c 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 L;.. /* Valid
43a0: 61 74 65 20 61 72 67 73 20 2a 2f 0a 20 20 20 20 ate args */.
43b0: 69 66 20 28 63 68 61 6e 6e 65 6c 20 3d 3d 20 28 if (channel == (
43c0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 4e 55 const char *) NU
43d0: 4c 4c 20 7c 7c 20 6d 64 20 3d 3d 20 28 63 6f 6e LL || md == (con
43e0: 73 74 20 45 56 50 5f 4d 44 20 2a 29 20 4e 55 4c st EVP_MD *) NUL
43f0: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
4400: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
4410: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
4420: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c tChannel(interp,
4430: 20 63 68 61 6e 6e 65 6c 2c 20 26 6d 6f 64 65 29 channel, &mode)
4440: 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d ;. if (chan =
4450: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
4460: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
4470: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
4480: 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b 65 20 73 75 .. /* Make su
4490: 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e re to operate on
44a0: 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 the topmost cha
44b0: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e nnel */. chan
44c0: 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 = Tcl_GetTopCha
44d0: 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 nnel(chan);..
44e0: 20 2f 2a 20 43 72 65 61 74 65 20 69 6e 74 65 72 /* Create inter
44f0: 6e 61 6c 20 73 74 6f 72 61 67 65 20 73 74 72 75 nal storage stru
4500: 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 73 74 61 cture */. sta
4510: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 tePtr = (DigestS
4520: 74 61 74 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 tate *) ckalloc(
4530: 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 6f (unsigned) sizeo
4540: 66 28 44 69 67 65 73 74 53 74 61 74 65 29 29 3b f(DigestState));
4550: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4560: 72 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 r != NULL) {..me
4570: 6d 73 65 74 28 73 74 61 74 65 50 74 72 2c 20 30 mset(statePtr, 0
4580: 2c 20 73 69 7a 65 6f 66 28 44 69 67 65 73 74 53 , sizeof(DigestS
4590: 74 61 74 65 29 29 3b 0a 09 73 74 61 74 65 50 74 tate));..statePt
45a0: 72 2d 3e 73 65 6c 66 09 3d 20 63 68 61 6e 3b 09 r->self.= chan;.
45b0: 09 2f 2a 20 54 68 69 73 20 73 6f 63 6b 65 74 20 ./* This socket
45c0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 channel */..stat
45d0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
45e0: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
45f0: 55 4c 4c 3b 09 2f 2a 20 54 69 6d 65 72 20 74 6f ULL;./* Timer to
4600: 20 66 6c 75 73 68 20 64 61 74 61 20 2a 2f 0a 09 flush data */..
4610: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
4620: 3d 20 30 3b 09 09 2f 2a 20 43 68 61 6e 20 63 6f = 0;../* Chan co
4630: 6e 66 69 67 20 66 6c 61 67 73 20 2a 2f 0a 09 73 nfig flags */..s
4640: 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 tatePtr->watchMa
4650: 73 6b 20 3d 20 30 3b 09 2f 2a 20 43 75 72 72 65 sk = 0;./* Curre
4660: 6e 74 20 57 61 74 63 68 50 72 6f 63 20 6d 61 73 nt WatchProc mas
4670: 6b 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e k */..statePtr->
4680: 6d 6f 64 65 09 3d 20 6d 6f 64 65 3b 09 09 2f 2a mode.= mode;../*
4690: 20 43 75 72 72 65 6e 74 20 6d 6f 64 65 20 6f 66 Current mode of
46a0: 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 parent channel
46b0: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6f */..statePtr->fo
46c0: 72 6d 61 74 20 3d 20 66 6f 72 6d 61 74 3b 09 2f rmat = format;./
46d0: 2a 20 4f 75 74 70 75 74 20 66 6f 72 6d 61 74 20 * Output format
46e0: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 69 6e */..statePtr->in
46f0: 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 09 2f terp = interp;./
4700: 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 * Current interp
4710: 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 74 65 50 reter */..stateP
4720: 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 09 09 tr->ctx = ctx;..
4730: 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 20 2a 2f /* MD Context */
4740: 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 ..statePtr->hctx
4750: 20 3d 20 68 63 74 78 3b 09 09 2f 2a 20 48 4d 41 = hctx;../* HMA
4760: 43 20 43 6f 6e 74 65 78 74 20 2a 2f 0a 09 73 74 C Context */..st
4770: 61 74 65 50 74 72 2d 3e 6d 61 63 20 3d 20 4e 55 atePtr->mac = NU
4780: 4c 4c 3b 09 09 2f 2a 20 4d 41 43 20 43 6f 6e 74 LL;../* MAC Cont
4790: 65 78 74 20 2a 2f 0a 20 20 20 20 7d 20 65 6c 73 ext */. } els
47a0: 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 e {..Tcl_AppendR
47b0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 esult(interp, "I
47c0: 6e 69 74 69 61 6c 69 7a 65 20 64 69 67 65 73 74 nitialize digest
47d0: 20 65 72 72 6f 72 3a 20 6d 65 6d 6f 72 79 20 61 error: memory a
47e0: 6c 6c 6f 63 61 74 69 6f 6e 20 66 61 69 6c 75 72 llocation failur
47f0: 65 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c e", (char *) NUL
4800: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
4810: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
4820: 20 20 2f 2a 20 43 72 65 61 74 65 20 6d 65 73 73 /* Create mess
4830: 61 67 65 20 64 69 67 65 73 74 20 63 6f 6e 74 65 age digest conte
4840: 78 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b 65 xt */. if (ke
4850: 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a yObj == NULL) {.
4860: 09 63 74 78 20 3d 20 45 56 50 5f 4d 44 5f 43 54 .ctx = EVP_MD_CT
4870: 58 5f 6e 65 77 28 29 3b 0a 20 20 20 20 7d 20 65 X_new();. } e
4880: 6c 73 65 20 7b 0a 09 68 63 74 78 20 3d 20 48 4d lse {..hctx = HM
4890: 41 43 5f 43 54 58 5f 6e 65 77 28 29 3b 0a 20 20 AC_CTX_new();.
48a0: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 }. if (ctx
48b0: 21 3d 20 4e 55 4c 4c 20 7c 7c 20 68 63 74 78 20 != NULL || hctx
48c0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 73 74 61 74 != NULL) {..stat
48d0: 65 50 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b ePtr->ctx = ctx;
48e0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 ..statePtr->hctx
48f0: 20 3d 20 68 63 74 78 3b 0a 20 20 20 20 7d 20 65 = hctx;. } e
4900: 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e lse {..Tcl_Appen
4910: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4920: 22 43 72 65 61 74 65 20 64 69 67 65 73 74 20 63 "Create digest c
4930: 6f 6e 74 65 78 74 20 66 61 69 6c 65 64 3a 20 22 ontext failed: "
4940: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c , REASON(), NULL
4950: 29 3b 0a 09 44 69 67 65 73 74 46 72 65 65 28 73 );..DigestFree(s
4960: 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 tatePtr);..retur
4970: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
4980: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 }.. /* Initi
4990: 61 6c 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 alize hash funct
49a0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b ion */. if (k
49b0: 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b eyObj == NULL) {
49c0: 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65 ..res = EVP_Dige
49d0: 73 74 49 6e 69 74 5f 65 78 28 63 74 78 2c 20 6d stInit_ex(ctx, m
49e0: 64 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 d, NULL);. }
49f0: 65 6c 73 65 20 7b 0a 09 69 6e 74 20 6b 65 79 5f else {..int key_
4a00: 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 len;..unsigned c
4a10: 68 61 72 20 2a 6b 65 79 20 3d 20 54 63 6c 5f 47 har *key = Tcl_G
4a20: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
4a30: 62 6a 28 6b 65 79 4f 62 6a 2c 20 26 6b 65 79 5f bj(keyObj, &key_
4a40: 6c 65 6e 29 3b 0a 09 72 65 73 20 3d 20 48 4d 41 len);..res = HMA
4a50: 43 5f 49 6e 69 74 5f 65 78 28 68 63 74 78 2c 20 C_Init_ex(hctx,
4a60: 28 63 6f 6e 73 74 20 76 6f 69 64 20 2a 29 20 6b (const void *) k
4a70: 65 79 2c 20 6b 65 79 5f 6c 65 6e 2c 20 6d 64 2c ey, key_len, md,
4a80: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 NULL);. }.
4a90: 20 20 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 if (!res) {..T
4aa0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
4ab0: 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c interp, "Initial
4ac0: 69 7a 65 20 64 69 67 65 73 74 20 66 61 69 6c 65 ize digest faile
4ad0: 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c 20 d: ", REASON(),
4ae0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
4af0: 09 44 69 67 65 73 74 46 72 65 65 28 73 74 61 74 .DigestFree(stat
4b00: 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 ePtr);..return T
4b10: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
4b20: 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 69 67 75 72 . /* Configur
4b30: 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 e channel */.
4b40: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
4b50: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
4b60: 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f an, "-translatio
4b70: 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 n", "binary");.
4b80: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 if (Tcl_GetCh
4b90: 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a 65 28 annelBufferSize(
4ba0: 63 68 61 6e 29 20 3c 20 45 56 50 5f 4d 41 58 5f chan) < EVP_MAX_
4bb0: 4d 44 5f 53 49 5a 45 20 2a 20 32 29 20 7b 0a 09 MD_SIZE * 2) {..
4bc0: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 42 75 Tcl_SetChannelBu
4bd0: 66 66 65 72 53 69 7a 65 28 63 68 61 6e 2c 20 45 fferSize(chan, E
4be0: 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 20 2a VP_MAX_MD_SIZE *
4bf0: 20 32 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2);. }..
4c00: 2f 2a 20 53 74 61 63 6b 20 63 68 61 6e 6e 65 6c /* Stack channel
4c10: 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 */. statePtr
4c20: 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 ->self = Tcl_Sta
4c30: 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 ckChannel(interp
4c40: 2c 20 26 64 69 67 65 73 74 43 68 61 6e 6e 65 6c , &digestChannel
4c50: 54 79 70 65 2c 20 28 43 6c 69 65 6e 74 44 61 74 Type, (ClientDat
4c60: 61 29 20 73 74 61 74 65 50 74 72 2c 20 6d 6f 64 a) statePtr, mod
4c70: 65 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 e, chan);. if
4c80: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
4c90: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
4ca0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 44 69 67 65 73 ) NULL) {..Diges
4cb0: 74 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b tFree(statePtr);
4cc0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4cd0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 OR;. }.. T
4ce0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
4cf0: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 erp, (char *) Tc
4d00: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
4d10: 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 4f 4c 41 (chan), TCL_VOLA
4d20: 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 TILE);. retur
4d30: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
4d40: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d80: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 --------. *. * U
4d90: 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 6c 20 2d nstack Channel -
4da0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
4db0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
4dc0: 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 d to process the
4dd0: 20 22 75 6e 73 74 61 63 6b 22 20 54 43 4c 20 63 "unstack" TCL c
4de0: 6f 6d 6d 61 6e 64 2e 0a 20 2a 09 53 65 65 20 74 ommand.. *.See t
4df0: 68 65 20 75 73 65 72 20 64 6f 63 75 6d 65 6e 74 he user document
4e00: 61 74 69 6f 6e 20 66 6f 72 20 64 65 74 61 69 6c ation for detail
4e10: 73 20 6f 6e 20 77 68 61 74 20 69 74 20 64 6f 65 s on what it doe
4e20: 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 s.. *. * Returns
4e30: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
4e40: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
4e50: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4e60: 52 65 6d 6f 76 65 73 20 74 72 61 6e 73 66 6f 72 Removes transfor
4e70: 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 6f m from channel o
4e80: 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f r sets result to
4e90: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a error message..
4ea0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
4eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
4ef0: 73 74 61 74 69 63 20 69 6e 74 0a 55 6e 73 74 61 static int.Unsta
4f00: 63 6b 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 ckObjCmd(ClientD
4f10: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
4f20: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4f30: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
4f40: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
4f50: 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 v[]) {. Tcl_C
4f60: 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 hannel chan;.
4f70: 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 int mode; /* OR
4f80: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
4f90: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 of TCL_READABLE
4fa0: 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 and TCL_WRITABLE
4fb0: 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 6f 62 */.. if (ob
4fc0: 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f jc != 2) {..Tcl_
4fd0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
4fe0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 erp, 1, objv, "c
4ff0: 68 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75 72 hannel");..retur
5000: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5010: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 }.. /* Get c
5020: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 hannel */. ch
5030: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
5040: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f nel(interp, Tcl_
5050: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
5060: 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c (objv[1], NULL),
5070: 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 &mode);. if
5080: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 (chan == (Tcl_Ch
5090: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
50a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
50b0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
50c0: 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 Make sure to ope
50d0: 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d rate on the topm
50e0: 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ost channel */.
50f0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
5100: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
5110: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b );.. /* Check
5120: 20 69 66 20 64 69 67 65 73 74 20 63 68 61 6e 6e if digest chann
5130: 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 el */. if (Tc
5140: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
5150: 28 63 68 61 6e 29 20 21 3d 20 26 64 69 67 65 73 (chan) != &diges
5160: 74 43 68 61 6e 6e 65 6c 54 79 70 65 29 20 7b 0a tChannelType) {.
5170: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
5180: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
5190: 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f hannel \"", Tcl_
51a0: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
51b0: 68 61 6e 29 2c 0a 09 20 20 20 20 22 5c 22 3a 20 han),.. "\":
51c0: 6e 6f 74 20 61 20 64 69 67 65 73 74 20 63 68 61 not a digest cha
51d0: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 54 nnel", NULL);..T
51e0: 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 cl_SetErrorCode(
51f0: 69 6e 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 interp, "TLS", "
5200: 55 4e 53 54 41 43 4b 22 2c 20 22 43 48 41 4e 4e UNSTACK", "CHANN
5210: 45 4c 22 2c 20 22 49 4e 56 41 4c 49 44 22 2c 20 EL", "INVALID",
5220: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
5230: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5240: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5250: 20 50 6f 70 20 74 72 61 6e 73 66 6f 72 6d 20 66 Pop transform f
5260: 72 6f 6d 20 63 68 61 6e 6e 65 6c 2c 20 6c 65 61 rom channel, lea
5270: 76 65 73 20 65 72 72 6f 72 20 69 6e 66 6f 20 69 ves error info i
5280: 6e 20 69 6e 74 65 72 70 20 72 65 73 75 6c 74 20 n interp result
5290: 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 55 */. if (Tcl_U
52a0: 6e 73 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e nstackChannel(in
52b0: 74 65 72 70 2c 20 63 68 61 6e 29 20 3d 3d 20 54 terp, chan) == T
52c0: 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72 65 74 CL_ERROR) {..ret
52d0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
52e0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
52f0: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 TCL_OK;. .cli
5300: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 entData = client
5310: 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a Data;.}../******
5320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
5360: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
5370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
53b0: 69 67 65 73 74 48 61 73 68 46 75 6e 63 74 69 6f igestHashFunctio
53c0: 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 63 n --. *. *. Calc
53d0: 75 6c 61 74 65 20 6d 65 73 73 61 67 65 20 64 69 ulate message di
53e0: 67 65 73 74 20 75 73 69 6e 67 20 68 61 73 68 20 gest using hash
53f0: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
5400: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
5410: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
5420: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
5430: 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 ts:. *.Sets resu
5440: 6c 74 20 74 6f 20 6d 65 73 73 61 67 65 20 64 69 lt to message di
5450: 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 gest or error me
5460: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
5470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
54a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
54b0: 2a 2f 0a 69 6e 74 0a 44 69 67 65 73 74 48 61 73 */.int.DigestHas
54c0: 68 46 75 6e 63 74 69 6f 6e 28 54 63 6c 5f 49 6e hFunction(Tcl_In
54d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
54e0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
54f0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 2c 0a 09 *const objv[],..
5500: 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 const EVP_MD *md
5510: 2c 20 69 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 , int format, Tc
5520: 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 20 7b l_Obj *keyObj) {
5530: 0a 20 20 20 20 63 68 61 72 20 2a 64 61 74 61 3b . char *data;
5540: 0a 20 20 20 20 69 6e 74 20 6c 65 6e 2c 20 72 65 . int len, re
5550: 73 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 s;. unsigned
5560: 69 6e 74 20 6d 64 5f 6c 65 6e 3b 0a 20 20 20 20 int md_len;.
5570: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6d 64 unsigned char md
5580: 5f 62 75 66 5b 45 56 50 5f 4d 41 58 5f 4d 44 5f _buf[EVP_MAX_MD_
5590: 53 49 5a 45 5d 3b 0a 0a 20 20 20 20 69 66 20 28 SIZE];.. if (
55a0: 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 objc != 2) {..Tc
55b0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
55c0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
55d0: 22 64 61 74 61 22 29 3b 0a 09 72 65 74 75 72 6e "data");..return
55e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
55f0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 }.. /* Get da
5600: 74 61 20 2a 2f 0a 20 20 20 20 64 61 74 61 20 3d ta */. data =
5610: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
5620: 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d yFromObj(objv[1]
5630: 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20 69 66 20 , &len);. if
5640: 28 64 61 74 61 20 3d 3d 20 4e 55 4c 4c 20 7c 7c (data == NULL ||
5650: 20 6c 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 54 63 len == 0) {..Tc
5660: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
5670: 72 70 2c 20 22 4e 6f 20 64 61 74 61 22 2c 20 4e rp, "No data", N
5680: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
5690: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
56a0: 20 20 20 20 2f 2a 20 43 61 6c 63 75 6c 61 74 65 /* Calculate
56b0: 20 64 69 67 65 73 74 20 62 61 73 65 64 20 6f 6e digest based on
56c0: 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a hash function *
56d0: 2f 0a 20 20 20 20 69 66 20 28 6b 65 79 4f 62 6a /. if (keyObj
56e0: 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 == (Tcl_Obj *)
56f0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
5700: 56 50 5f 44 69 67 65 73 74 28 64 61 74 61 2c 20 VP_Digest(data,
5710: 28 73 69 7a 65 5f 74 29 20 6c 65 6e 2c 20 6d 64 (size_t) len, md
5720: 5f 62 75 66 2c 20 26 6d 64 5f 6c 65 6e 2c 20 6d _buf, &md_len, m
5730: 64 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 d, NULL);. }
5740: 65 6c 73 65 20 7b 0a 09 75 6e 73 69 67 6e 65 64 else {..unsigned
5750: 20 63 68 61 72 20 2a 6b 65 79 2c 20 2a 68 6d 61 char *key, *hma
5760: 63 20 3d 20 4e 55 4c 4c 3b 0a 09 69 6e 74 20 6b c = NULL;..int k
5770: 65 79 5f 6c 65 6e 3b 0a 0a 09 6b 65 79 20 3d 20 ey_len;...key =
5780: 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 Tcl_GetByteArray
5790: 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a 2c 20 FromObj(keyObj,
57a0: 26 6b 65 79 5f 6c 65 6e 29 3b 0a 09 68 6d 61 63 &key_len);..hmac
57b0: 20 3d 20 48 4d 41 43 28 6d 64 2c 20 28 63 6f 6e = HMAC(md, (con
57c0: 73 74 20 76 6f 69 64 20 2a 29 20 6b 65 79 2c 20 st void *) key,
57d0: 6b 65 79 5f 6c 65 6e 2c 20 28 63 6f 6e 73 74 20 key_len, (const
57e0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
57f0: 20 64 61 74 61 2c 0a 09 20 20 20 20 28 73 69 7a data,.. (siz
5800: 65 5f 74 29 20 6c 65 6e 2c 20 6d 64 5f 62 75 66 e_t) len, md_buf
5810: 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 09 72 65 73 , &md_len);..res
5820: 20 3d 20 28 68 6d 61 63 20 21 3d 20 4e 55 4c 4c = (hmac != NULL
5830: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
5840: 20 4f 75 74 70 75 74 20 64 69 67 65 73 74 20 74 Output digest t
5850: 6f 20 72 65 73 75 6c 74 20 70 65 72 20 66 6f 72 o result per for
5860: 6d 61 74 20 28 62 69 6e 20 6f 72 20 68 65 78 29 mat (bin or hex)
5870: 20 2a 2f 0a 20 20 20 20 69 66 20 28 72 65 73 29 */. if (res)
5880: 20 7b 0a 09 69 66 20 28 66 6f 72 6d 61 74 20 3d {..if (format =
5890: 3d 20 42 49 4e 5f 46 4f 52 4d 41 54 29 20 7b 0a = BIN_FORMAT) {.
58a0: 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
58b0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
58c0: 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 l_NewByteArrayOb
58d0: 6a 28 6d 64 5f 62 75 66 2c 20 6d 64 5f 6c 65 6e j(md_buf, md_len
58e0: 29 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 ));...} else {..
58f0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
5900: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
5910: 4f 62 6a 28 29 3b 0a 09 20 20 20 20 75 6e 73 69 Obj();.. unsi
5920: 67 6e 65 64 20 63 68 61 72 20 2a 70 74 72 20 3d gned char *ptr =
5930: 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 Tcl_SetByteArra
5940: 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 yLength(resultOb
5950: 6a 2c 20 6d 64 5f 6c 65 6e 2a 32 29 3b 0a 0a 09 j, md_len*2);...
5960: 20 20 20 20 66 6f 72 20 28 75 6e 73 69 67 6e 65 for (unsigne
5970: 64 20 69 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c d int i = 0; i <
5980: 20 6d 64 5f 6c 65 6e 3b 20 69 2b 2b 29 20 7b 0a md_len; i++) {.
5990: 09 09 2a 70 74 72 2b 2b 20 3d 20 68 65 78 5b 28 ..*ptr++ = hex[(
59a0: 6d 64 5f 62 75 66 5b 69 5d 20 3e 3e 20 34 29 20 md_buf[i] >> 4)
59b0: 26 20 30 78 30 46 5d 3b 0a 09 09 2a 70 74 72 2b & 0x0F];...*ptr+
59c0: 2b 20 3d 20 68 65 78 5b 6d 64 5f 62 75 66 5b 69 + = hex[md_buf[i
59d0: 5d 20 26 20 30 78 30 46 5d 3b 0a 09 20 20 20 20 ] & 0x0F];..
59e0: 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 }..Tcl_SetObjRes
59f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
5a00: 6c 74 4f 62 6a 29 3b 0a 09 7d 0a 0a 20 20 20 20 ltObj);..}..
5a10: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 } else {..Tcl_Ap
5a20: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
5a30: 70 2c 20 22 48 61 73 68 20 63 61 6c 63 75 6c 61 p, "Hash calcula
5a40: 74 69 6f 6e 20 65 72 72 6f 72 3a 22 2c 20 52 45 tion error:", RE
5a50: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
5a60: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
5a70: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5a80: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
5a90: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
5aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5ae0: 20 2a 0a 20 2a 20 44 69 67 65 73 74 4f 62 6a 43 *. * DigestObjC
5af0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
5b00: 72 6e 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 rn message diges
5b10: 74 20 75 73 69 6e 67 20 75 73 65 72 20 73 70 65 t using user spe
5b20: 63 69 66 69 65 64 20 68 61 73 68 20 66 75 6e 63 cified hash func
5b30: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 tion.. *. * Retu
5b40: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
5b50: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
5b60: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
5b70: 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 *.Sets result t
5b80: 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 o message digest
5b90: 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 or error messag
5ba0: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
5bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
5bf0: 74 61 74 69 63 20 69 6e 74 0a 44 69 67 65 73 74 tatic int.Digest
5c00: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
5c10: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
5c20: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
5c30: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
5c40: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
5c50: 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 69 64 78 ]) {. int idx
5c60: 2c 20 6c 65 6e 2c 20 66 6f 72 6d 61 74 20 3d 20 , len, format =
5c70: 48 45 58 5f 46 4f 52 4d 41 54 2c 20 6b 65 79 5f HEX_FORMAT, key_
5c80: 6c 65 6e 20 3d 20 30 2c 20 64 61 74 61 5f 6c 65 len = 0, data_le
5c90: 6e 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c n = 0, res = TCL
5ca0: 5f 4f 4b 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 _OK;. const c
5cb0: 68 61 72 20 2a 64 69 67 65 73 74 6e 61 6d 65 2c har *digestname,
5cc0: 20 2a 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c *channel = NULL
5cd0: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 64 ;. Tcl_Obj *d
5ce0: 61 74 61 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a ataObj = NULL, *
5cf0: 66 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 fileObj = NULL,
5d00: 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a *keyObj = NULL;.
5d10: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
5d20: 72 20 2a 6b 65 79 20 3d 20 4e 55 4c 4c 3b 0a 20 r *key = NULL;.
5d30: 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 const EVP_MD
5d40: 2a 6d 64 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 *md;.. Tcl_Re
5d50: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 setResult(interp
5d60: 29 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 );.. if (objc
5d70: 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 3e 20 37 < 3 || objc > 7
5d80: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
5d90: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
5da0: 20 6f 62 6a 76 2c 20 22 74 79 70 65 20 3f 2d 62 objv, "type ?-b
5db0: 69 6e 7c 2d 68 65 78 3f 20 3f 2d 6b 65 79 20 68 in|-hex? ?-key h
5dc0: 6d 61 63 5f 6b 65 79 3f 20 5b 2d 63 68 61 6e 6e mac_key? [-chann
5dd0: 65 6c 20 63 68 61 6e 20 7c 20 2d 66 69 6c 65 20 el chan | -file
5de0: 66 69 6c 65 6e 61 6d 65 20 7c 20 3f 2d 64 61 74 filename | ?-dat
5df0: 61 3f 20 64 61 74 61 5d 22 29 3b 0a 09 72 65 74 a? data]");..ret
5e00: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5e10: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
5e20: 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 64 digest */. d
5e30: 69 67 65 73 74 6e 61 6d 65 20 3d 20 54 63 6c 5f igestname = Tcl_
5e40: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
5e50: 28 6f 62 6a 76 5b 31 5d 2c 20 26 6c 65 6e 29 3b (objv[1], &len);
5e60: 0a 20 20 20 20 69 66 20 28 64 69 67 65 73 74 6e . if (digestn
5e70: 61 6d 65 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 28 ame == NULL || (
5e80: 6d 64 20 3d 20 45 56 50 5f 67 65 74 5f 64 69 67 md = EVP_get_dig
5e90: 65 73 74 62 79 6e 61 6d 65 28 64 69 67 65 73 74 estbyname(digest
5ea0: 6e 61 6d 65 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 name)) == NULL)
5eb0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
5ec0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 ult(interp, "Inv
5ed0: 61 6c 69 64 20 64 69 67 65 73 74 20 74 79 70 65 alid digest type
5ee0: 20 5c 22 22 2c 20 64 69 67 65 73 74 6e 61 6d 65 \"", digestname
5ef0: 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 , "\"", NULL);..
5f00: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5f10: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
5f20: 4f 70 74 69 6d 61 6c 20 63 61 73 65 20 66 6f 72 Optimal case for
5f30: 20 62 6c 6f 62 20 6f 66 20 64 61 74 61 20 2a 2f blob of data */
5f40: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d . if (objc ==
5f50: 20 33 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 3) {..return Di
5f60: 67 65 73 74 48 61 73 68 46 75 6e 63 74 69 6f 6e gestHashFunction
5f70: 28 69 6e 74 65 72 70 2c 20 2d 2d 6f 62 6a 63 2c (interp, --objc,
5f80: 20 2b 2b 6f 62 6a 76 2c 20 6d 64 2c 20 66 6f 72 ++objv, md, for
5f90: 6d 61 74 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 mat, NULL);.
5fa0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f 70 }.. /* Get op
5fb0: 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 6f 72 tions */. for
5fc0: 20 28 69 64 78 20 3d 20 32 3b 20 69 64 78 20 3c (idx = 2; idx <
5fd0: 20 6f 62 6a 63 2d 31 3b 20 69 64 78 2b 2b 29 20 objc-1; idx++)
5fe0: 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 3d 20 54 {..char *opt = T
5ff0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
6000: 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 4e Obj(objv[idx], N
6010: 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 74 5b ULL);...if (opt[
6020: 30 5d 20 21 3d 20 27 2d 27 29 0a 09 20 20 20 20 0] != '-')..
6030: 62 72 65 61 6b 3b 0a 0a 09 4f 50 54 46 4c 41 47 break;...OPTFLAG
6040: 28 22 2d 62 69 6e 22 2c 20 66 6f 72 6d 61 74 2c ("-bin", format,
6050: 20 42 49 4e 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f BIN_FORMAT);..O
6060: 50 54 46 4c 41 47 28 22 2d 62 69 6e 61 72 79 22 PTFLAG("-binary"
6070: 2c 20 66 6f 72 6d 61 74 2c 20 42 49 4e 5f 46 4f , format, BIN_FO
6080: 52 4d 41 54 29 3b 0a 09 4f 50 54 46 4c 41 47 28 RMAT);..OPTFLAG(
6090: 22 2d 68 65 78 22 2c 20 66 6f 72 6d 61 74 2c 20 "-hex", format,
60a0: 48 45 58 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 HEX_FORMAT);..OP
60b0: 54 46 4c 41 47 28 22 2d 68 65 78 61 64 65 63 69 TFLAG("-hexadeci
60c0: 6d 61 6c 22 2c 20 66 6f 72 6d 61 74 2c 20 48 45 mal", format, HE
60d0: 58 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 54 4f X_FORMAT);..OPTO
60e0: 42 4a 28 22 2d 64 61 74 61 22 2c 20 64 61 74 61 BJ("-data", data
60f0: 4f 62 6a 29 3b 0a 09 4f 50 54 53 54 52 28 22 2d Obj);..OPTSTR("-
6100: 63 68 61 6e 22 2c 20 63 68 61 6e 6e 65 6c 29 3b chan", channel);
6110: 0a 09 4f 50 54 53 54 52 28 22 2d 63 68 61 6e 6e ..OPTSTR("-chann
6120: 65 6c 22 2c 20 63 68 61 6e 6e 65 6c 29 3b 0a 09 el", channel);..
6130: 4f 50 54 4f 42 4a 28 22 2d 66 69 6c 65 22 2c 20 OPTOBJ("-file",
6140: 66 69 6c 65 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 fileObj);..OPTOB
6150: 4a 28 22 2d 66 69 6c 65 6e 61 6d 65 22 2c 20 66 J("-filename", f
6160: 69 6c 65 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a ileObj);..OPTOBJ
6170: 28 22 2d 6b 65 79 22 2c 20 6b 65 79 4f 62 6a 29 ("-key", keyObj)
6180: 3b 0a 0a 09 4f 50 54 42 41 44 28 22 6f 70 74 69 ;...OPTBAD("opti
6190: 6f 6e 22 2c 20 22 2d 62 69 6e 2c 20 2d 64 61 74 on", "-bin, -dat
61a0: 61 2c 20 2d 66 69 6c 65 2c 20 2d 66 69 6c 65 6e a, -file, -filen
61b0: 61 6d 65 2c 20 2d 68 65 78 2c 20 6f 72 20 2d 6b ame, -hex, or -k
61c0: 65 79 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ey");..return TC
61d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
61e0: 20 20 20 20 2f 2a 20 49 66 20 6e 6f 20 6f 70 74 /* If no opt
61f0: 69 6f 6e 20 66 6f 72 20 6c 61 73 74 20 61 72 67 ion for last arg
6200: 2c 20 74 68 65 6e 20 69 74 73 20 74 68 65 20 64 , then its the d
6210: 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 ata */. if (i
6220: 64 78 20 3c 20 6f 62 6a 63 29 20 7b 0a 09 64 61 dx < objc) {..da
6230: 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 taObj = objv[idx
6240: 5d 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a ];. }.. /*
6250: 20 43 61 6c 63 20 64 69 67 65 73 74 20 6f 6e 20 Calc digest on
6260: 66 69 6c 65 2c 20 73 74 61 63 6b 65 64 20 63 68 file, stacked ch
6270: 61 6e 6e 65 6c 2c 20 6f 72 20 64 61 74 61 20 62 annel, or data b
6280: 6c 6f 62 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 lob */. if (f
6290: 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 ileObj != NULL)
62a0: 7b 0a 09 72 65 73 20 3d 20 44 69 67 65 73 74 46 {..res = DigestF
62b0: 69 6c 65 28 69 6e 74 65 72 70 2c 20 66 69 6c 65 ile(interp, file
62c0: 4f 62 6a 2c 20 6d 64 2c 20 66 6f 72 6d 61 74 2c Obj, md, format,
62d0: 20 6b 65 79 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 keyObj);. }
62e0: 65 6c 73 65 20 69 66 20 28 63 68 61 6e 6e 65 6c else if (channel
62f0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 != NULL) {..res
6300: 20 3d 20 44 69 67 65 73 74 43 68 61 6e 6e 65 6c = DigestChannel
6310: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c (interp, channel
6320: 2c 20 6d 64 2c 20 66 6f 72 6d 61 74 2c 20 6b 65 , md, format, ke
6330: 79 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 yObj);. } els
6340: 65 20 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d e if (dataObj !=
6350: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4f 62 NULL) {..Tcl_Ob
6360: 6a 20 2a 6f 62 6a 73 5b 32 5d 3b 0a 09 6f 62 6a j *objs[2];..obj
6370: 73 5b 30 5d 20 3d 20 4e 55 4c 4c 3b 0a 09 6f 62 s[0] = NULL;..ob
6380: 6a 73 5b 31 5d 20 3d 20 64 61 74 61 4f 62 6a 3b js[1] = dataObj;
6390: 0a 09 72 65 73 20 3d 20 44 69 67 65 73 74 48 61 ..res = DigestHa
63a0: 73 68 46 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72 shFunction(inter
63b0: 70 2c 20 32 2c 20 6f 62 6a 73 2c 20 6d 64 2c 20 p, 2, objs, md,
63c0: 66 6f 72 6d 61 74 2c 20 6b 65 79 4f 62 6a 29 3b format, keyObj);
63d0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
63e0: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d n res;.}../*. *-
63f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6430: 2d 2d 0a 20 2a 0a 20 2a 20 4d 65 73 73 61 67 65 --. *. * Message
6440: 20 44 69 67 65 73 74 20 43 6f 6e 76 65 6e 69 65 Digest Convenie
6450: 6e 63 65 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a nce Commands --.
6460: 20 2a 0a 20 2a 09 43 6f 6e 76 65 6e 69 65 6e 63 *. *.Convenienc
6470: 65 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 6d e commands for m
6480: 65 73 73 61 67 65 20 64 69 67 65 73 74 73 2e 0a essage digests..
6490: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
64a0: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
64b0: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
64c0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
64d0: 73 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 73 73 s result to mess
64e0: 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 65 72 age digest or er
64f0: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 ror message. *.
6500: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
6550: 65 73 74 4d 44 34 43 6d 64 28 43 6c 69 65 6e 74 estMD4Cmd(Client
6560: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
6570: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
6580: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
6590: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
65a0: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 jv[]) {. retu
65b0: 72 6e 20 44 69 67 65 73 74 48 61 73 68 46 75 6e rn DigestHashFun
65c0: 63 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 62 ction(interp, ob
65d0: 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f 6d 64 jc, objv, EVP_md
65e0: 34 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 2c 4(), HEX_FORMAT,
65f0: 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 NULL);.}..int D
6600: 69 67 65 73 74 4d 44 35 43 6d 64 28 43 6c 69 65 igestMD5Cmd(Clie
6610: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
6620: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
6630: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
6640: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
6650: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 objv[]) {. re
6660: 74 75 72 6e 20 44 69 67 65 73 74 48 61 73 68 46 turn DigestHashF
6670: 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 unction(interp,
6680: 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f objc, objv, EVP_
6690: 6d 64 35 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41 md5(), HEX_FORMA
66a0: 54 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 T, NULL);.}..int
66b0: 20 44 69 67 65 73 74 53 48 41 31 43 6d 64 28 43 DigestSHA1Cmd(C
66c0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
66d0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
66e0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
66f0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
6700: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
6710: 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 48 61 return DigestHa
6720: 73 68 46 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72 shFunction(inter
6730: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 45 p, objc, objv, E
6740: 56 50 5f 73 68 61 31 28 29 2c 20 48 45 58 5f 46 VP_sha1(), HEX_F
6750: 4f 52 4d 41 54 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a ORMAT, NULL);.}.
6760: 0a 69 6e 74 20 44 69 67 65 73 74 53 48 41 32 35 .int DigestSHA25
6770: 36 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 6Cmd(ClientData
6780: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
6790: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
67a0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
67b0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
67c0: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69 {. return Di
67d0: 67 65 73 74 48 61 73 68 46 75 6e 63 74 69 6f 6e gestHashFunction
67e0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f (interp, objc, o
67f0: 62 6a 76 2c 20 45 56 50 5f 73 68 61 32 35 36 28 bjv, EVP_sha256(
6800: 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 4e ), HEX_FORMAT, N
6810: 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 69 67 ULL);.}..int Dig
6820: 65 73 74 53 48 41 35 31 32 43 6d 64 28 43 6c 69 estSHA512Cmd(Cli
6830: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
6840: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
6850: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
6860: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
6870: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 objv[]) {. r
6880: 65 74 75 72 6e 20 44 69 67 65 73 74 48 61 73 68 eturn DigestHash
6890: 46 75 6e 63 74 69 6f 6e 28 69 6e 74 65 72 70 2c Function(interp,
68a0: 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 objc, objv, EVP
68b0: 5f 73 68 61 35 31 32 28 29 2c 20 48 45 58 5f 46 _sha512(), HEX_F
68c0: 4f 52 4d 41 54 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a ORMAT, NULL);.}.
68d0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
68e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
6920: 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d 61 6e Tls_DigestComman
6930: 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 ds --. *. *.Crea
6940: 74 65 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 6e te digest comman
6950: 64 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 ds. *. * Returns
6960: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
6970: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
6980: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
6990: 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 Creates commands
69a0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
69b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
69f0: 74 20 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d t Tls_DigestComm
6a00: 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 ands(Tcl_Interp
6a10: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 *interp) {. T
6a20: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
6a30: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
6a40: 3a 3a 64 69 67 65 73 74 22 2c 20 44 69 67 65 73 ::digest", Diges
6a50: 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 tObjCmd, (Client
6a60: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
6a70: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
6a80: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
6a90: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
6aa0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 64 34 nterp, "tls::md4
6ab0: 22 2c 20 44 69 67 65 73 74 4d 44 34 43 6d 64 2c ", DigestMD4Cmd,
6ac0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
6ad0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
6ae0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
6af0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
6b00: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
6b10: 74 6c 73 3a 3a 6d 64 35 22 2c 20 44 69 67 65 73 tls::md5", Diges
6b20: 74 4d 44 35 43 6d 64 2c 20 28 43 6c 69 65 6e 74 tMD5Cmd, (Client
6b30: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
6b40: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
6b50: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
6b60: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
6b70: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 68 61 nterp, "tls::sha
6b80: 31 22 2c 20 44 69 67 65 73 74 53 48 41 31 43 6d 1", DigestSHA1Cm
6b90: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
6ba0: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
6bb0: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
6bc0: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
6bd0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
6be0: 20 22 74 6c 73 3a 3a 73 68 61 32 35 36 22 2c 20 "tls::sha256",
6bf0: 44 69 67 65 73 74 53 48 41 32 35 36 43 6d 64 2c DigestSHA256Cmd,
6c00: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
6c10: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
6c20: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
6c30: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
6c40: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
6c50: 74 6c 73 3a 3a 73 68 61 35 31 32 22 2c 20 44 69 tls::sha512", Di
6c60: 67 65 73 74 53 48 41 35 31 32 43 6d 64 2c 20 28 gestSHA512Cmd, (
6c70: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
6c80: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
6c90: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
6ca0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
6cb0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
6cc0: 73 3a 3a 75 6e 73 74 61 63 6b 22 2c 20 55 6e 73 s::unstack", Uns
6cd0: 74 61 63 6b 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 tackObjCmd, (Cli
6ce0: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
6cf0: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
6d00: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 ) NULL);. ret
6d10: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a urn TCL_OK;.}..