0000: 2f 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 44 69 /*. * Message Di
0010: 67 65 73 74 20 28 4d 44 29 20 61 6e 64 20 4d 65 gest (MD) and Me
0020: 73 73 61 67 65 20 41 75 74 68 65 6e 74 69 63 61 ssage Authentica
0030: 74 69 6f 6e 20 43 6f 64 65 20 28 4d 41 43 29 20 tion Code (MAC)
0040: 4d 6f 64 75 6c 65 0a 20 2a 0a 20 2a 20 50 72 6f Module. *. * Pro
0050: 76 69 64 65 73 20 63 6f 6d 6d 61 6e 64 73 20 74 vides commands t
0060: 6f 20 63 61 6c 63 75 6c 61 74 65 20 61 20 6d 65 o calculate a me
0070: 73 73 61 67 65 20 64 69 67 65 73 74 20 28 4d 44 ssage digest (MD
0080: 29 20 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 20 ) or message. *
0090: 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 63 authentication c
00a0: 6f 64 65 20 28 4d 41 43 29 20 75 73 69 6e 67 20 ode (MAC) using
00b0: 61 20 73 70 65 63 69 66 69 65 64 20 68 61 73 68 a specified hash
00c0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 2f 6f 72 function and/or
00d0: 20 63 69 70 68 65 72 2e 0a 20 2a 0a 20 2a 20 43 cipher.. *. * C
00e0: 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 opyright (C) 202
00f0: 33 20 42 72 69 61 6e 20 4f 27 48 61 67 61 6e 0a 3 Brian O'Hagan.
0100: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 *. */..#include
0110: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 "tlsInt.h".#inc
0120: 6c 75 64 65 20 22 74 63 6c 4f 70 74 73 2e 68 22 lude "tclOpts.h"
0130: 0a 23 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 .#include <tcl.h
0140: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 69 >.#include <stdi
0150: 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 o.h>.#include <s
0160: 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 tring.h>.#includ
0170: 65 20 3c 6f 70 65 6e 73 73 6c 2f 65 76 70 2e 68 e <openssl/evp.h
0180: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e >.#include <open
0190: 73 73 6c 2f 63 6d 61 63 2e 68 3e 0a 23 69 6e 63 ssl/cmac.h>.#inc
01a0: 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 68 6d lude <openssl/hm
01b0: 61 63 2e 68 3e 0a 0a 2f 2a 20 43 6f 6e 73 74 61 ac.h>../* Consta
01c0: 6e 74 73 20 2a 2f 0a 63 6f 6e 73 74 20 63 68 61 nts */.const cha
01d0: 72 20 2a 68 65 78 20 3d 20 22 30 31 32 33 34 35 r *hex = "012345
01e0: 36 37 38 39 61 62 63 64 65 66 22 3b 0a 0a 2f 2a 6789abcdef";../*
01f0: 20 4d 61 63 72 6f 73 20 2a 2f 0a 23 64 65 66 69 Macros */.#defi
0200: 6e 65 20 42 55 46 46 45 52 5f 53 49 5a 45 09 36 ne BUFFER_SIZE.6
0210: 35 35 33 36 0a 23 64 65 66 69 6e 65 20 43 48 41 5536.#define CHA
0220: 4e 5f 45 4f 46 09 30 78 31 30 0a 23 64 65 66 69 N_EOF.0x10.#defi
0230: 6e 65 20 52 45 41 44 5f 44 45 4c 41 59 09 35 0a ne READ_DELAY.5.
0240: 0a 2f 2a 20 44 69 67 65 73 74 20 66 6f 72 6d 61 ./* Digest forma
0250: 74 20 61 6e 64 20 6f 70 65 72 61 74 69 6f 6e 20 t and operation
0260: 2a 2f 0a 23 64 65 66 69 6e 65 20 42 49 4e 5f 46 */.#define BIN_F
0270: 4f 52 4d 41 54 09 30 78 30 31 0a 23 64 65 66 69 ORMAT.0x01.#defi
0280: 6e 65 20 48 45 58 5f 46 4f 52 4d 41 54 09 30 78 ne HEX_FORMAT.0x
0290: 30 32 0a 23 64 65 66 69 6e 65 20 49 53 5f 58 4f 02.#define IS_XO
02a0: 46 09 09 30 78 30 38 0a 23 64 65 66 69 6e 65 20 F..0x08.#define
02b0: 54 59 50 45 5f 4d 44 09 09 30 78 31 30 0a 23 64 TYPE_MD..0x10.#d
02c0: 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 09 efine TYPE_HMAC.
02d0: 30 78 32 30 0a 23 64 65 66 69 6e 65 20 54 59 50 0x20.#define TYP
02e0: 45 5f 43 4d 41 43 09 30 78 34 30 0a 0a 2f 2a 0a E_CMAC.0x40../*.
02f0: 20 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 * This structur
0300: 65 20 64 65 66 69 6e 65 73 20 74 68 65 20 70 65 e defines the pe
0310: 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 65 r-instance state
0320: 20 6f 66 20 61 20 64 69 67 65 73 74 20 6f 70 65 of a digest ope
0330: 72 61 74 69 6f 6e 2e 0a 20 2a 2f 0a 74 79 70 65 ration.. */.type
0340: 64 65 66 20 73 74 72 75 63 74 20 44 69 67 65 73 def struct Diges
0350: 74 53 74 61 74 65 20 7b 0a 09 54 63 6c 5f 43 68 tState {..Tcl_Ch
0360: 61 6e 6e 65 6c 20 73 65 6c 66 3b 09 2f 2a 20 54 annel self;./* T
0370: 68 69 73 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e his socket chann
0380: 65 6c 20 2a 2f 0a 09 54 63 6c 5f 54 69 6d 65 72 el */..Tcl_Timer
0390: 54 6f 6b 65 6e 20 74 69 6d 65 72 3b 09 2f 2a 20 Token timer;./*
03a0: 54 69 6d 65 72 20 66 6f 72 20 72 65 61 64 20 65 Timer for read e
03b0: 76 65 6e 74 73 20 2a 2f 0a 0a 09 69 6e 74 20 66 vents */...int f
03c0: 6c 61 67 73 3b 09 09 2f 2a 20 43 68 61 6e 20 63 lags;../* Chan c
03d0: 6f 6e 66 69 67 20 66 6c 61 67 73 20 2a 2f 0a 09 onfig flags */..
03e0: 69 6e 74 20 77 61 74 63 68 4d 61 73 6b 3b 09 09 int watchMask;..
03f0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
0400: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 69 6e Proc mask */..in
0410: 74 20 6d 6f 64 65 3b 09 09 2f 2a 20 43 75 72 72 t mode;../* Curr
0420: 65 6e 74 20 6d 6f 64 65 20 6f 66 20 70 61 72 65 ent mode of pare
0430: 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 69 nt channel */..i
0440: 6e 74 20 66 6f 72 6d 61 74 3b 09 09 2f 2a 20 44 nt format;../* D
0450: 69 67 65 73 74 20 66 6f 72 6d 61 74 20 61 6e 64 igest format and
0460: 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 0a 09 operation */...
0470: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
0480: 72 70 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 rp;./* Current i
0490: 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 45 nterpreter */..E
04a0: 56 50 5f 4d 44 5f 43 54 58 20 2a 63 74 78 3b 09 VP_MD_CTX *ctx;.
04b0: 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 20 2a 2f /* MD Context */
04c0: 0a 09 48 4d 41 43 5f 43 54 58 20 2a 68 63 74 78 ..HMAC_CTX *hctx
04d0: 3b 09 09 2f 2a 20 48 4d 41 43 20 43 6f 6e 74 65 ;../* HMAC Conte
04e0: 78 74 20 2a 2f 0a 09 43 4d 41 43 5f 43 54 58 20 xt */..CMAC_CTX
04f0: 2a 63 63 74 78 3b 09 09 2f 2a 20 43 4d 41 43 20 *cctx;../* CMAC
0500: 43 6f 6e 74 65 78 74 20 2a 2f 0a 09 54 63 6c 5f Context */..Tcl_
0510: 43 6f 6d 6d 61 6e 64 20 74 6f 6b 65 6e 3b 09 2f Command token;./
0520: 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f 6b 65 6e 20 * Command token
0530: 2a 2f 0a 7d 20 44 69 67 65 73 74 53 74 61 74 65 */.} DigestState
0540: 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ;../*. *--------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
0590: 2a 20 54 6c 73 5f 44 69 67 65 73 74 4e 65 77 20 * Tls_DigestNew
05a0: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 --. *. *.This fu
05b0: 6e 63 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 nction creates a
05c0: 20 70 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 per-instance st
05d0: 61 74 65 20 64 61 74 61 20 73 74 72 75 63 74 75 ate data structu
05e0: 72 65 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 re. *. * Returns
05f0: 3a 0a 20 2a 09 44 69 67 65 73 74 20 73 74 72 75 :. *.Digest stru
0600: 63 74 75 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a cture pointer. *
0610: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0620: 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 73 74 72 :. *.Creates str
0630: 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d ucture. *. *----
0640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0680: 20 2a 2f 0a 44 69 67 65 73 74 53 74 61 74 65 20 */.DigestState
0690: 2a 54 6c 73 5f 44 69 67 65 73 74 4e 65 77 28 54 *Tls_DigestNew(T
06a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
06b0: 70 2c 20 69 6e 74 20 66 6f 72 6d 61 74 29 20 7b p, int format) {
06c0: 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 . DigestState
06d0: 20 2a 73 74 61 74 65 50 74 72 3b 0a 0a 20 20 20 *statePtr;..
06e0: 20 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 statePtr = (Dig
06f0: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6b 61 6c estState *) ckal
0700: 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 73 loc((unsigned) s
0710: 69 7a 65 6f 66 28 44 69 67 65 73 74 53 74 61 74 izeof(DigestStat
0720: 65 29 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 e));. if (sta
0730: 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 20 7b tePtr != NULL) {
0740: 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 65 50 74 ..memset(statePt
0750: 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 44 69 67 r, 0, sizeof(Dig
0760: 65 73 74 53 74 61 74 65 29 29 3b 0a 09 73 74 61 estState));..sta
0770: 74 65 50 74 72 2d 3e 73 65 6c 66 09 3d 20 4e 55 tePtr->self.= NU
0780: 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 20 73 6f 63 LL;../* This soc
0790: 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 ket channel */..
07a0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
07b0: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 69 6d 65 = NULL;../* Time
07c0: 72 20 74 6f 20 66 6c 75 73 68 20 64 61 74 61 20 r to flush data
07d0: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c */..statePtr->fl
07e0: 61 67 73 20 3d 20 30 3b 09 09 2f 2a 20 43 68 61 ags = 0;../* Cha
07f0: 6e 20 63 6f 6e 66 69 67 20 66 6c 61 67 73 20 2a n config flags *
0800: 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 61 74 /..statePtr->wat
0810: 63 68 4d 61 73 6b 20 3d 20 30 3b 09 2f 2a 20 43 chMask = 0;./* C
0820: 75 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 urrent WatchProc
0830: 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 61 74 65 50 mask */..stateP
0840: 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 3b 09 09 2f tr->mode.= 0;../
0850: 2a 20 43 75 72 72 65 6e 74 20 6d 6f 64 65 20 6f * Current mode o
0860: 66 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c f parent channel
0870: 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 */..statePtr->f
0880: 6f 72 6d 61 74 20 3d 20 66 6f 72 6d 61 74 3b 09 ormat = format;.
0890: 2f 2a 20 44 69 67 65 73 74 20 66 6f 72 6d 61 74 /* Digest format
08a0: 20 61 6e 64 20 6f 70 65 72 61 74 69 6f 6e 20 2a and operation *
08b0: 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 /..statePtr->int
08c0: 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 09 2f 2a erp = interp;./*
08d0: 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 70 72 Current interpr
08e0: 65 74 65 72 20 2a 2f 0a 09 73 74 61 74 65 50 74 eter */..statePt
08f0: 72 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 09 09 r->ctx = NULL;..
0900: 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 20 2a 2f /* MD Context */
0910: 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 ..statePtr->hctx
0920: 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 48 4d 41 = NULL;../* HMA
0930: 43 20 43 6f 6e 74 65 78 74 20 2a 2f 0a 09 73 74 C Context */..st
0940: 61 74 65 50 74 72 2d 3e 63 63 74 78 20 3d 20 4e atePtr->cctx = N
0950: 55 4c 4c 3b 09 09 2f 2a 20 43 4d 41 43 20 43 6f ULL;../* CMAC Co
0960: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
0970: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
0980: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
0990: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
09a0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
09b0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
09c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0a00: 0a 20 2a 20 54 6c 73 5f 44 69 67 65 73 74 46 72 . * Tls_DigestFr
0a10: 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 ee --. *. *.This
0a20: 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 74 65 function delete
0a30: 73 20 61 20 64 69 67 65 73 74 20 73 74 61 74 65 s a digest state
0a40: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0a50: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
0a60: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
0a70: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
0a80: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
0a90: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ad0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0ae0: 54 6c 73 5f 44 69 67 65 73 74 46 72 65 65 28 44 Tls_DigestFree(D
0af0: 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 igestState *stat
0b00: 65 50 74 72 29 20 7b 0a 20 20 20 20 69 66 20 28 ePtr) {. if (
0b10: 73 74 61 74 65 50 74 72 20 3d 3d 20 28 44 69 67 statePtr == (Dig
0b20: 65 73 74 53 74 61 74 65 20 2a 29 20 4e 55 4c 4c estState *) NULL
0b30: 29 20 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 ) {..return;.
0b40: 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 }.. /* Remov
0b50: 65 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 e pending timer
0b60: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
0b70: 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 Ptr->timer != (T
0b80: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
0b90: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 ULL) {..Tcl_Dele
0ba0: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
0bb0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
0bc0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 . }.. /* F
0bd0: 72 65 65 20 63 6f 6e 74 65 78 74 20 73 74 72 75 ree context stru
0be0: 63 74 75 72 65 73 20 2a 2f 0a 20 20 20 20 69 66 ctures */. if
0bf0: 20 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 (statePtr->ctx
0c00: 21 3d 20 28 45 56 50 5f 4d 44 5f 43 54 58 20 2a != (EVP_MD_CTX *
0c10: 29 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 4d ) NULL) {..EVP_M
0c20: 44 5f 43 54 58 5f 66 72 65 65 28 73 74 61 74 65 D_CTX_free(state
0c30: 50 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 7d Ptr->ctx);. }
0c40: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
0c50: 72 2d 3e 68 63 74 78 20 21 3d 20 28 48 4d 41 43 r->hctx != (HMAC
0c60: 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a _CTX *) NULL) {.
0c70: 09 48 4d 41 43 5f 43 54 58 5f 66 72 65 65 28 73 .HMAC_CTX_free(s
0c80: 74 61 74 65 50 74 72 2d 3e 68 63 74 78 29 3b 0a tatePtr->hctx);.
0c90: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
0ca0: 61 74 65 50 74 72 2d 3e 63 63 74 78 20 21 3d 20 atePtr->cctx !=
0cb0: 28 43 4d 41 43 5f 43 54 58 20 2a 29 20 4e 55 4c (CMAC_CTX *) NUL
0cc0: 4c 29 20 7b 0a 09 43 4d 41 43 5f 43 54 58 5f 66 L) {..CMAC_CTX_f
0cd0: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 63 ree(statePtr->cc
0ce0: 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 tx);. }. c
0cf0: 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 29 3b kfree(statePtr);
0d00: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
0d10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d40: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d90: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 ---. *. * Tls_Di
0da0: 67 65 73 74 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 gestInit --. *.
0db0: 2a 09 49 6e 69 74 69 61 6c 69 7a 65 20 61 20 68 *.Initialize a h
0dc0: 61 73 68 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a ash function. *.
0dd0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
0de0: 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 CL_OK if success
0df0: 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 ful or TCL_ERROR
0e00: 20 66 6f 72 20 66 61 69 6c 75 72 65 20 77 69 74 for failure wit
0e10: 68 20 72 65 73 75 6c 74 20 73 65 74 0a 20 2a 09 h result set. *.
0e20: 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 to error message
0e30: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
0e40: 65 63 74 73 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 ects:. *.No resu
0e50: 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 lt or error mess
0e60: 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d age. *. *-------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0eb0: 0a 69 6e 74 20 54 6c 73 5f 44 69 67 65 73 74 49 .int Tls_DigestI
0ec0: 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nit(Tcl_Interp *
0ed0: 69 6e 74 65 72 70 2c 20 44 69 67 65 73 74 53 74 interp, DigestSt
0ee0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 ate *statePtr, c
0ef0: 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c onst EVP_MD *md,
0f00: 0a 09 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 ..const EVP_CIPH
0f10: 45 52 20 2a 63 69 70 68 65 72 2c 20 54 63 6c 5f ER *cipher, Tcl_
0f20: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a 20 Obj *keyObj) {.
0f30: 20 20 20 69 6e 74 20 6b 65 79 5f 6c 65 6e 20 3d int key_len =
0f40: 20 30 2c 20 72 65 73 20 3d 20 30 3b 0a 20 20 20 0, res = 0;.
0f50: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
0f60: 63 68 61 72 20 2a 6b 65 79 20 3d 20 4e 55 4c 4c char *key = NULL
0f70: 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 ;.. /* Create
0f80: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
0f90: 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 context */. i
0fa0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 f (statePtr->for
0fb0: 6d 61 74 20 26 20 54 59 50 45 5f 4d 44 29 20 7b mat & TYPE_MD) {
0fc0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 ..statePtr->ctx
0fd0: 3d 20 45 56 50 5f 4d 44 5f 43 54 58 5f 6e 65 77 = EVP_MD_CTX_new
0fe0: 28 29 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 74 ();..res = (stat
0ff0: 65 50 74 72 2d 3e 63 74 78 20 21 3d 20 4e 55 4c ePtr->ctx != NUL
1000: 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 L);. } else i
1010: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 f (statePtr->for
1020: 6d 61 74 20 26 20 54 59 50 45 5f 48 4d 41 43 29 mat & TYPE_HMAC)
1030: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 63 {..statePtr->hc
1040: 74 78 20 3d 20 48 4d 41 43 5f 43 54 58 5f 6e 65 tx = HMAC_CTX_ne
1050: 77 28 29 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 w();..res = (sta
1060: 74 65 50 74 72 2d 3e 68 63 74 78 20 21 3d 20 4e tePtr->hctx != N
1070: 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 ULL);. } else
1080: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
1090: 6f 72 6d 61 74 20 26 20 54 59 50 45 5f 43 4d 41 ormat & TYPE_CMA
10a0: 43 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e C) {..statePtr->
10b0: 63 63 74 78 20 3d 20 43 4d 41 43 5f 43 54 58 5f cctx = CMAC_CTX_
10c0: 6e 65 77 28 29 3b 0a 09 72 65 73 20 3d 20 28 73 new();..res = (s
10d0: 74 61 74 65 50 74 72 2d 3e 63 63 74 78 20 21 3d tatePtr->cctx !=
10e0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 NULL);. }.
10f0: 20 20 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 if (!res) {..T
1100: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1110: 69 6e 74 65 72 70 2c 20 22 43 72 65 61 74 65 20 interp, "Create
1120: 63 6f 6e 74 65 78 74 20 66 61 69 6c 65 64 3a 20 context failed:
1130: 22 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c ", REASON(), NUL
1140: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
1150: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
1160: 20 20 2f 2a 20 47 65 74 20 6b 65 79 20 2a 2f 0a /* Get key */.
1170: 20 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 21 if (keyObj !
1180: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6b 65 79 20 3d = NULL) {..key =
1190: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
11a0: 79 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a 2c yFromObj(keyObj,
11b0: 20 26 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 20 &key_len);.
11c0: 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 }.. /* Initia
11d0: 6c 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 lize hash functi
11e0: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 on */. if (st
11f0: 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 atePtr->format &
1200: 20 54 59 50 45 5f 4d 44 29 20 7b 0a 09 72 65 73 TYPE_MD) {..res
1210: 20 3d 20 45 56 50 5f 44 69 67 65 73 74 49 6e 69 = EVP_DigestIni
1220: 74 5f 65 78 28 73 74 61 74 65 50 74 72 2d 3e 63 t_ex(statePtr->c
1230: 74 78 2c 20 6d 64 2c 20 4e 55 4c 4c 29 3b 0a 20 tx, md, NULL);.
1240: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
1250: 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 atePtr->format &
1260: 20 54 59 50 45 5f 48 4d 41 43 29 20 7b 0a 09 72 TYPE_HMAC) {..r
1270: 65 73 20 3d 20 48 4d 41 43 5f 49 6e 69 74 5f 65 es = HMAC_Init_e
1280: 78 28 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 x(statePtr->hctx
1290: 2c 20 28 63 6f 6e 73 74 20 76 6f 69 64 20 2a 29 , (const void *)
12a0: 20 6b 65 79 2c 20 6b 65 79 5f 6c 65 6e 2c 20 6d key, key_len, m
12b0: 64 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 d, NULL);. }
12c0: 65 6c 73 65 20 69 66 20 28 73 74 61 74 65 50 74 else if (statePt
12d0: 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 59 50 45 r->format & TYPE
12e0: 5f 43 4d 41 43 29 20 7b 0a 09 72 65 73 20 3d 20 _CMAC) {..res =
12f0: 43 4d 41 43 5f 49 6e 69 74 28 73 74 61 74 65 50 CMAC_Init(stateP
1300: 74 72 2d 3e 63 63 74 78 2c 20 28 63 6f 6e 73 74 tr->cctx, (const
1310: 20 76 6f 69 64 20 2a 29 20 6b 65 79 2c 20 6b 65 void *) key, ke
1320: 79 5f 6c 65 6e 2c 20 63 69 70 68 65 72 2c 20 4e y_len, cipher, N
1330: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ULL);. }.
1340: 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c if (!res) {..Tcl
1350: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1360: 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a terp, "Initializ
1370: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 41 e failed: ", REA
1380: 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 72 SON(), NULL);..r
1390: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
13a0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
13b0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
13c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
13d0: 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
1410: 44 69 67 65 73 74 55 70 64 61 74 65 20 2d 2d 0a DigestUpdate --.
1420: 20 2a 0a 20 2a 09 55 70 64 61 74 65 20 61 20 68 *. *.Update a h
1430: 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 ash function wit
1440: 68 20 64 61 74 61 0a 20 2a 0a 20 2a 20 52 65 74 h data. *. * Ret
1450: 75 72 6e 73 3a 0a 20 2a 09 31 20 69 66 20 73 75 urns:. *.1 if su
1460: 63 63 65 73 73 66 75 6c 20 6f 72 20 30 20 66 6f ccessful or 0 fo
1470: 72 20 66 61 69 6c 75 72 65 0a 20 2a 0a 20 2a 20 r failure. *. *
1480: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
1490: 09 41 64 64 73 20 62 75 66 20 64 61 74 61 20 74 .Adds buf data t
14a0: 6f 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 o hash function
14b0: 6f 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 or sets result t
14c0: 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a o error message.
14d0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
1520: 20 54 6c 73 5f 44 69 67 65 73 74 55 70 64 61 74 Tls_DigestUpdat
1530: 65 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 e(DigestState *s
1540: 74 61 74 65 50 74 72 2c 20 63 68 61 72 20 2a 62 tatePtr, char *b
1550: 75 66 2c 20 73 69 7a 65 5f 74 20 72 65 61 64 2c uf, size_t read,
1560: 20 69 6e 74 20 64 6f 5f 72 65 73 75 6c 74 29 20 int do_result)
1570: 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 3d 20 {. int res =
1580: 30 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 0;.. if (stat
1590: 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 ePtr->format & T
15a0: 59 50 45 5f 4d 44 29 20 7b 0a 09 72 65 73 20 3d YPE_MD) {..res =
15b0: 20 45 56 50 5f 44 69 67 65 73 74 55 70 64 61 74 EVP_DigestUpdat
15c0: 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c e(statePtr->ctx,
15d0: 20 62 75 66 2c 20 72 65 61 64 29 3b 0a 20 20 20 buf, read);.
15e0: 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 61 74 } else if (stat
15f0: 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 ePtr->format & T
1600: 59 50 45 5f 48 4d 41 43 29 20 7b 0a 09 72 65 73 YPE_HMAC) {..res
1610: 20 3d 20 48 4d 41 43 5f 55 70 64 61 74 65 28 73 = HMAC_Update(s
1620: 74 61 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 62 tatePtr->hctx, b
1630: 75 66 2c 20 72 65 61 64 29 3b 0a 20 20 20 20 7d uf, read);. }
1640: 20 65 6c 73 65 20 69 66 20 28 73 74 61 74 65 50 else if (stateP
1650: 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 59 50 tr->format & TYP
1660: 45 5f 43 4d 41 43 29 20 7b 0a 09 72 65 73 20 3d E_CMAC) {..res =
1670: 20 43 4d 41 43 5f 55 70 64 61 74 65 28 73 74 61 CMAC_Update(sta
1680: 74 65 50 74 72 2d 3e 63 63 74 78 2c 20 62 75 66 tePtr->cctx, buf
1690: 2c 20 72 65 61 64 29 3b 0a 20 20 20 20 7d 0a 20 , read);. }.
16a0: 20 20 20 69 66 20 28 21 72 65 73 20 26 26 20 64 if (!res && d
16b0: 6f 5f 72 65 73 75 6c 74 29 20 7b 0a 09 54 63 6c o_result) {..Tcl
16c0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 73 74 _AppendResult(st
16d0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
16e0: 22 55 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 "Update failed:
16f0: 22 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c ", REASON(), NUL
1700: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
1710: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
1720: 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a return res;.}..
1730: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
1780: 6c 73 5f 44 69 67 65 73 74 46 69 6e 69 61 6c 69 ls_DigestFiniali
1790: 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 46 69 6e 61 ze --. *. *.Fina
17a0: 6c 69 7a 65 20 61 20 68 61 73 68 20 66 75 6e 63 lize a hash func
17b0: 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 tion and return
17c0: 74 68 65 20 6d 65 73 73 61 67 65 20 64 69 67 65 the message dige
17d0: 73 74 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 st. *. * Returns
17e0: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
17f0: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
1800: 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 6c 75 _ERROR for failu
1810: 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 73 re with result s
1820: 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 6d et. *.to error m
1830: 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 essage.. *. * Si
1840: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
1850: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 ets result to me
1860: 73 73 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 ssage digest or
1870: 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 an error message
1880: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
18d0: 6e 74 20 54 6c 73 5f 44 69 67 65 73 74 46 69 6e nt Tls_DigestFin
18e0: 69 61 6c 69 7a 65 28 54 63 6c 5f 49 6e 74 65 72 ialize(Tcl_Inter
18f0: 70 20 2a 69 6e 74 65 72 70 2c 20 44 69 67 65 73 p *interp, Diges
1900: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
1910: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 2a 72 65 73 75 , Tcl_Obj **resu
1920: 6c 74 4f 62 6a 29 20 7b 0a 20 20 20 20 75 6e 73 ltObj) {. uns
1930: 69 67 6e 65 64 20 63 68 61 72 20 6d 64 5f 62 75 igned char md_bu
1940: 66 5b 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a f[EVP_MAX_MD_SIZ
1950: 45 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 E];. unsigned
1960: 20 69 6e 74 20 6d 64 5f 6c 65 6e 3b 0a 20 20 20 int md_len;.
1970: 20 69 6e 74 20 72 65 73 20 3d 20 30 3b 0a 0a 20 int res = 0;..
1980: 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 68 /* Finalize h
1990: 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 ash function and
19a0: 20 63 61 6c 63 75 6c 61 74 65 20 6d 65 73 73 61 calculate messa
19b0: 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 20 ge digest */.
19c0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 if (statePtr->f
19d0: 6f 72 6d 61 74 20 26 20 54 59 50 45 5f 4d 44 29 ormat & TYPE_MD)
19e0: 20 7b 0a 09 69 66 20 28 21 28 73 74 61 74 65 50 {..if (!(stateP
19f0: 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 49 53 5f tr->format & IS_
1a00: 58 4f 46 29 29 20 7b 0a 09 20 20 20 20 72 65 73 XOF)) {.. res
1a10: 20 3d 20 45 56 50 5f 44 69 67 65 73 74 46 69 6e = EVP_DigestFin
1a20: 61 6c 5f 65 78 28 73 74 61 74 65 50 74 72 2d 3e al_ex(statePtr->
1a30: 63 74 78 2c 20 6d 64 5f 62 75 66 2c 20 26 6d 64 ctx, md_buf, &md
1a40: 5f 6c 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b _len);..} else {
1a50: 0a 09 20 20 20 20 72 65 73 20 3d 20 45 56 50 5f .. res = EVP_
1a60: 44 69 67 65 73 74 46 69 6e 61 6c 58 4f 46 28 73 DigestFinalXOF(s
1a70: 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6d 64 tatePtr->ctx, md
1a80: 5f 62 75 66 2c 20 45 56 50 5f 4d 41 58 5f 4d 44 _buf, EVP_MAX_MD
1a90: 5f 53 49 5a 45 29 3b 0a 09 7d 0a 0a 20 20 20 20 _SIZE);..}..
1aa0: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 61 74 65 } else if (state
1ab0: 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 59 Ptr->format & TY
1ac0: 50 45 5f 48 4d 41 43 29 20 7b 0a 09 72 65 73 20 PE_HMAC) {..res
1ad0: 3d 20 48 4d 41 43 5f 46 69 6e 61 6c 28 73 74 61 = HMAC_Final(sta
1ae0: 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 6d 64 5f tePtr->hctx, md_
1af0: 62 75 66 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 0a buf, &md_len);..
1b00: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
1b10: 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 tatePtr->format
1b20: 26 20 54 59 50 45 5f 43 4d 41 43 29 20 7b 0a 09 & TYPE_CMAC) {..
1b30: 73 69 7a 65 5f 74 20 6c 65 6e 3b 0a 09 72 65 73 size_t len;..res
1b40: 20 3d 20 43 4d 41 43 5f 46 69 6e 61 6c 28 73 74 = CMAC_Final(st
1b50: 61 74 65 50 74 72 2d 3e 63 63 74 78 2c 20 6d 64 atePtr->cctx, md
1b60: 5f 62 75 66 2c 20 26 6c 65 6e 29 3b 0a 09 6d 64 _buf, &len);..md
1b70: 5f 6c 65 6e 20 3d 20 28 75 6e 73 69 67 6e 65 64 _len = (unsigned
1b80: 20 69 6e 74 29 20 6c 65 6e 3b 0a 20 20 20 20 7d int) len;. }
1b90: 0a 0a 20 20 20 20 69 66 20 28 21 72 65 73 29 20 .. if (!res)
1ba0: 7b 0a 09 69 66 20 28 72 65 73 75 6c 74 4f 62 6a {..if (resultObj
1bb0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 == NULL) {..
1bc0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1bd0: 74 28 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 6c t(interp, "Final
1be0: 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 ize failed: ", R
1bf0: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a EASON(), NULL);.
1c00: 09 7d 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 .}..return TCL_E
1c10: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
1c20: 20 2f 2a 20 52 65 74 75 72 6e 20 6d 65 73 73 61 /* Return messa
1c30: 67 65 20 64 69 67 65 73 74 20 61 73 20 65 69 74 ge digest as eit
1c40: 68 65 72 20 61 20 62 69 6e 61 72 79 20 6f 72 20 her a binary or
1c50: 68 65 78 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 hex string */.
1c60: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1c70: 66 6f 72 6d 61 74 20 26 20 42 49 4e 5f 46 4f 52 format & BIN_FOR
1c80: 4d 41 54 29 20 7b 0a 09 69 66 20 28 72 65 73 75 MAT) {..if (resu
1c90: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
1ca0: 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a .. Tcl_SetObj
1cb0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
1cc0: 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f cl_NewByteArrayO
1cd0: 62 6a 28 6d 64 5f 62 75 66 2c 20 6d 64 5f 6c 65 bj(md_buf, md_le
1ce0: 6e 29 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 n));..} else {..
1cf0: 20 20 20 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d *resultObj =
1d00: 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 Tcl_NewByteArra
1d10: 79 4f 62 6a 28 6d 64 5f 62 75 66 2c 20 6d 64 5f yObj(md_buf, md_
1d20: 6c 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f 49 len);.. Tcl_I
1d30: 6e 63 72 52 65 66 43 6f 75 6e 74 28 2a 72 65 73 ncrRefCount(*res
1d40: 75 6c 74 4f 62 6a 29 3b 0a 09 7d 0a 0a 20 20 20 ultObj);..}..
1d50: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 4f } else {..Tcl_O
1d60: 62 6a 20 2a 6e 65 77 4f 62 6a 20 3d 20 54 63 6c bj *newObj = Tcl
1d70: 5f 4e 65 77 4f 62 6a 28 29 3b 0a 09 75 6e 73 69 _NewObj();..unsi
1d80: 67 6e 65 64 20 63 68 61 72 20 2a 70 74 72 20 3d gned char *ptr =
1d90: 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 Tcl_SetByteArra
1da0: 79 4c 65 6e 67 74 68 28 6e 65 77 4f 62 6a 2c 20 yLength(newObj,
1db0: 6d 64 5f 6c 65 6e 2a 32 29 3b 0a 0a 09 66 6f 72 md_len*2);...for
1dc0: 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 69 (unsigned int i
1dd0: 20 3d 20 30 3b 20 69 20 3c 20 6d 64 5f 6c 65 6e = 0; i < md_len
1de0: 3b 20 69 2b 2b 29 20 7b 0a 09 20 20 20 20 2a 70 ; i++) {.. *p
1df0: 74 72 2b 2b 20 3d 20 68 65 78 5b 28 6d 64 5f 62 tr++ = hex[(md_b
1e00: 75 66 5b 69 5d 20 3e 3e 20 34 29 20 26 20 30 78 uf[i] >> 4) & 0x
1e10: 30 46 5d 3b 0a 09 20 20 20 20 2a 70 74 72 2b 2b 0F];.. *ptr++
1e20: 20 3d 20 68 65 78 5b 6d 64 5f 62 75 66 5b 69 5d = hex[md_buf[i]
1e30: 20 26 20 30 78 30 46 5d 3b 0a 09 7d 0a 0a 09 69 & 0x0F];..}...i
1e40: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
1e50: 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c NULL) {.. Tcl
1e60: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
1e70: 74 65 72 70 2c 20 6e 65 77 4f 62 6a 29 3b 0a 09 terp, newObj);..
1e80: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2a 72 } else {.. *r
1e90: 65 73 75 6c 74 4f 62 6a 20 3d 20 6e 65 77 4f 62 esultObj = newOb
1ea0: 6a 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 j;.. Tcl_Incr
1eb0: 52 65 66 43 6f 75 6e 74 28 2a 72 65 73 75 6c 74 RefCount(*result
1ec0: 4f 62 6a 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 Obj);..}. }.
1ed0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
1ee0: 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.}../**********
1ef0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
1f30: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f70: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
1f80: 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d tBlockModeProc -
1f90: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e -. *. *.This fun
1fa0: 63 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 ction is invoked
1fb0: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 by the generic
1fc0: 49 4f 20 6c 65 76 65 6c 0a 20 2a 09 74 6f 20 73 IO level. *.to s
1fd0: 65 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 et blocking and
1fe0: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
1ff0: 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 s.. *. * Returns
2000: 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 :. *.0 if succes
2010: 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 sful or POSIX er
2020: 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c ror code if fail
2030: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
2040: 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 ffects:. *.Sets
2050: 74 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 the device into
2060: 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 blocking or nonb
2070: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a locking mode.. *
2080: 09 43 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53 65 .Can call Tcl_Se
2090: 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 tChannelError..
20a0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
20b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
20f0: 69 63 20 69 6e 74 20 44 69 67 65 73 74 42 6c 6f ic int DigestBlo
2100: 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e ckModeProc(Clien
2110: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
2120: 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 20 , int mode) {.
2130: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
2140: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
2150: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
2160: 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d Data;.. if (m
2170: 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f ode == TCL_MODE_
2180: 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 NONBLOCKING) {..
2190: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
21a0: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 |= TLS_TCL_ASYNC
21b0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
21c0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
21d0: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 &= ~(TLS_TCL_ASY
21e0: 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 NC);. }. r
21f0: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 eturn 0;.}../*.
2200: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2240: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
2250: 74 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a tCloseProc --. *
2260: 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f . *.This functio
2270: 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 n is invoked by
2280: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
2290: 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a evel to perform.
22a0: 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 70 65 20 *.channel-type
22b0: 73 70 65 63 69 66 69 63 20 63 6c 65 61 6e 75 70 specific cleanup
22c0: 20 77 68 65 6e 20 74 68 65 20 63 68 61 6e 6e 65 when the channe
22d0: 6c 20 69 73 20 63 6c 6f 73 65 64 2e 20 41 6c 6c l is closed. All
22e0: 0a 20 2a 09 71 75 65 75 65 64 20 6f 75 74 70 75 . *.queued outpu
22f0: 74 20 69 73 20 66 6c 75 73 68 65 64 20 70 72 69 t is flushed pri
2300: 6f 72 20 74 6f 20 63 61 6c 6c 69 6e 67 20 74 68 or to calling th
2310: 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a is function.. *.
2320: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 * Returns:. *.0
2330: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
2340: 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f r POSIX error co
2350: 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a de if failed.. *
2360: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
2370: 3a 0a 20 2a 09 44 65 6c 65 74 65 73 20 73 74 6f :. *.Deletes sto
2380: 72 65 64 20 73 74 61 74 65 20 64 61 74 61 2e 0a red state data..
2390: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
23a0: 2d 2d 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 0a 20 2a 2f 0a 69 6e 74 --------. */.int
23e0: 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 DigestCloseProc
23f0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
2400: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
2410: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 rp *interp) {.
2420: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
2430: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
2440: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
2450: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 Data;.. /* Ca
2460: 6e 63 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 ncel active time
2470: 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 r, if any */.
2480: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
2490: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
24a0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
24b0: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
24c0: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
24d0: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
24e0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
24f0: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
2500: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
2510: 2f 2a 20 4f 75 74 70 75 74 20 6d 65 73 73 61 67 /* Output messag
2520: 65 20 64 69 67 65 73 74 20 69 66 20 6e 6f 74 20 e digest if not
2530: 61 6c 72 65 61 64 79 20 64 6f 6e 65 20 2a 2f 0a already done */.
2540: 20 20 20 20 69 66 20 28 21 28 73 74 61 74 65 50 if (!(stateP
2550: 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 41 4e tr->flags & CHAN
2560: 5f 45 4f 46 29 29 20 7b 0a 09 54 63 6c 5f 43 68 _EOF)) {..Tcl_Ch
2570: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 54 annel parent = T
2580: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
2590: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
25a0: 65 6c 66 29 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a elf);..Tcl_Obj *
25b0: 72 65 73 75 6c 74 4f 62 6a 3b 0a 09 69 6e 74 20 resultObj;..int
25c0: 77 72 69 74 74 65 6e 3b 0a 0a 09 69 66 20 28 44 written;...if (D
25d0: 69 67 65 73 74 5f 46 69 6e 61 6c 69 7a 65 28 73 igest_Finalize(s
25e0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
25f0: 20 73 74 61 74 65 50 74 72 2c 20 26 72 65 73 75 statePtr, &resu
2600: 6c 74 4f 62 6a 29 20 3d 3d 20 54 43 4c 5f 4f 4b ltObj) == TCL_OK
2610: 29 20 7b 0a 09 20 20 20 20 75 6e 73 69 67 6e 65 ) {.. unsigne
2620: 64 20 63 68 61 72 20 2a 64 61 74 61 20 3d 20 54 d char *data = T
2630: 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 cl_GetByteArrayF
2640: 72 6f 6d 4f 62 6a 28 72 65 73 75 6c 74 4f 62 6a romObj(resultObj
2650: 2c 20 26 77 72 69 74 74 65 6e 29 3b 0a 09 20 20 , &written);..
2660: 20 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 70 Tcl_WriteRaw(p
2670: 61 72 65 6e 74 2c 20 64 61 74 61 2c 20 77 72 69 arent, data, wri
2680: 74 74 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f tten);.. Tcl_
2690: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
26a0: 75 6c 74 4f 62 6a 29 3b 0a 09 7d 0a 09 73 74 61 ultObj);..}..sta
26b0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
26c0: 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a CHAN_EOF;. }.
26d0: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 . /* Clean-up
26e0: 20 2a 2f 0a 20 20 20 20 54 6c 73 5f 44 69 67 65 */. Tls_Dige
26f0: 73 74 46 72 65 65 28 73 74 61 74 65 50 74 72 29 stFree(statePtr)
2700: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a ;. return 0;.
2710: 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 65 20 61 73 }../*. * Same as
2720: 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 DigestCloseProc
2730: 20 62 75 74 20 77 69 74 68 20 69 6e 64 69 76 69 but with indivi
2740: 64 75 61 6c 20 72 65 61 64 20 61 6e 64 20 77 72 dual read and wr
2750: 69 74 65 20 63 6c 6f 73 65 20 63 6f 6e 74 72 6f ite close contro
2760: 6c 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 l. */.static int
2770: 20 44 69 67 65 73 74 43 6c 6f 73 65 32 50 72 6f DigestClose2Pro
2780: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 c(ClientData ins
2790: 74 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 tanceData, Tcl_I
27a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
27b0: 6e 74 20 66 6c 61 67 73 29 20 7b 0a 0a 20 20 20 nt flags) {..
27c0: 20 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 if ((flags & (T
27d0: 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 20 7c 20 CL_CLOSE_READ |
27e0: 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 TCL_CLOSE_WRITE)
27f0: 29 20 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 ) == 0) {..retur
2800: 6e 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f n DigestClosePro
2810: 63 28 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 c(instanceData,
2820: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 interp);. }.
2830: 20 20 20 72 65 74 75 72 6e 20 45 49 4e 56 41 4c return EINVAL
2840: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
2850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2890: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e 70 . *. * DigestInp
28a0: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 utProc --. *. *.
28b0: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 Called by the ge
28c0: 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 neric IO system
28d0: 74 6f 20 72 65 61 64 20 64 61 74 61 20 66 72 6f to read data fro
28e0: 6d 20 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 0a m transform and.
28f0: 20 2a 09 70 6c 61 63 65 20 69 6e 20 62 75 66 2e *.place in buf.
2900: 20 54 72 61 6e 73 66 6f 72 6d 20 67 65 74 73 20 Transform gets
2910: 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 75 6e data from the un
2920: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
2930: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
2940: 0a 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 . *.Total bytes
2950: 72 65 61 64 20 6f 72 20 2d 31 20 66 6f 72 20 61 read or -1 for a
2960: 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 n error along wi
2970: 74 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 th a POSIX error
2980: 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f . *.code in erro
2990: 72 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 rCodePtr. Use EA
29a0: 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 GAIN for nonbloc
29b0: 6b 69 6e 67 20 61 6e 64 20 6e 6f 20 64 61 74 61 king and no data
29c0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
29d0: 65 63 74 73 3a 0a 20 2a 09 52 65 61 64 20 64 61 ects:. *.Read da
29e0: 74 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 ta from transfor
29f0: 6d 20 61 6e 64 20 77 72 69 74 65 20 74 6f 20 62 m and write to b
2a00: 75 66 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d uf. *. *--------
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 --------------.
2a50: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 6e 70 */.int DigestInp
2a60: 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 utProc(ClientDat
2a70: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 68 a clientData, ch
2a80: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 52 ar *buf, int toR
2a90: 65 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 ead, int *errorC
2aa0: 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 20 44 69 odePtr) {. Di
2ab0: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
2ac0: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
2ad0: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
2ae0: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
2af0: 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 69 6e l parent;. in
2b00: 74 20 72 65 61 64 3b 0a 20 20 20 20 2a 65 72 72 t read;. *err
2b10: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a orCodePtr = 0;..
2b20: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
2b30: 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 65 nothing to proce
2b40: 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f ss */. if (to
2b50: 52 65 61 64 20 3c 3d 20 30 20 7c 7c 20 73 74 61 Read <= 0 || sta
2b60: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
2b70: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
2b80: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a L) {..return 0;.
2b90: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
2ba0: 74 20 62 79 74 65 73 20 66 72 6f 6d 20 75 6e 64 t bytes from und
2bb0: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 20 erlying channel
2bc0: 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 */. parent =
2bd0: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
2be0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
2bf0: 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 20 self);. read
2c00: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 70 61 = Tcl_ReadRaw(pa
2c10: 72 65 6e 74 2c 20 62 75 66 2c 20 74 6f 52 65 61 rent, buf, toRea
2c20: 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 d);.. /* Upda
2c30: 74 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e te hash function
2c40: 20 2a 2f 0a 20 20 20 20 69 66 20 28 72 65 61 64 */. if (read
2c50: 20 3e 20 30 29 20 7b 0a 09 2f 2a 20 48 61 76 65 > 0) {../* Have
2c60: 20 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 21 54 data */..if (!T
2c70: 6c 73 5f 44 69 67 65 73 74 55 70 64 61 74 65 28 ls_DigestUpdate(
2c80: 73 74 61 74 65 50 74 72 2c 20 62 75 66 2c 20 28 statePtr, buf, (
2c90: 73 69 7a 65 5f 74 29 20 72 65 61 64 2c 20 30 29 size_t) read, 0)
2ca0: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 ) {.. Tcl_Set
2cb0: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 ChannelError(sta
2cc0: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c tePtr->self, Tcl
2cd0: 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 64 61 _ObjPrintf("Upda
2ce0: 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 te failed: %s",
2cf0: 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 20 REASON()));..
2d00: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
2d10: 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 EINVAL;.. re
2d20: 74 75 72 6e 20 30 3b 0a 09 7d 0a 09 2f 2a 20 54 turn 0;..}../* T
2d30: 68 69 73 20 69 73 20 63 6f 72 72 65 63 74 20 2a his is correct *
2d40: 2f 0a 09 72 65 61 64 20 3d 20 2d 31 3b 0a 09 2a /..read = -1;..*
2d50: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
2d60: 41 47 41 49 4e 3b 0a 0a 20 20 20 20 7d 20 65 6c AGAIN;.. } el
2d70: 73 65 20 69 66 20 28 72 65 61 64 20 3c 20 30 29 se if (read < 0)
2d80: 20 7b 0a 09 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a {../* Error */.
2d90: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
2da0: 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b Tcl_GetErrno();
2db0: 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
2dc0: 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 (!(statePtr->fla
2dd0: 67 73 20 26 20 43 48 41 4e 5f 45 4f 46 29 29 20 gs & CHAN_EOF))
2de0: 7b 0a 09 2f 2a 20 45 4f 46 20 2a 2f 0a 09 54 63 {../* EOF */..Tc
2df0: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
2e00: 3b 0a 09 69 66 20 28 54 6c 73 5f 44 69 67 65 73 ;..if (Tls_Diges
2e10: 74 46 69 6e 69 61 6c 69 7a 65 28 73 74 61 74 65 tFinialize(state
2e20: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 Ptr->interp, sta
2e30: 74 65 50 74 72 2c 20 26 72 65 73 75 6c 74 4f 62 tePtr, &resultOb
2e40: 6a 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a j) == TCL_OK) {.
2e50: 09 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 . unsigned ch
2e60: 61 72 20 2a 64 61 74 61 20 3d 20 54 63 6c 5f 47 ar *data = Tcl_G
2e70: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
2e80: 62 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 26 72 bj(resultObj, &r
2e90: 65 61 64 29 3b 0a 09 20 20 20 20 6d 65 6d 63 70 ead);.. memcp
2ea0: 79 28 62 75 66 2c 20 64 61 74 61 2c 20 72 65 61 y(buf, data, rea
2eb0: 64 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 d);.. Tcl_Dec
2ec0: 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 rRefCount(result
2ed0: 4f 62 6a 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b Obj);...} else {
2ee0: 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 .. Tcl_SetCha
2ef0: 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 nnelError(stateP
2f00: 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 tr->self, Tcl_Ob
2f10: 6a 50 72 69 6e 74 66 28 22 46 69 6e 61 6c 69 7a jPrintf("Finaliz
2f20: 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 52 e failed: %s", R
2f30: 45 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 20 20 EASON()));..
2f40: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2f50: 45 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 61 EINVAL;.. rea
2f60: 64 20 3d 20 30 3b 0a 09 7d 0a 09 73 74 61 74 65 d = 0;..}..state
2f70: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 48 Ptr->flags |= CH
2f80: 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a 20 20 AN_EOF;. }.
2f90: 20 20 72 65 74 75 72 6e 20 72 65 61 64 3b 0a 7d return read;.}
2fa0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2ff0: 0a 20 2a 20 44 69 67 65 73 74 4f 75 74 70 75 74 . * DigestOutput
3000: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
3010: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
3020: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
3030: 20 77 72 69 74 65 20 64 61 74 61 20 69 6e 20 62 write data in b
3040: 75 66 20 74 6f 20 74 72 61 6e 73 66 6f 72 6d 2e uf to transform.
3050: 0a 20 2a 09 54 68 65 20 74 72 61 6e 73 66 6f 72 . *.The transfor
3060: 6d 20 77 72 69 74 65 73 20 74 68 65 20 72 65 73 m writes the res
3070: 75 6c 74 20 74 6f 20 74 68 65 20 75 6e 64 65 72 ult to the under
3080: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 lying channel..
3090: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
30a0: 09 54 6f 74 61 6c 20 62 79 74 65 73 20 77 72 69 .Total bytes wri
30b0: 74 74 65 6e 20 6f 72 20 2d 31 20 66 6f 72 20 61 tten or -1 for a
30c0: 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 n error along wi
30d0: 74 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 th a POSIX error
30e0: 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f . *.code in erro
30f0: 72 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 rCodePtr. Use EA
3100: 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 GAIN for nonbloc
3110: 6b 69 6e 67 20 61 6e 64 20 63 61 6e 27 74 20 77 king and can't w
3120: 72 69 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 2a rite data.. *. *
3130: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3140: 2a 09 47 65 74 20 64 61 74 61 20 66 72 6f 6d 20 *.Get data from
3150: 62 75 66 20 61 6e 64 20 75 70 64 61 74 65 20 64 buf and update d
3160: 69 67 65 73 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d igest. *. *-----
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31b0: 2d 0a 20 2a 2f 0a 20 69 6e 74 20 44 69 67 65 73 -. */. int Diges
31c0: 74 4f 75 74 70 75 74 50 72 6f 63 28 43 6c 69 65 tOutputProc(Clie
31d0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
31e0: 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 a, const char *b
31f0: 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 74 65 2c uf, int toWrite,
3200: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
3210: 74 72 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 tr) {. Digest
3220: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
3230: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
3240: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
3250: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
3260: 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f = 0;.. /* Abo
3270: 72 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f rt if nothing to
3280: 20 70 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 process */.
3290: 69 66 20 28 74 6f 57 72 69 74 65 20 3c 3d 20 30 if (toWrite <= 0
32a0: 20 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 || statePtr->se
32b0: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
32c0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
32d0: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 urn 0;. }..
32e0: 20 20 2f 2a 20 55 70 64 61 74 65 20 68 61 73 68 /* Update hash
32f0: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
3300: 20 69 66 20 28 74 6f 57 72 69 74 65 20 3e 20 30 if (toWrite > 0
3310: 20 26 26 20 21 54 6c 73 5f 44 69 67 65 73 74 55 && !Tls_DigestU
3320: 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2c 20 pdate(statePtr,
3330: 62 75 66 2c 20 28 73 69 7a 65 5f 74 29 20 74 6f buf, (size_t) to
3340: 57 72 69 74 65 2c 20 30 29 29 20 7b 0a 09 54 63 Write, 0)) {..Tc
3350: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f l_SetChannelErro
3360: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 r(statePtr->self
3370: 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 , Tcl_ObjPrintf(
3380: 22 55 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 "Update failed:
3390: 25 73 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b %s", REASON()));
33a0: 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 ..*errorCodePtr
33b0: 3d 20 45 49 4e 56 41 4c 3b 0a 09 72 65 74 75 72 = EINVAL;..retur
33c0: 6e 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 n 0;. }. r
33d0: 65 74 75 72 6e 20 74 6f 57 72 69 74 65 3b 0a 7d eturn toWrite;.}
33e0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
33f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3430: 0a 20 2a 20 44 69 67 65 73 74 53 65 74 4f 70 74 . * DigestSetOpt
3440: 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a ionProc --. *. *
3450: 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 .Called by the g
3460: 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d eneric IO system
3470: 20 74 6f 20 73 65 74 20 63 68 61 6e 6e 65 6c 20 to set channel
3480: 6f 70 74 69 6f 6e 20 6e 61 6d 65 20 74 6f 20 76 option name to v
3490: 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 alue.. *. * Retu
34a0: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 rns:. *.TCL_OK i
34b0: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
34c0: 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 TCL_ERROR if fai
34d0: 6c 65 64 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 led along with a
34e0: 6e 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 n error. *.messa
34f0: 67 65 20 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 ge in interp and
3500: 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 Tcl_SetErrno..
3510: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3520: 73 3a 0a 20 2a 09 55 70 64 61 74 65 73 20 63 68 s:. *.Updates ch
3530: 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 annel option to
3540: 6e 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a new value.. *. *
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
35a0: 63 20 69 6e 74 20 44 69 67 65 73 74 53 65 74 4f c int DigestSetO
35b0: 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 ptionProc(Client
35c0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
35d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
35e0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 erp, const char
35f0: 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f *optionName,..co
3600: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
3610: 56 61 6c 75 65 29 20 7b 0a 20 20 20 20 44 69 67 Value) {. Dig
3620: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
3630: 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 tr = (DigestStat
3640: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
3650: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
3660: 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c parent;. Tcl
3670: 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 6f 6e _DriverSetOption
3680: 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 Proc *setOptionP
3690: 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f roc;.. /* Abo
36a0: 72 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c rt if no channel
36b0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
36c0: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
36d0: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
36e0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
36f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
3700: 20 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 /* Delegate op
3710: 74 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d tions downstream
3720: 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d */. parent =
3730: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
3740: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
3750: 3e 73 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f >self);. setO
3760: 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f ptionProc = Tcl_
3770: 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e ChannelSetOption
3780: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
3790: 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 nelType(parent))
37a0: 3b 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 ;. if (setOpt
37b0: 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 ionProc != NULL)
37c0: 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 {..return (*set
37d0: 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f OptionProc)(Tcl_
37e0: 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e GetChannelInstan
37f0: 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 ceData(parent),
3800: 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 interp, optionNa
3810: 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 me, optionValue)
3820: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
3830: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e Tcl_SetErrno(EIN
3840: 56 41 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 VAL);..return Tc
3850: 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 l_BadChannelOpti
3860: 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f on(interp, optio
3870: 6e 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 nName, NULL);.
3880: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}../*. *----
3890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38d0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 47 --. *. * DigestG
38e0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a etOptionProc --.
38f0: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
3900: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 the generic IO s
3910: 79 73 74 65 6d 20 74 6f 20 67 65 74 20 63 68 61 ystem to get cha
3920: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 nnel option name
3930: 27 73 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 's value.. *. *
3940: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
3950: 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c OK if successful
3960: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 or TCL_ERROR if
3970: 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 failed along wi
3980: 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d th an error. *.m
3990: 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 essage in interp
39a0: 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e and Tcl_SetErrn
39b0: 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 o.. *. * Side ef
39c0: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 fects:. *.Sets r
39d0: 65 73 75 6c 74 20 74 6f 20 6f 70 74 69 6f 6e 27 esult to option'
39e0: 73 20 76 61 6c 75 65 0a 20 2a 0a 20 2a 2d 2d 2d s value. *. *---
39f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a30: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
3a40: 6e 74 20 44 69 67 65 73 74 47 65 74 4f 70 74 69 nt DigestGetOpti
3a50: 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 onProc(ClientDat
3a60: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
3a70: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3a80: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 , const char *op
3a90: 74 69 6f 6e 4e 61 6d 65 2c 0a 09 54 63 6c 5f 44 tionName,..Tcl_D
3aa0: 53 74 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 String *optionVa
3ab0: 6c 75 65 29 20 7b 0a 20 20 20 20 44 69 67 65 73 lue) {. Diges
3ac0: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
3ad0: 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 = (DigestState
3ae0: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 *) clientData;.
3af0: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 Tcl_Channel p
3b00: 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 arent;. Tcl_D
3b10: 72 69 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 riverGetOptionPr
3b20: 6f 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f oc *getOptionPro
3b30: 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 c;.. /* Abort
3b40: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
3b50: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
3b60: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
3b70: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
3b80: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
3b90: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
3ba0: 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 69 /* Delegate opti
3bb0: 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 2a ons downstream *
3bc0: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
3bd0: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
3be0: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
3bf0: 65 6c 66 29 3b 0a 20 20 20 20 67 65 74 4f 70 74 elf);. getOpt
3c00: 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 ionProc = Tcl_Ch
3c10: 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 72 annelGetOptionPr
3c20: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
3c30: 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a lType(parent));.
3c40: 20 20 20 20 69 66 20 28 67 65 74 4f 70 74 69 6f if (getOptio
3c50: 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b nProc != NULL) {
3c60: 0a 09 72 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 ..return (*getOp
3c70: 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 tionProc)(Tcl_Ge
3c80: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
3c90: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e Data(parent), in
3ca0: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
3cb0: 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a , optionValue);.
3cc0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f } else if (o
3cd0: 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 ptionName == (ch
3ce0: 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a ar*) NULL) {../*
3cf0: 20 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 Request is quer
3d00: 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e y for all option
3d10: 73 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 20 2a s, this is ok. *
3d20: 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b /..return TCL_OK
3d30: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
3d40: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e Tcl_SetErrno(EIN
3d50: 56 41 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 VAL);..return Tc
3d60: 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 l_BadChannelOpti
3d70: 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f on(interp, optio
3d80: 6e 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 nName, NULL);.
3d90: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}../*. *----
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3de0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 54 --. *. * DigestT
3df0: 69 6d 65 72 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 imerHandler --.
3e00: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
3e10: 68 65 20 6e 6f 74 69 66 69 65 72 20 76 69 61 20 he notifier via
3e20: 74 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 6f timer to flush o
3e30: 75 74 20 70 65 6e 64 69 6e 67 20 69 6e 70 75 74 ut pending input
3e40: 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 data.. *. * Ret
3e50: 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 urns:. *.Nothing
3e60: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
3e70: 63 74 73 3a 0a 20 2a 09 4d 61 79 20 63 61 6c 6c cts:. *.May call
3e80: 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e Tcl_NotifyChann
3e90: 65 6c 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d el. *. *--------
3ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3ee0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 44 */.static void D
3ef0: 69 67 65 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 igestTimerHandle
3f00: 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 r(ClientData cli
3f10: 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 20 20 44 entData) {. D
3f20: 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 igestState *stat
3f30: 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 ePtr = (DigestSt
3f40: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
3f50: 61 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 a;.. /* Abort
3f60: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
3f70: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
3f80: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
3f90: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
3fa0: 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d {..return;. }
3fb0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 .. /* Clear t
3fc0: 69 6d 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 imer token */.
3fd0: 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 statePtr->time
3fe0: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
3ff0: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 ken) NULL;..
4000: 2f 2a 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 /* Fire event if
4010: 20 74 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e there is pendin
4020: 67 20 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 g data, skip oth
4030: 65 72 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 erwise */. if
4040: 20 28 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 ((statePtr->wat
4050: 63 68 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 chMask & TCL_REA
4060: 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 DABLE) && (Tcl_I
4070: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 nputBuffered(sta
4080: 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 tePtr->self) > 0
4090: 29 29 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 )) {..Tcl_Notify
40a0: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
40b0: 2d 3e 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 ->self, TCL_READ
40c0: 41 42 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a ABLE);. }.}..
40d0: 2f 2a 0a 20 2a 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 2d 0a 20 2a 0a 20 -----------. *.
4120: 2a 20 44 69 67 65 73 74 57 61 74 63 68 50 72 6f * DigestWatchPro
4130: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 c --. *. *.Initi
4140: 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 alize the notifi
4150: 65 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 er to watch for
4160: 65 76 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 events from this
4170: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
4180: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 Returns:. *.Noth
4190: 69 6e 67 20 28 63 61 6e 27 74 20 72 65 74 75 72 ing (can't retur
41a0: 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 n error messages
41b0: 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 ). *. * Side eff
41c0: 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 ects:. *.Configu
41d0: 72 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 re notifier so f
41e0: 75 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 uture events on
41f0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c the channel will
4200: 20 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e be seen by Tcl.
4210: 0a 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
4250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4260: 0a 76 6f 69 64 20 44 69 67 65 73 74 57 61 74 63 .void DigestWatc
4270: 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 hProc(ClientData
4280: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 clientData, int
4290: 20 6d 61 73 6b 29 20 7b 0a 20 20 20 20 44 69 67 mask) {. Dig
42a0: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
42b0: 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 tr = (DigestStat
42c0: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
42d0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
42e0: 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c parent;. Tcl
42f0: 5f 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 _DriverWatchProc
4300: 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 *watchProc;..
4310: 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f /* Abort if no
4320: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
4330: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
4340: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
4350: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
4360: 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 urn;. }..
4370: 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 64 20 63 /* Store OR-ed c
4380: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 ombination of TC
4390: 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f L_READABLE, TCL_
43a0: 57 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c WRITABLE and TCL
43b0: 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f 0a 20 20 _EXCEPTION */.
43c0: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 statePtr->watc
43d0: 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 hMask = mask;..
43e0: 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 74 65 20 /* Propagate
43f0: 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 70 61 72 mask info to par
4400: 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ent channel */.
4410: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f parent = Tcl_
4420: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 GetStackedChanne
4430: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
4440: 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 );. watchProc
4450: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 = Tcl_ChannelWa
4460: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 tchProc(Tcl_GetC
4470: 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e hannelType(paren
4480: 74 29 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 t));. watchPr
4490: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
44a0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 lInstanceData(pa
44b0: 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 rent), mask);..
44c0: 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 70 65 6e /* Remove pen
44d0: 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f 0a 20 20 ding timer */.
44e0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
44f0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
4500: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
4510: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d {..Tcl_DeleteTim
4520: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 erHandler(stateP
4530: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 tr->timer);..sta
4540: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
4550: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
4560: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 NULL;. }..
4570: 20 2f 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 /* If there is
4580: 64 61 74 61 20 70 65 6e 64 69 6e 67 2c 20 73 65 data pending, se
4590: 74 20 6e 65 77 20 74 69 6d 65 72 20 74 6f 20 63 t new timer to c
45a0: 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 all Tcl_NotifyCh
45b0: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
45c0: 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 ((mask & TCL_REA
45d0: 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 DABLE) && (Tcl_I
45e0: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 nputBuffered(sta
45f0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 tePtr->self) > 0
4600: 29 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e )) {..statePtr->
4610: 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 timer = Tcl_Crea
4620: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 52 teTimerHandler(R
4630: 45 41 44 5f 44 45 4c 41 59 2c 20 44 69 67 65 73 EAD_DELAY, Diges
4640: 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 2c 20 28 tTimerHandler, (
4650: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
4660: 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a ePtr);. }.}..
4670: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
46a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
46b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
46c0: 2a 20 44 69 67 65 73 74 47 65 74 48 61 6e 64 6c * DigestGetHandl
46d0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 eProc --. *. *.C
46e0: 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 alled from Tcl_G
46f0: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20 etChannelHandle
4700: 74 6f 20 72 65 74 72 69 65 76 65 20 4f 53 20 73 to retrieve OS s
4710: 70 65 63 69 66 69 63 20 66 69 6c 65 20 68 61 6e pecific file han
4720: 64 6c 65 0a 20 2a 09 66 72 6f 6d 20 69 6e 73 69 dle. *.from insi
4730: 64 65 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e de this channel.
4740: 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 74 72 Not used for tr
4750: 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 3f 0a 20 ansformations?.
4760: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
4770: 09 54 43 4c 5f 4f 4b 20 66 6f 72 20 73 75 63 63 .TCL_OK for succ
4780: 65 73 73 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 ess or TCL_ERROR
4790: 20 66 6f 72 20 65 72 72 6f 72 20 6f 72 20 69 66 for error or if
47a0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 20 not supported.
47b0: 49 66 0a 20 2a 09 64 69 72 65 63 74 69 6f 6e 20 If. *.direction
47c0: 69 73 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c is TCL_READABLE,
47d0: 20 73 65 74 73 20 68 61 6e 64 6c 65 50 74 72 20 sets handlePtr
47e0: 74 6f 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 to the handle us
47f0: 65 64 20 66 6f 72 0a 20 2a 09 69 6e 70 75 74 2c ed for. *.input,
4800: 20 6f 72 20 69 66 20 54 43 4c 5f 57 52 49 54 41 or if TCL_WRITA
4810: 42 4c 45 20 73 65 74 73 20 74 6f 20 74 68 65 20 BLE sets to the
4820: 68 61 6e 64 6c 65 20 75 73 65 64 20 66 6f 72 20 handle used for
4830: 6f 75 74 70 75 74 2e 0a 20 2a 0a 20 2a 20 53 69 output.. *. * Si
4840: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
4850: 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d one. *. *-------
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
48a0: 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 47 65 */.int DigestGe
48b0: 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 tHandleProc(Clie
48c0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
48d0: 61 2c 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e a, int direction
48e0: 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 , ClientData *ha
48f0: 6e 64 6c 65 50 74 72 29 20 7b 0a 20 20 20 20 44 ndlePtr) {. D
4900: 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 igestState *stat
4910: 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 ePtr = (DigestSt
4920: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
4930: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
4940: 65 6c 20 70 61 72 65 6e 74 3b 0a 0a 20 20 20 20 el parent;..
4950: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 /* Abort if no c
4960: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 hannel */. if
4970: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
4980: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
4990: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
49a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
49b0: 20 7d 0a 0a 20 20 20 20 70 61 72 65 6e 74 20 3d }.. parent =
49c0: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
49d0: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
49e0: 3e 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 74 75 >self);. retu
49f0: 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 rn Tcl_GetChanne
4a00: 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 2c 20 lHandle(parent,
4a10: 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c direction, handl
4a20: 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ePtr);.}../*. *-
4a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a70: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 -----. *. * Dige
4a80: 73 74 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a stNotifyProc --.
4a90: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
4aa0: 54 63 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 Tcl to inform us
4ab0: 20 6f 66 20 61 63 74 69 76 69 74 79 20 6f 6e 20 of activity on
4ac0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
4ad0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
4ae0: 74 75 72 6e 73 3a 0a 20 2a 09 55 6e 63 68 61 6e turns:. *.Unchan
4af0: 67 65 64 20 69 6e 74 65 72 65 73 74 4d 61 73 6b ged interestMask
4b00: 20 77 68 69 63 68 20 69 73 20 61 6e 20 4f 52 2d which is an OR-
4b10: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
4b20: 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f f TCL_READABLE o
4b30: 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 0a 20 r TCL_WRITABLE.
4b40: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
4b50: 73 3a 0a 20 2a 09 43 61 6e 63 65 6c 73 20 61 6e s:. *.Cancels an
4b60: 79 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 2e y pending timer.
4b70: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
4b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4bc0: 0a 69 6e 74 20 44 69 67 65 73 74 4e 6f 74 69 66 .int DigestNotif
4bd0: 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 yProc(ClientData
4be0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 clientData, int
4bf0: 20 69 6e 74 65 72 65 73 74 4d 61 73 6b 29 20 7b interestMask) {
4c00: 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 . DigestState
4c10: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 *statePtr = (Di
4c20: 67 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 gestState *) cli
4c30: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a entData;.. /*
4c40: 20 53 6b 69 70 20 74 69 6d 65 72 20 65 76 65 6e Skip timer even
4c50: 74 20 61 73 20 72 65 64 75 6e 64 61 6e 74 20 2a t as redundant *
4c60: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
4c70: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 tr->timer != (Tc
4c80: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
4c90: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 LL) {..Tcl_Delet
4ca0: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 eTimerHandler(st
4cb0: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a atePtr->timer);.
4cc0: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
4cd0: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b = (Tcl_TimerTok
4ce0: 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a en) NULL;. }.
4cf0: 20 20 20 20 72 65 74 75 72 6e 20 69 6e 74 65 72 return inter
4d00: 65 73 74 4d 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 estMask;.}../*.
4d10: 2a 0a 20 2a 20 43 68 61 6e 6e 65 6c 20 74 79 70 *. * Channel typ
4d20: 65 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 e structure defi
4d30: 6e 69 74 69 6f 6e 20 66 6f 72 20 64 69 67 65 73 nition for diges
4d40: 74 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e t transformation
4d50: 73 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 s.. *. */.static
4d60: 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e const Tcl_Chann
4d70: 65 6c 54 79 70 65 20 64 69 67 65 73 74 43 68 61 elType digestCha
4d80: 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 nnelType = {.
4d90: 20 22 64 69 67 65 73 74 22 2c 09 09 09 2f 2a 20 "digest",.../*
4da0: 54 79 70 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 Type name */.
4db0: 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TCL_CHANNEL_VER
4dc0: 53 49 4f 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 SION_5,./* v5 ch
4dd0: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 44 69 67 annel */. Dig
4de0: 65 73 74 43 6c 6f 73 65 50 72 6f 63 2c 09 09 2f estCloseProc,../
4df0: 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 2a 2f 0a * Close proc */.
4e00: 20 20 20 20 44 69 67 65 73 74 49 6e 70 75 74 50 DigestInputP
4e10: 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 roc,../* Input p
4e20: 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 roc */. Diges
4e30: 74 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a tOutputProc,../*
4e40: 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a Output proc */.
4e50: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 NULL,.../* S
4e60: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 eek proc */.
4e70: 44 69 67 65 73 74 53 65 74 4f 70 74 69 6f 6e 50 DigestSetOptionP
4e80: 72 6f 63 2c 09 2f 2a 20 53 65 74 20 6f 70 74 69 roc,./* Set opti
4e90: 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 on proc */. D
4ea0: 69 67 65 73 74 47 65 74 4f 70 74 69 6f 6e 50 72 igestGetOptionPr
4eb0: 6f 63 2c 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f oc,./* Get optio
4ec0: 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 n proc */. Di
4ed0: 67 65 73 74 57 61 74 63 68 50 72 6f 63 2c 09 09 gestWatchProc,..
4ee0: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 6e 6f /* Initialize no
4ef0: 74 69 66 69 65 72 20 2a 2f 0a 20 20 20 20 44 69 tifier */. Di
4f00: 67 65 73 74 47 65 74 48 61 6e 64 6c 65 50 72 6f gestGetHandlePro
4f10: 63 2c 09 2f 2a 20 47 65 74 20 4f 53 20 68 61 6e c,./* Get OS han
4f20: 64 6c 65 73 20 6f 75 74 20 6f 66 20 63 68 61 6e dles out of chan
4f30: 6e 65 6c 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 nel */. Diges
4f40: 74 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f 2a tClose2Proc,../*
4f50: 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f 0a 20 close2proc */.
4f60: 20 20 20 44 69 67 65 73 74 42 6c 6f 63 6b 4d 6f DigestBlockMo
4f70: 64 65 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 deProc,./* Set b
4f80: 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b locking/nonblock
4f90: 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e ing mode*/. N
4fa0: 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 ULL,.../* Flush
4fb0: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 proc */. Dige
4fc0: 73 74 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f stNotifyProc,../
4fd0: 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 * Handling of ev
4fe0: 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 ents bubbling up
4ff0: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
5000: 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f /* Wide seek pro
5010: 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 c */. NULL,..
5020: 09 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f ./* Thread actio
5030: 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 n */. NULL...
5040: 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d /* Truncate */.}
5050: 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ;../*. *--------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
50a0: 2a 0a 20 2a 20 54 6c 73 5f 44 69 67 65 73 74 43 *. * Tls_DigestC
50b0: 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 hannel --. *. *.
50c0: 43 72 65 61 74 65 20 61 20 73 74 61 63 6b 65 64 Create a stacked
50d0: 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 20 6d channel for a m
50e0: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 74 72 essage digest tr
50f0: 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20 2a ansformation.. *
5100: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
5110: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
5120: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
5130: 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 ffects:. *.Adds
5140: 74 72 61 6e 73 66 6f 72 6d 20 74 6f 20 63 68 61 transform to cha
5150: 6e 6e 65 6c 20 61 6e 64 20 73 65 74 73 20 72 65 nnel and sets re
5160: 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 sult to channel
5170: 69 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 id or error mess
5180: 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d age.. *. *------
5190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51d0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a . */.static int.
51e0: 54 6c 73 5f 44 69 67 65 73 74 43 68 61 6e 6e 65 Tls_DigestChanne
51f0: 6c 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e l(Tcl_Interp *in
5200: 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 terp, const char
5210: 20 2a 63 68 61 6e 6e 65 6c 2c 20 63 6f 6e 73 74 *channel, const
5220: 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 0a 09 63 6f EVP_MD *md,..co
5230: 6e 73 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a nst EVP_CIPHER *
5240: 63 69 70 68 65 72 2c 20 69 6e 74 20 66 6f 72 6d cipher, int form
5250: 61 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 at, Tcl_Obj *key
5260: 4f 62 6a 29 20 7b 0a 20 20 20 20 69 6e 74 20 6d Obj) {. int m
5270: 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f ode; /* OR-ed co
5280: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c mbination of TCL
5290: 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 54 43 _READABLE and TC
52a0: 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 20 L_WRITABLE */.
52b0: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 Tcl_Channel ch
52c0: 61 6e 3b 0a 20 20 20 20 44 69 67 65 73 74 53 74 an;. DigestSt
52d0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 0a ate *statePtr;..
52e0: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
52f0: 61 72 67 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 args */. if (
5300: 63 68 61 6e 6e 65 6c 20 3d 3d 20 28 63 6f 6e 73 channel == (cons
5310: 74 20 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20 t char *) NULL)
5320: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
5330: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
5340: 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 49 /* Get channel I
5350: 64 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 d */. chan =
5360: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
5370: 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 2c 20 nterp, channel,
5380: 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 &mode);. if (
5390: 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 chan == (Tcl_Cha
53a0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
53b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
53c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d . }.. /* M
53d0: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
53e0: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
53f0: 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 st channel */.
5400: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
5410: 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 TopChannel(chan)
5420: 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 ;.. /* Create
5430: 20 73 74 61 74 65 20 64 61 74 61 20 73 74 72 75 state data stru
5440: 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 69 66 20 cture */. if
5450: 28 28 73 74 61 74 65 50 74 72 20 3d 20 54 6c 73 ((statePtr = Tls
5460: 5f 44 69 67 65 73 74 4e 65 77 28 69 6e 74 65 72 _DigestNew(inter
5470: 70 2c 20 66 6f 72 6d 61 74 29 29 20 3d 3d 20 4e p, format)) == N
5480: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
5490: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
54a0: 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 "Memory allocat
54b0: 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 ion error", (cha
54c0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
54d0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
54e0: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 }. statePt
54f0: 72 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a r->self = chan;.
5500: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f statePtr->mo
5510: 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 de = mode;..
5520: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 68 61 /* Initialize ha
5530: 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 sh function */.
5540: 20 20 20 69 66 20 28 54 6c 73 5f 44 69 67 65 73 if (Tls_Diges
5550: 74 49 6e 69 74 28 69 6e 74 65 72 70 2c 20 73 74 tInit(interp, st
5560: 61 74 65 50 74 72 2c 20 6d 64 2c 20 63 69 70 68 atePtr, md, ciph
5570: 65 72 2c 20 6b 65 79 4f 62 6a 29 20 21 3d 20 54 er, keyObj) != T
5580: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
5590: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
55a0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 69 67 }.. /* Config
55b0: 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ure channel */.
55c0: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 Tcl_SetChanne
55d0: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
55e0: 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 chan, "-translat
55f0: 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b ion", "binary");
5600: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
5610: 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a ChannelBufferSiz
5620: 65 28 63 68 61 6e 29 20 3c 20 45 56 50 5f 4d 41 e(chan) < EVP_MA
5630: 58 5f 4d 44 5f 53 49 5a 45 20 2a 20 32 29 20 7b X_MD_SIZE * 2) {
5640: 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c ..Tcl_SetChannel
5650: 42 75 66 66 65 72 53 69 7a 65 28 63 68 61 6e 2c BufferSize(chan,
5660: 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 EVP_MAX_MD_SIZE
5670: 20 2a 20 32 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 * 2);. }..
5680: 20 20 2f 2a 20 53 74 61 63 6b 20 63 68 61 6e 6e /* Stack chann
5690: 65 6c 2c 20 61 62 6f 72 74 20 66 6f 72 20 65 72 el, abort for er
56a0: 72 6f 72 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 ror */. state
56b0: 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f Ptr->self = Tcl_
56c0: 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 StackChannel(int
56d0: 65 72 70 2c 20 26 64 69 67 65 73 74 43 68 61 6e erp, &digestChan
56e0: 6e 65 6c 54 79 70 65 2c 20 28 43 6c 69 65 6e 74 nelType, (Client
56f0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 Data) statePtr,
5700: 6d 6f 64 65 2c 20 63 68 61 6e 29 3b 0a 20 20 20 mode, chan);.
5710: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
5720: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
5730: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 6c nel) NULL) {..Tl
5740: 73 5f 44 69 67 65 73 74 46 72 65 65 28 73 74 61 s_DigestFree(sta
5750: 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 tePtr);..return
5760: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5770: 0a 0a 20 20 20 20 2f 2a 20 53 65 74 20 72 65 73 .. /* Set res
5780: 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 49 ult to channel I
5790: 64 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 d */. Tcl_Set
57a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
57b0: 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 43 char *) Tcl_GetC
57c0: 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 hannelName(chan)
57d0: 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b , TCL_VOLATILE);
57e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
57f0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
5800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5840: 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 73 74 61 63 6b --. *. * Unstack
5850: 20 43 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a 20 Channel --. *.
5860: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 *.This function
5870: 72 65 6d 6f 76 65 73 20 74 68 65 20 73 74 61 63 removes the stac
5880: 6b 65 64 20 63 68 61 6e 6e 65 6c 20 66 72 6f 6d ked channel from
5890: 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 0a the top of the.
58a0: 20 2a 09 63 68 61 6e 6e 65 6c 20 73 74 61 63 6b *.channel stack
58b0: 20 69 66 20 69 74 20 69 73 20 61 20 64 69 67 65 if it is a dige
58c0: 73 74 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 st channel.. *.
58d0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
58e0: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
58f0: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
5900: 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 ects:. *.Removes
5910: 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f 6d 20 transform from
5920: 63 68 61 6e 6e 65 6c 20 6f 72 20 73 65 74 73 20 channel or sets
5930: 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 result to error
5940: 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d message.. *. *--
5950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5990: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
59a0: 69 6e 74 0a 55 6e 73 74 61 63 6b 4f 62 6a 43 6d int.UnstackObjCm
59b0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
59c0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
59d0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
59e0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
59f0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
5a00: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
5a10: 63 68 61 6e 3b 0a 20 20 20 20 69 6e 74 20 6d 6f chan;. int mo
5a20: 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d de; /* OR-ed com
5a30: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f bination of TCL_
5a40: 52 45 41 44 41 42 4c 45 20 61 6e 64 20 54 43 4c READABLE and TCL
5a50: 5f 57 52 49 54 41 42 4c 45 20 20 2a 2f 0a 0a 20 _WRITABLE */..
5a60: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
5a70: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
5a80: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b if (objc != 2) {
5a90: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
5aa0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
5ab0: 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a jv, "channel");.
5ac0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5ad0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5ae0: 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a Get channel */.
5af0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
5b00: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 etChannel(interp
5b10: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 , Tcl_GetStringF
5b20: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 romObj(objv[1],
5b30: 4e 55 4c 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 NULL), &mode);.
5b40: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
5b50: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
5b60: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
5b70: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5b80: 20 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 /* Make sure
5b90: 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 to operate on th
5ba0: 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 e topmost channe
5bb0: 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 l */. chan =
5bc0: 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 Tcl_GetTopChanne
5bd0: 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a l(chan);.. /*
5be0: 20 43 68 65 63 6b 20 69 66 20 64 69 67 65 73 74 Check if digest
5bf0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5c00: 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e if (Tcl_GetChann
5c10: 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 elType(chan) !=
5c20: 26 64 69 67 65 73 74 43 68 61 6e 6e 65 6c 54 79 &digestChannelTy
5c30: 70 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e pe) {..Tcl_Appen
5c40: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
5c50: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 "bad channel \""
5c60: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c , Tcl_GetChannel
5c70: 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 20 20 Name(chan),..
5c80: 20 22 5c 22 3a 20 6e 6f 74 20 61 20 64 69 67 65 "\": not a dige
5c90: 73 74 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c st channel", NUL
5ca0: 4c 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f L);..Tcl_SetErro
5cb0: 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 rCode(interp, "T
5cc0: 4c 53 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 LS", "UNSTACK",
5cd0: 22 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 "CHANNEL", "INVA
5ce0: 4c 49 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e LID", (char *) N
5cf0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
5d00: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5d10: 20 20 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 /* Pop trans
5d20: 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 form from channe
5d30: 6c 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 l */. return
5d40: 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e Tcl_UnstackChann
5d50: 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 el(interp, chan)
5d60: 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 ;. .clientDat
5d70: 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a a = clientData;.
5d80: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
5d90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5da0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5db0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5dc0: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 *******/..static
5dd0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 69 6e 73 const char *ins
5de0: 74 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 3d 20 7b tance_fns [] = {
5df0: 20 22 66 69 6e 61 6c 69 7a 65 22 2c 20 22 75 70 "finalize", "up
5e00: 64 61 74 65 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 0a date", NULL };..
5e10: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
5e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 --------. *. * I
5e60: 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 20 2d 2d nstanceObjCmd --
5e70: 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 66 . *. *.Handler f
5e80: 6f 72 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 6e or digest comman
5e90: 64 20 69 6e 73 74 61 6e 63 65 73 2e 20 55 73 65 d instances. Use
5ea0: 64 20 74 6f 20 61 64 64 20 64 61 74 61 20 74 6f d to add data to
5eb0: 20 68 61 73 68 0a 20 2a 09 66 75 6e 63 74 69 6f hash. *.functio
5ec0: 6e 20 6f 72 20 72 65 74 72 69 65 76 65 20 6d 65 n or retrieve me
5ed0: 73 73 61 67 65 20 64 69 67 65 73 74 2e 0a 20 2a ssage digest.. *
5ee0: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
5ef0: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
5f00: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
5f10: 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 ffects:. *.Adds
5f20: 64 61 74 61 20 74 6f 20 68 61 73 68 20 6f 72 20 data to hash or
5f30: 72 65 74 75 72 6e 73 20 6d 65 73 73 61 67 65 20 returns message
5f40: 64 69 67 65 73 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d digest. *. *----
5f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5f90: 20 2a 2f 0a 69 6e 74 20 49 6e 73 74 61 6e 63 65 */.int Instance
5fa0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
5fb0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
5fc0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
5fd0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
5fe0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
5ff0: 5d 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 ]) {. DigestS
6000: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
6010: 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 (DigestState *)
6020: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
6030: 20 69 6e 74 20 66 6e 2c 20 6c 65 6e 20 3d 20 30 int fn, len = 0
6040: 3b 0a 20 20 20 20 63 68 61 72 20 2a 62 75 66 20 ;. char *buf
6050: 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 = NULL;.. /*
6060: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
6070: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
6080: 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e jc < 2 || objc >
6090: 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 3) {..Tcl_Wrong
60a0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
60b0: 31 2c 20 6f 62 6a 76 2c 20 22 66 75 6e 63 74 69 1, objv, "functi
60c0: 6f 6e 20 3f 64 61 74 61 3f 22 29 3b 0a 09 72 65 on ?data?");..re
60d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
60e0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
60f0: 74 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 t function */.
6100: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 if (Tcl_GetInd
6110: 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 exFromObj(interp
6120: 2c 20 6f 62 6a 76 5b 31 5d 2c 20 69 6e 73 74 61 , objv[1], insta
6130: 6e 63 65 5f 66 6e 73 2c 20 22 66 75 6e 63 74 69 nce_fns, "functi
6140: 6f 6e 22 2c 20 30 2c 20 26 66 6e 29 20 21 3d 20 on", 0, &fn) !=
6150: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 TCL_OK) {..retur
6160: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6170: 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 66 75 }.. /* Do fu
6180: 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 nction */. if
6190: 20 28 66 6e 29 20 7b 0a 09 2f 2a 20 47 65 74 20 (fn) {../* Get
61a0: 64 61 74 61 20 6f 72 20 72 65 74 75 72 6e 20 65 data or return e
61b0: 72 72 6f 72 20 69 66 20 6e 6f 6e 65 20 2a 2f 0a rror if none */.
61c0: 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 33 29 20 .if (objc == 3)
61d0: 7b 0a 09 20 20 20 20 62 75 66 20 3d 20 54 63 6c {.. buf = Tcl
61e0: 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f _GetByteArrayFro
61f0: 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 6c mObj(objv[2], &l
6200: 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 en);..} else {..
6210: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
6220: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
6230: 6f 62 6a 76 2c 20 22 75 70 64 61 74 65 20 64 61 objv, "update da
6240: 74 61 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ta");.. retur
6250: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
6260: 0a 09 2f 2a 20 55 70 64 61 74 65 20 68 61 73 68 ../* Update hash
6270: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 function */..if
6280: 20 28 21 54 6c 73 5f 44 69 67 65 73 74 55 70 64 (!Tls_DigestUpd
6290: 61 74 65 28 73 74 61 74 65 50 74 72 2c 20 62 75 ate(statePtr, bu
62a0: 66 2c 20 28 73 69 7a 65 5f 74 29 20 6c 65 6e 2c f, (size_t) len,
62b0: 20 31 29 29 20 7b 0a 09 20 20 20 20 72 65 74 75 1)) {.. retu
62c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
62d0: 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
62e0: 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 68 61 73 68 /* Finalize hash
62f0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 63 61 function and ca
6300: 6c 63 75 6c 61 74 65 20 6d 65 73 73 61 67 65 20 lculate message
6310: 64 69 67 65 73 74 20 2a 2f 0a 09 69 66 20 28 54 digest */..if (T
6320: 6c 73 5f 44 69 67 65 73 74 46 69 6e 69 61 6c 69 ls_DigestFiniali
6330: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
6340: 50 74 72 2c 20 4e 55 4c 4c 29 20 21 3d 20 54 43 Ptr, NULL) != TC
6350: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 72 65 74 L_OK) {.. ret
6360: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
6370: 7d 0a 0a 09 54 63 6c 5f 44 65 6c 65 74 65 43 6f }...Tcl_DeleteCo
6380: 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e 28 69 mmandFromToken(i
6390: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
63a0: 3e 74 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 >token);. }.
63b0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
63c0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
63d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a -------------. *
6410: 0a 20 2a 20 49 6e 73 74 61 6e 63 65 44 65 6c 43 . * InstanceDelC
6420: 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a allback --. *. *
6430: 09 20 43 61 6c 6c 62 61 63 6b 20 74 6f 20 63 6c . Callback to cl
6440: 65 61 6e 2d 75 70 20 77 68 65 6e 20 64 69 67 65 ean-up when dige
6450: 73 74 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d st instance comm
6460: 61 6e 64 20 69 73 20 64 65 6c 65 74 65 64 2e 0a and is deleted..
6470: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
6480: 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 *.Nothing. *. *
6490: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
64a0: 09 44 65 73 74 72 6f 79 73 20 73 74 61 74 65 20 .Destroys state
64b0: 69 6e 66 6f 20 73 74 72 75 63 74 75 72 65 0a 20 info structure.
64c0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
64d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6500: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 -------. */.void
6510: 20 49 6e 73 74 61 6e 63 65 44 65 6c 43 61 6c 6c InstanceDelCall
6520: 62 61 63 6b 28 43 6c 69 65 6e 74 44 61 74 61 20 back(ClientData
6530: 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 clientData) {.
6540: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
6550: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
6560: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
6570: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c Data;.. /* Cl
6580: 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 54 6c ean-up */. Tl
6590: 73 5f 44 69 67 65 73 74 46 72 65 65 28 73 74 61 s_DigestFree(sta
65a0: 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a tePtr);.}../*. *
65b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65f0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 ---. *. * Tls_Di
6600: 67 65 73 74 49 6e 73 74 61 6e 63 65 20 2d 2d 0a gestInstance --.
6610: 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 20 63 6f *. *. Create co
6620: 6d 6d 61 6e 64 20 74 6f 20 61 6c 6c 6f 77 20 75 mmand to allow u
6630: 73 65 72 20 74 6f 20 61 64 64 20 64 61 74 61 20 ser to add data
6640: 74 6f 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e to hash function
6650: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
6660: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
6670: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
6680: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
6690: 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 20 6f reates command o
66a0: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
66b0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
66c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66f0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
6700: 20 54 6c 73 5f 44 69 67 65 73 74 49 6e 73 74 61 Tls_DigestInsta
6710: 6e 63 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nce(Tcl_Interp *
6720: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 interp, Tcl_Obj
6730: 2a 63 6d 64 4f 62 6a 2c 20 63 6f 6e 73 74 20 45 *cmdObj, const E
6740: 56 50 5f 4d 44 20 2a 6d 64 2c 0a 09 63 6f 6e 73 VP_MD *md,..cons
6750: 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63 69 t EVP_CIPHER *ci
6760: 70 68 65 72 2c 20 69 6e 74 20 66 6f 72 6d 61 74 pher, int format
6770: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 , Tcl_Obj *keyOb
6780: 6a 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 j) {. DigestS
6790: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a tate *statePtr;.
67a0: 20 20 20 20 63 68 61 72 20 2a 63 6d 64 4e 61 6d char *cmdNam
67b0: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
67c0: 67 46 72 6f 6d 4f 62 6a 28 63 6d 64 4f 62 6a 2c gFromObj(cmdObj,
67d0: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 2f 2a 20 NULL);.. /*
67e0: 43 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 Create state dat
67f0: 61 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 a structure */.
6800: 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 if ((statePtr
6810: 20 3d 20 54 6c 73 5f 44 69 67 65 73 74 4e 65 77 = Tls_DigestNew
6820: 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 (interp, format)
6830: 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ) == NULL) {..Tc
6840: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
6850: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
6860: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
6870: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
6880: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
6890: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
68a0: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 68 61 /* Initialize ha
68b0: 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 sh function */.
68c0: 20 20 20 69 66 20 28 54 6c 73 5f 44 69 67 65 73 if (Tls_Diges
68d0: 74 49 6e 69 74 28 69 6e 74 65 72 70 2c 20 73 74 tInit(interp, st
68e0: 61 74 65 50 74 72 2c 20 6d 64 2c 20 63 69 70 68 atePtr, md, ciph
68f0: 65 72 2c 20 6b 65 79 4f 62 6a 29 20 21 3d 20 54 er, keyObj) != T
6900: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
6910: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
6920: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
6930: 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e instance comman
6940: 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 d */. statePt
6950: 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c 5f 43 r->token = Tcl_C
6960: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
6970: 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 6d 65 2c interp, cmdName,
6980: 20 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 2c InstanceObjCmd,
6990: 0a 09 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 ..(ClientData) s
69a0: 74 61 74 65 50 74 72 2c 20 49 6e 73 74 61 6e 63 tatePtr, Instanc
69b0: 65 44 65 6c 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a eDelCallback);..
69c0: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f /* Return co
69d0: 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 mmand name */.
69e0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
69f0: 6c 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 4f 62 lt(interp, cmdOb
6a00: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 j);. return T
6a10: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 2a 2a 2a CL_OK;.}.../****
6a20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6a30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6a40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6a50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
6a60: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6ab0: 20 54 6c 73 5f 44 69 67 65 73 74 44 61 74 61 20 Tls_DigestData
6ac0: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
6ad0: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 66 message digest f
6ae0: 6f 72 20 64 61 74 61 20 75 73 69 6e 67 20 75 73 or data using us
6af0: 65 72 20 73 70 65 63 69 66 69 65 64 20 68 61 73 er specified has
6b00: 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 h function.. *.
6b10: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
6b20: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
6b30: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
6b40: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 ects:. *.Sets re
6b50: 73 75 6c 74 20 74 6f 20 6d 65 73 73 61 67 65 20 sult to message
6b60: 64 69 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 digest or error
6b70: 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d message. *. *---
6b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bc0: 0a 20 2a 2f 0a 69 6e 74 0a 54 6c 73 5f 44 69 67 . */.int.Tls_Dig
6bd0: 65 73 74 44 61 74 61 28 54 63 6c 5f 49 6e 74 65 estData(Tcl_Inte
6be0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f rp *interp, Tcl_
6bf0: 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 63 6f Obj *dataObj, co
6c00: 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 0a nst EVP_MD *md,.
6c10: 09 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 45 .const EVP_CIPHE
6c20: 52 20 2a 63 69 70 68 65 72 2c 20 69 6e 74 20 66 R *cipher, int f
6c30: 6f 72 6d 61 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a ormat, Tcl_Obj *
6c40: 6b 65 79 4f 62 6a 29 20 7b 0a 20 20 20 20 63 68 keyObj) {. ch
6c50: 61 72 20 2a 64 61 74 61 3b 0a 20 20 20 20 69 6e ar *data;. in
6c60: 74 20 64 61 74 61 5f 6c 65 6e 3b 0a 20 20 20 20 t data_len;.
6c70: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
6c80: 74 65 50 74 72 3b 0a 0a 20 20 20 20 2f 2a 20 47 tePtr;.. /* G
6c90: 65 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 64 et data */. d
6ca0: 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 ata = Tcl_GetByt
6cb0: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 64 61 eArrayFromObj(da
6cc0: 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c 65 6e taObj, &data_len
6cd0: 29 3b 0a 20 20 20 20 69 66 20 28 64 61 74 61 20 );. if (data
6ce0: 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 64 61 74 61 5f == NULL || data_
6cf0: 6c 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 54 63 6c len == 0) {..Tcl
6d00: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
6d10: 70 2c 20 22 4e 6f 20 64 61 74 61 22 2c 20 4e 55 p, "No data", NU
6d20: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
6d30: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6d40: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 73 74 61 /* Create sta
6d50: 74 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 te data structur
6d60: 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 74 e */. if ((st
6d70: 61 74 65 50 74 72 20 3d 20 54 6c 73 5f 44 69 67 atePtr = Tls_Dig
6d80: 65 73 74 4e 65 77 28 69 6e 74 65 72 70 2c 20 66 estNew(interp, f
6d90: 6f 72 6d 61 74 29 29 20 3d 3d 20 4e 55 4c 4c 29 ormat)) == NULL)
6da0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
6db0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 sult(interp, "Me
6dc0: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
6dd0: 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 error", (char *)
6de0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
6df0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6e00: 0a 0a 20 20 20 20 2f 2a 20 43 61 6c 63 20 44 69 .. /* Calc Di
6e10: 67 65 73 74 2c 20 61 62 6f 72 74 20 66 6f 72 20 gest, abort for
6e20: 65 72 72 6f 72 20 2a 2f 0a 20 20 20 20 69 66 20 error */. if
6e30: 28 54 6c 73 5f 44 69 67 65 73 74 49 6e 69 74 28 (Tls_DigestInit(
6e40: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
6e50: 2c 20 6d 64 2c 20 63 69 70 68 65 72 2c 20 6b 65 , md, cipher, ke
6e60: 79 4f 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 yObj) != TCL_OK
6e70: 7c 7c 0a 09 54 6c 73 5f 44 69 67 65 73 74 55 70 ||..Tls_DigestUp
6e80: 64 61 74 65 28 73 74 61 74 65 50 74 72 2c 20 64 date(statePtr, d
6e90: 61 74 61 2c 20 28 73 69 7a 65 5f 74 29 20 64 61 ata, (size_t) da
6ea0: 74 61 5f 6c 65 6e 2c 20 31 29 20 3d 3d 20 30 20 ta_len, 1) == 0
6eb0: 7c 7c 0a 09 54 6c 73 5f 44 69 67 65 73 74 46 69 ||..Tls_DigestFi
6ec0: 6e 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 nialize(interp,
6ed0: 73 74 61 74 65 50 74 72 2c 20 4e 55 4c 4c 29 20 statePtr, NULL)
6ee0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 6c != TCL_OK) {..Tl
6ef0: 73 5f 44 69 67 65 73 74 46 72 65 65 28 73 74 61 s_DigestFree(sta
6f00: 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 tePtr);..return
6f10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6f20: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 .. /* Clean-u
6f30: 70 20 2a 2f 0a 20 20 20 20 54 6c 73 5f 44 69 67 p */. Tls_Dig
6f40: 65 73 74 46 72 65 65 28 73 74 61 74 65 50 74 72 estFree(statePtr
6f50: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
6f60: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a L_OK;.}../******
6f70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6fa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
6fb0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
6fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ff0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
7000: 6c 73 5f 44 69 67 65 73 74 46 69 6c 65 20 2d 2d ls_DigestFile --
7010: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 6d 65 . *. *.Return me
7020: 73 73 61 67 65 20 64 69 67 65 73 74 20 66 6f 72 ssage digest for
7030: 20 66 69 6c 65 20 75 73 69 6e 67 20 75 73 65 72 file using user
7040: 20 73 70 65 63 69 66 69 65 64 20 68 61 73 68 20 specified hash
7050: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
7060: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
7070: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
7080: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
7090: 74 73 3a 0a 20 2a 09 52 65 73 75 6c 74 20 69 73 ts:. *.Result is
70a0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
70b0: 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 or error message
70c0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
70d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
7110: 74 20 54 6c 73 5f 44 69 67 65 73 74 46 69 6c 65 t Tls_DigestFile
7120: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
7130: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 66 69 erp, Tcl_Obj *fi
7140: 6c 65 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 45 56 lename, const EV
7150: 50 5f 4d 44 20 2a 6d 64 2c 0a 09 63 6f 6e 73 74 P_MD *md,..const
7160: 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63 69 70 EVP_CIPHER *cip
7170: 68 65 72 2c 20 69 6e 74 20 66 6f 72 6d 61 74 2c her, int format,
7180: 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a Tcl_Obj *keyObj
7190: 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 ) {. DigestSt
71a0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 ate *statePtr;.
71b0: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 Tcl_Channel c
71c0: 68 61 6e 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 han = NULL;.
71d0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 62 75 unsigned char bu
71e0: 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 5d 3b 0a f[BUFFER_SIZE];.
71f0: 20 20 20 20 69 6e 74 20 72 65 73 20 3d 20 54 43 int res = TC
7200: 4c 5f 4f 4b 2c 20 6c 65 6e 3b 0a 0a 20 20 20 20 L_OK, len;..
7210: 2f 2a 20 43 72 65 61 74 65 20 73 74 61 74 65 20 /* Create state
7220: 64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 2a data structure *
7230: 2f 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 65 /. if ((state
7240: 50 74 72 20 3d 20 54 6c 73 5f 44 69 67 65 73 74 Ptr = Tls_Digest
7250: 4e 65 77 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d New(interp, form
7260: 61 74 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a at)) == NULL) {.
7270: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
7280: 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 t(interp, "Memor
7290: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 y allocation err
72a0: 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 or", (char *) NU
72b0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
72c0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
72d0: 20 20 20 2f 2a 20 4f 70 65 6e 20 66 69 6c 65 20 /* Open file
72e0: 63 68 61 6e 6e 65 6c 2c 20 61 62 6f 72 74 20 66 channel, abort f
72f0: 6f 72 20 65 72 72 6f 72 20 2a 2f 0a 20 20 20 20 or error */.
7300: 63 68 61 6e 20 3d 20 54 63 6c 5f 46 53 4f 70 65 chan = Tcl_FSOpe
7310: 6e 46 69 6c 65 43 68 61 6e 6e 65 6c 28 69 6e 74 nFileChannel(int
7320: 65 72 70 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 22 erp, filename, "
7330: 72 62 22 2c 20 30 34 34 34 29 3b 0a 20 20 20 20 rb", 0444);.
7340: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
7350: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
7360: 7b 0a 09 54 6c 73 5f 44 69 67 65 73 74 46 72 65 {..Tls_DigestFre
7370: 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 e(statePtr);..re
7380: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7390: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6f }.. /* Co
73a0: 6e 66 69 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 nfigure channel
73b0: 2a 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 */. if ((res
73c0: 3d 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c = Tcl_SetChannel
73d0: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 Option(interp, c
73e0: 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 han, "-translati
73f0: 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 29 20 on", "binary"))
7400: 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a == TCL_ERROR) {.
7410: 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 .goto done;.
7420: 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 }. Tcl_SetCha
7430: 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a 65 28 63 nnelBufferSize(c
7440: 68 61 6e 2c 20 42 55 46 46 45 52 5f 53 49 5a 45 han, BUFFER_SIZE
7450: 29 3b 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 );.. /* Initi
7460: 61 6c 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 alize hash funct
7470: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ion */. if ((
7480: 72 65 73 20 3d 20 54 6c 73 5f 44 69 67 65 73 74 res = Tls_Digest
7490: 49 6e 69 74 28 69 6e 74 65 72 70 2c 20 73 74 61 Init(interp, sta
74a0: 74 65 50 74 72 2c 20 6d 64 2c 20 63 69 70 68 65 tePtr, md, ciphe
74b0: 72 2c 20 6b 65 79 4f 62 6a 29 29 20 21 3d 20 54 r, keyObj)) != T
74c0: 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 CL_OK) {..goto d
74d0: 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 one;. }..
74e0: 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 /* Read file dat
74f0: 61 20 61 6e 64 20 75 70 64 61 74 65 20 68 61 73 a and update has
7500: 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 h function */.
7510: 20 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f while (!Tcl_Eo
7520: 66 28 63 68 61 6e 29 29 20 7b 0a 09 6c 65 6e 20 f(chan)) {..len
7530: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 63 68 = Tcl_ReadRaw(ch
7540: 61 6e 2c 20 28 63 68 61 72 20 2a 29 20 62 75 66 an, (char *) buf
7550: 2c 20 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a , BUFFER_SIZE);.
7560: 09 69 66 20 28 6c 65 6e 20 3e 20 30 29 20 7b 0a .if (len > 0) {.
7570: 09 20 20 20 20 69 66 20 28 21 54 6c 73 5f 44 69 . if (!Tls_Di
7580: 67 65 73 74 55 70 64 61 74 65 28 73 74 61 74 65 gestUpdate(state
7590: 50 74 72 2c 20 26 62 75 66 5b 30 5d 2c 20 28 73 Ptr, &buf[0], (s
75a0: 69 7a 65 5f 74 29 20 6c 65 6e 2c 20 31 29 29 20 ize_t) len, 1))
75b0: 7b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 {...res = TCL_ER
75c0: 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 ROR;...goto done
75d0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 ;.. }..}.
75e0: 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 }.. /* Finali
75f0: 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e ze hash function
7600: 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 6d and calculate m
7610: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f essage digest */
7620: 0a 20 20 20 20 72 65 73 20 3d 20 54 6c 73 5f 44 . res = Tls_D
7630: 69 67 65 73 74 46 69 6e 69 61 6c 69 7a 65 28 69 igestFinialize(i
7640: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c nterp, statePtr,
7650: 20 4e 55 4c 4c 29 3b 0a 0a 64 6f 6e 65 3a 0a 20 NULL);..done:.
7660: 20 20 20 2f 2a 20 43 6c 6f 73 65 20 63 68 61 6e /* Close chan
7670: 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 nel */. if (T
7680: 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c cl_Close(interp,
7690: 20 63 68 61 6e 29 20 3d 3d 20 54 43 4c 5f 45 52 chan) == TCL_ER
76a0: 52 4f 52 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 ROR) {..res = TC
76b0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
76c0: 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 /* Clean-up
76d0: 2a 2f 0a 20 20 20 20 54 6c 73 5f 44 69 67 65 73 */. Tls_Diges
76e0: 74 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b tFree(statePtr);
76f0: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b . return res;
7700: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
7710: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7720: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7730: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7740: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
7750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7790: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
77a0: 4d 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Main --. *. *.Re
77b0: 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 69 67 turn message dig
77c0: 65 73 74 20 6f 72 20 4d 65 73 73 61 67 65 20 41 est or Message A
77d0: 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 43 6f uthentication Co
77e0: 64 65 20 28 4d 41 43 29 20 6f 66 0a 20 2a 09 64 de (MAC) of. *.d
77f0: 61 74 61 20 75 73 69 6e 67 20 75 73 65 72 20 73 ata using user s
7800: 70 65 63 69 66 69 65 64 20 68 61 73 68 20 66 75 pecified hash fu
7810: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
7820: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
7830: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
7840: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
7850: 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 :. *.Sets result
7860: 20 74 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65 to message dige
7870: 73 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 st or error mess
7880: 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d age. *. *-------
7890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
78d0: 0a 73 74 61 74 69 63 20 69 6e 74 20 44 69 67 65 .static int Dige
78e0: 73 74 4d 61 69 6e 28 69 6e 74 20 74 79 70 65 2c stMain(int type,
78f0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
7900: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
7910: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
7920: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 jv[]) {. int
7930: 69 64 78 2c 20 66 6f 72 6d 61 74 20 3d 20 48 45 idx, format = HE
7940: 58 5f 46 4f 52 4d 41 54 2c 20 72 65 73 20 3d 20 X_FORMAT, res =
7950: 54 43 4c 5f 4f 4b 2c 20 66 6c 61 67 73 20 3d 20 TCL_OK, flags =
7960: 30 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 0;. const cha
7970: 72 20 2a 64 69 67 65 73 74 4e 61 6d 65 2c 20 2a r *digestName, *
7980: 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 3b 0a channel = NULL;.
7990: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 Tcl_Obj *cmd
79a0: 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 74 Obj = NULL, *dat
79b0: 61 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 66 69 aObj = NULL, *fi
79c0: 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6b leObj = NULL, *k
79d0: 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 eyObj = NULL;.
79e0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
79f0: 2a 63 69 70 68 65 72 4e 61 6d 65 20 3d 20 4e 55 *cipherName = NU
7a00: 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 LL;. const EV
7a10: 50 5f 4d 44 20 2a 6d 64 20 3d 20 4e 55 4c 4c 3b P_MD *md = NULL;
7a20: 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 . const EVP_C
7a30: 49 50 48 45 52 20 2a 63 69 70 68 65 72 20 3d 20 IPHER *cipher =
7a40: 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c NULL;.. /* Cl
7a50: 65 61 72 20 69 6e 74 65 72 70 20 72 65 73 75 6c ear interp resul
7a60: 74 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 t */. Tcl_Res
7a70: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 etResult(interp)
7a80: 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 ;.. /* Valida
7a90: 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a te arg count */.
7aa0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 33 if (objc < 3
7ab0: 20 7c 7c 20 6f 62 6a 63 20 3e 20 31 32 29 20 7b || objc > 12) {
7ac0: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
7ad0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
7ae0: 6a 76 2c 20 22 3f 2d 62 69 6e 7c 2d 68 65 78 3f jv, "?-bin|-hex?
7af0: 20 3f 2d 63 69 70 68 65 72 20 6e 61 6d 65 3f 20 ?-cipher name?
7b00: 3f 2d 64 69 67 65 73 74 20 6e 61 6d 65 3f 20 3f ?-digest name? ?
7b10: 2d 6b 65 79 20 6b 65 79 3f 20 5b 2d 63 68 61 6e -key key? [-chan
7b20: 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 6f 6d 6d nel chan | -comm
7b30: 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c 20 2d 66 and cmdName | -f
7b40: 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 7c 20 3f ile filename | ?
7b50: 2d 64 61 74 61 3f 20 64 61 74 61 5d 22 29 3b 0a -data? data]");.
7b60: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
7b70: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
7b80: 20 4f 70 74 69 6d 61 6c 20 63 61 73 65 20 66 6f Optimal case fo
7b90: 72 20 61 20 64 69 67 65 73 74 20 61 6e 64 20 62 r a digest and b
7ba0: 6c 6f 62 20 6f 66 20 64 61 74 61 20 2a 2f 0a 20 lob of data */.
7bb0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 33 if (objc == 3
7bc0: 20 26 26 20 74 79 70 65 20 3d 3d 20 54 59 50 45 && type == TYPE
7bd0: 5f 4d 44 29 20 7b 0a 09 64 69 67 65 73 74 4e 61 _MD) {..digestNa
7be0: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
7bf0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 ngFromObj(objv[1
7c00: 5d 2c 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 28 6d ],NULL);..if ((m
7c10: 64 20 3d 20 45 56 50 5f 67 65 74 5f 64 69 67 65 d = EVP_get_dige
7c20: 73 74 62 79 6e 61 6d 65 28 64 69 67 65 73 74 4e stbyname(digestN
7c30: 61 6d 65 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b ame)) != NULL) {
7c40: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 6c 73 .. return Tls
7c50: 5f 44 69 67 65 73 74 44 61 74 61 28 69 6e 74 65 _DigestData(inte
7c60: 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 6d 64 2c rp, objv[2], md,
7c70: 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f 52 4d 41 NULL, HEX_FORMA
7c80: 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 4e 55 4c T | TYPE_MD, NUL
7c90: 4c 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 L);..} else {..
7ca0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
7cb0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 ult(interp, "Inv
7cc0: 61 6c 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c alid digest \"",
7cd0: 20 64 69 67 65 73 74 4e 61 6d 65 2c 20 22 5c 22 digestName, "\"
7ce0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 ", NULL);.. r
7cf0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7d00: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ..}. }.. /
7d10: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f * Get options */
7d20: 0a 20 20 20 20 66 6f 72 20 28 69 64 78 20 3d 20 . for (idx =
7d30: 31 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 1; idx < objc; i
7d40: 64 78 2b 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f dx++) {..char *o
7d50: 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 pt = Tcl_GetStri
7d60: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 ngFromObj(objv[i
7d70: 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 dx], NULL);...if
7d80: 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 (opt[0] != '-')
7d90: 20 7b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 {.. break;..
7da0: 7d 0a 0a 09 4f 50 54 46 4c 41 47 28 22 2d 62 69 }...OPTFLAG("-bi
7db0: 6e 22 2c 20 66 6f 72 6d 61 74 2c 20 42 49 4e 5f n", format, BIN_
7dc0: 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 54 46 4c 41 FORMAT);..OPTFLA
7dd0: 47 28 22 2d 62 69 6e 61 72 79 22 2c 20 66 6f 72 G("-binary", for
7de0: 6d 61 74 2c 20 42 49 4e 5f 46 4f 52 4d 41 54 29 mat, BIN_FORMAT)
7df0: 3b 0a 09 4f 50 54 46 4c 41 47 28 22 2d 68 65 78 ;..OPTFLAG("-hex
7e00: 22 2c 20 66 6f 72 6d 61 74 2c 20 48 45 58 5f 46 ", format, HEX_F
7e10: 4f 52 4d 41 54 29 3b 0a 09 4f 50 54 46 4c 41 47 ORMAT);..OPTFLAG
7e20: 28 22 2d 68 65 78 61 64 65 63 69 6d 61 6c 22 2c ("-hexadecimal",
7e30: 20 66 6f 72 6d 61 74 2c 20 48 45 58 5f 46 4f 52 format, HEX_FOR
7e40: 4d 41 54 29 3b 0a 09 4f 50 54 53 54 52 28 22 2d MAT);..OPTSTR("-
7e50: 63 68 61 6e 22 2c 20 63 68 61 6e 6e 65 6c 29 3b chan", channel);
7e60: 0a 09 4f 50 54 53 54 52 28 22 2d 63 68 61 6e 6e ..OPTSTR("-chann
7e70: 65 6c 22 2c 20 63 68 61 6e 6e 65 6c 29 3b 0a 09 el", channel);..
7e80: 4f 50 54 53 54 52 28 22 2d 63 69 70 68 65 72 22 OPTSTR("-cipher"
7e90: 2c 20 63 69 70 68 65 72 4e 61 6d 65 29 3b 0a 09 , cipherName);..
7ea0: 4f 50 54 4f 42 4a 28 22 2d 63 6f 6d 6d 61 6e 64 OPTOBJ("-command
7eb0: 22 2c 20 63 6d 64 4f 62 6a 29 3b 0a 09 4f 50 54 ", cmdObj);..OPT
7ec0: 4f 42 4a 28 22 2d 64 61 74 61 22 2c 20 64 61 74 OBJ("-data", dat
7ed0: 61 4f 62 6a 29 3b 0a 09 4f 50 54 53 54 52 28 22 aObj);..OPTSTR("
7ee0: 2d 64 69 67 65 73 74 22 2c 20 64 69 67 65 73 74 -digest", digest
7ef0: 4e 61 6d 65 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 Name);..OPTOBJ("
7f00: 2d 66 69 6c 65 22 2c 20 66 69 6c 65 4f 62 6a 29 -file", fileObj)
7f10: 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 66 69 6c 65 ;..OPTOBJ("-file
7f20: 6e 61 6d 65 22 2c 20 66 69 6c 65 4f 62 6a 29 3b name", fileObj);
7f30: 0a 09 4f 50 54 4f 42 4a 28 22 2d 6b 65 79 22 2c ..OPTOBJ("-key",
7f40: 20 6b 65 79 4f 62 6a 29 3b 0a 0a 09 4f 50 54 42 keyObj);...OPTB
7f50: 41 44 28 22 6f 70 74 69 6f 6e 22 2c 20 22 2d 62 AD("option", "-b
7f60: 69 6e 2c 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 in, -channel, -c
7f70: 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 2c ipher, -command,
7f80: 20 2d 64 61 74 61 2c 20 2d 64 69 67 65 73 74 2c -data, -digest,
7f90: 20 2d 66 69 6c 65 2c 20 2d 66 69 6c 65 6e 61 6d -file, -filenam
7fa0: 65 2c 20 2d 68 65 78 2c 20 6f 72 20 2d 6b 65 79 e, -hex, or -key
7fb0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
7fc0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
7fd0: 20 20 2f 2a 20 47 65 74 20 63 69 70 68 65 72 20 /* Get cipher
7fe0: 2a 2f 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 */. if (ciphe
7ff0: 72 4e 61 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b rName != NULL) {
8000: 0a 09 63 69 70 68 65 72 20 3d 20 45 56 50 5f 67 ..cipher = EVP_g
8010: 65 74 5f 63 69 70 68 65 72 62 79 6e 61 6d 65 28 et_cipherbyname(
8020: 63 69 70 68 65 72 4e 61 6d 65 29 3b 0a 09 74 79 cipherName);..ty
8030: 70 65 20 3d 20 54 59 50 45 5f 43 4d 41 43 3b 0a pe = TYPE_CMAC;.
8040: 09 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e .if (cipher == N
8050: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f ULL) {.. Tcl_
8060: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8070: 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 63 69 erp, "Invalid ci
8080: 70 68 65 72 20 5c 22 22 2c 20 63 69 70 68 65 72 pher \"", cipher
8090: 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c Name, "\"", NULL
80a0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
80b0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 20 20 CL_ERROR;..}..
80c0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 74 79 70 } else if (typ
80d0: 65 20 3d 3d 20 54 59 50 45 5f 43 4d 41 43 29 20 e == TYPE_CMAC)
80e0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
80f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
8100: 63 69 70 68 65 72 20 73 70 65 63 69 66 69 65 64 cipher specified
8110: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
8120: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
8130: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 }.. /* Get d
8140: 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 69 66 20 igest */. if
8150: 28 64 69 67 65 73 74 4e 61 6d 65 20 21 3d 20 4e (digestName != N
8160: 55 4c 4c 29 20 7b 0a 09 6d 64 20 3d 20 45 56 50 ULL) {..md = EVP
8170: 5f 67 65 74 5f 64 69 67 65 73 74 62 79 6e 61 6d _get_digestbynam
8180: 65 28 64 69 67 65 73 74 4e 61 6d 65 29 3b 0a 09 e(digestName);..
8190: 69 66 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 if (md == NULL)
81a0: 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e {.. Tcl_Appen
81b0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
81c0: 22 49 6e 76 61 6c 69 64 20 64 69 67 65 73 74 20 "Invalid digest
81d0: 5c 22 22 2c 20 64 69 67 65 73 74 4e 61 6d 65 2c \"", digestName,
81e0: 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 "\"", NULL);..
81f0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
8200: 52 4f 52 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 ROR;..} else if
8210: 28 6d 64 20 3d 3d 20 45 56 50 5f 73 68 61 6b 65 (md == EVP_shake
8220: 31 32 38 28 29 20 7c 7c 20 6d 64 20 3d 3d 20 45 128() || md == E
8230: 56 50 5f 73 68 61 6b 65 32 35 36 28 29 29 20 7b VP_shake256()) {
8240: 0a 09 20 20 20 20 66 6f 72 6d 61 74 20 7c 3d 20 .. format |=
8250: 49 53 5f 58 4f 46 3b 0a 09 7d 0a 20 20 20 20 7d IS_XOF;..}. }
8260: 20 65 6c 73 65 20 69 66 20 28 74 79 70 65 20 3d else if (type =
8270: 3d 20 54 59 50 45 5f 4d 44 20 7c 7c 20 74 79 70 = TYPE_MD || typ
8280: 65 20 3d 3d 20 54 59 50 45 5f 48 4d 41 43 29 20 e == TYPE_HMAC)
8290: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
82a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
82b0: 64 69 67 65 73 74 20 73 70 65 63 69 66 69 65 64 digest specified
82c0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
82d0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
82e0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6b }.. /* Get k
82f0: 65 79 20 2a 2f 0a 20 20 20 20 69 66 20 28 6b 65 ey */. if (ke
8300: 79 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a yObj != NULL) {.
8310: 09 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 50 .if (type == TYP
8320: 45 5f 4d 44 29 20 7b 0a 09 20 20 20 20 74 79 70 E_MD) {.. typ
8330: 65 20 3d 20 54 59 50 45 5f 48 4d 41 43 3b 0a 09 e = TYPE_HMAC;..
8340: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 }. } else if
8350: 28 74 79 70 65 20 21 3d 20 54 59 50 45 5f 4d 44 (type != TYPE_MD
8360: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
8370: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e esult(interp, "N
8380: 6f 20 6b 65 79 20 73 70 65 63 69 66 69 65 64 22 o key specified"
8390: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
83a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
83b0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 61 6c 63 20 64 }.. /* Calc d
83c0: 69 67 65 73 74 20 6f 6e 20 66 69 6c 65 2c 20 73 igest on file, s
83d0: 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2c 20 tacked channel,
83e0: 75 73 69 6e 67 20 69 6e 73 74 61 6e 63 65 20 63 using instance c
83f0: 6f 6d 6d 61 6e 64 2c 20 6f 72 20 64 61 74 61 20 ommand, or data
8400: 62 6c 6f 62 20 2a 2f 0a 20 20 20 20 69 66 20 28 blob */. if (
8410: 66 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 fileObj != NULL)
8420: 20 7b 0a 09 72 65 73 20 3d 20 54 6c 73 5f 44 69 {..res = Tls_Di
8430: 67 65 73 74 46 69 6c 65 28 69 6e 74 65 72 70 2c gestFile(interp,
8440: 20 66 69 6c 65 4f 62 6a 2c 20 6d 64 2c 20 63 69 fileObj, md, ci
8450: 70 68 65 72 2c 20 66 6f 72 6d 61 74 20 7c 20 74 pher, format | t
8460: 79 70 65 2c 20 6b 65 79 4f 62 6a 29 3b 0a 20 20 ype, keyObj);.
8470: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 68 61 } else if (cha
8480: 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a nnel != NULL) {.
8490: 09 72 65 73 20 3d 20 54 6c 73 5f 44 69 67 65 73 .res = Tls_Diges
84a0: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c tChannel(interp,
84b0: 20 63 68 61 6e 6e 65 6c 2c 20 6d 64 2c 20 63 69 channel, md, ci
84c0: 70 68 65 72 2c 20 66 6f 72 6d 61 74 20 7c 20 74 pher, format | t
84d0: 79 70 65 2c 20 6b 65 79 4f 62 6a 29 3b 0a 20 20 ype, keyObj);.
84e0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 6d 64 } else if (cmd
84f0: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj != NULL) {..
8500: 72 65 73 20 3d 20 54 6c 73 5f 44 69 67 65 73 74 res = Tls_Digest
8510: 49 6e 73 74 61 6e 63 65 28 69 6e 74 65 72 70 2c Instance(interp,
8520: 20 63 6d 64 4f 62 6a 2c 20 6d 64 2c 20 63 69 70 cmdObj, md, cip
8530: 68 65 72 2c 20 66 6f 72 6d 61 74 20 7c 20 74 79 her, format | ty
8540: 70 65 2c 20 6b 65 79 4f 62 6a 29 3b 0a 20 20 20 pe, keyObj);.
8550: 20 7d 20 65 6c 73 65 20 69 66 20 28 64 61 74 61 } else if (data
8560: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj != NULL) {..
8570: 72 65 73 20 3d 20 54 6c 73 5f 44 69 67 65 73 74 res = Tls_Digest
8580: 44 61 74 61 28 69 6e 74 65 72 70 2c 20 64 61 74 Data(interp, dat
8590: 61 4f 62 6a 2c 20 6d 64 2c 20 63 69 70 68 65 72 aObj, md, cipher
85a0: 2c 20 66 6f 72 6d 61 74 20 7c 20 74 79 70 65 2c , format | type,
85b0: 20 6b 65 79 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a keyObj);. }.
85c0: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a return res;.
85d0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
85e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
85f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
8620: 2a 20 4d 65 73 73 61 67 65 20 44 69 67 65 73 74 * Message Digest
8630: 20 61 6e 64 20 4d 65 73 73 61 67 65 20 41 75 74 and Message Aut
8640: 68 65 6e 74 69 63 61 74 69 6f 6e 20 43 6f 64 65 hentication Code
8650: 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a Commands --. *.
8660: 20 2a 09 52 65 74 75 72 6e 20 4d 65 73 73 61 67 *.Return Messag
8670: 65 20 44 69 67 65 73 74 20 28 4d 44 29 20 6f 72 e Digest (MD) or
8680: 20 4d 65 73 73 61 67 65 20 41 75 74 68 65 6e 74 Message Authent
8690: 69 63 61 74 69 6f 6e 20 43 6f 64 65 20 28 4d 41 ication Code (MA
86a0: 43 29 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e C).. *. * Return
86b0: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
86c0: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
86d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
86e0: 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 .Sets result to
86f0: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 6f message digest o
8700: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
8710: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
8720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8750: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
8760: 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 4f 62 tic int DigestOb
8770: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
8780: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
8790: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
87a0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
87b0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
87c0: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69 {. return Di
87d0: 67 65 73 74 4d 61 69 6e 28 54 59 50 45 5f 4d 44 gestMain(TYPE_MD
87e0: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
87f0: 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 objv);.}..static
8800: 20 69 6e 74 20 43 4d 41 43 4f 62 6a 43 6d 64 28 int CMACObjCmd(
8810: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
8820: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
8830: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
8840: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
8850: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
8860: 20 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 4d return DigestM
8870: 61 69 6e 28 54 59 50 45 5f 43 4d 41 43 2c 20 69 ain(TYPE_CMAC, i
8880: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
8890: 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e v);.}..static in
88a0: 74 20 48 4d 41 43 4f 62 6a 43 6d 64 28 43 6c 69 t HMACObjCmd(Cli
88b0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
88c0: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
88d0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
88e0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
88f0: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 objv[]) {. r
8900: 65 74 75 72 6e 20 44 69 67 65 73 74 4d 61 69 6e eturn DigestMain
8910: 28 54 59 50 45 5f 48 4d 41 43 2c 20 69 6e 74 65 (TYPE_HMAC, inte
8920: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b rp, objc, objv);
8930: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
8940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
8980: 20 2a 20 4d 65 73 73 61 67 65 20 44 69 67 65 73 * Message Diges
8990: 74 20 43 6f 6e 76 65 6e 69 65 6e 63 65 20 43 6f t Convenience Co
89a0: 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 mmands --. *. *.
89b0: 43 6f 6e 76 65 6e 69 65 6e 63 65 20 63 6f 6d 6d Convenience comm
89c0: 61 6e 64 73 20 66 6f 72 20 73 65 6c 65 63 74 20 ands for select
89d0: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73 2e message digests.
89e0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
89f0: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
8a00: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
8a10: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 e effects:. *.Se
8a20: 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 73 ts result to mes
8a30: 73 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 65 sage digest or e
8a40: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
8a50: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
8a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a90: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 20 23 64 65 66 69 -----. */. #defi
8aa0: 6e 65 20 76 61 6c 69 64 61 74 65 5f 61 72 67 63 ne validate_argc
8ab0: 28 6f 62 6a 63 2c 20 6f 62 6a 76 29 20 7b 20 5c (objc, objv) { \
8ac0: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d . if (objc !=
8ad0: 20 32 29 20 7b 20 5c 0a 09 54 63 6c 5f 57 72 6f 2) { \..Tcl_Wro
8ae0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
8af0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 64 61 74 61 , 1, objv, "data
8b00: 22 29 3b 20 5c 0a 09 72 65 74 75 72 6e 20 54 43 "); \..return TC
8b10: 4c 5f 45 52 52 4f 52 3b 20 5c 0a 20 20 20 20 7d L_ERROR; \. }
8b20: 20 5c 0a 7d 0a 20 0a 69 6e 74 20 44 69 67 65 73 \.}. .int Diges
8b30: 74 4d 44 34 43 6d 64 28 43 6c 69 65 6e 74 44 61 tMD4Cmd(ClientDa
8b40: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
8b50: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
8b60: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
8b70: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
8b80: 5b 5d 29 20 7b 0a 20 20 20 20 76 61 6c 69 64 61 []) {. valida
8b90: 74 65 5f 61 72 67 63 28 6f 62 6a 63 2c 20 6f 62 te_argc(objc, ob
8ba0: 6a 76 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 jv);. return
8bb0: 54 6c 73 5f 44 69 67 65 73 74 44 61 74 61 28 69 Tls_DigestData(i
8bc0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 nterp, objv[1],
8bd0: 45 56 50 5f 6d 64 34 28 29 2c 20 4e 55 4c 4c 2c EVP_md4(), NULL,
8be0: 20 48 45 58 5f 46 4f 52 4d 41 54 20 7c 20 54 59 HEX_FORMAT | TY
8bf0: 50 45 5f 4d 44 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a PE_MD, NULL);.}.
8c00: 0a 69 6e 74 20 44 69 67 65 73 74 4d 44 35 43 6d .int DigestMD5Cm
8c10: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
8c20: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
8c30: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
8c40: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
8c50: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
8c60: 20 20 20 20 76 61 6c 69 64 61 74 65 5f 61 72 67 validate_arg
8c70: 63 28 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 c(objc, objv);.
8c80: 20 20 20 72 65 74 75 72 6e 20 54 6c 73 5f 44 69 return Tls_Di
8c90: 67 65 73 74 44 61 74 61 28 69 6e 74 65 72 70 2c gestData(interp,
8ca0: 20 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 5f 6d 64 objv[1], EVP_md
8cb0: 35 28 29 2c 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 5(), NULL, HEX_F
8cc0: 4f 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 2c ORMAT | TYPE_MD,
8cd0: 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 NULL);.}..int D
8ce0: 69 67 65 73 74 53 48 41 31 43 6d 64 28 43 6c 69 igestSHA1Cmd(Cli
8cf0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
8d00: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
8d10: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
8d20: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
8d30: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 76 objv[]) {. v
8d40: 61 6c 69 64 61 74 65 5f 61 72 67 63 28 6f 62 6a alidate_argc(obj
8d50: 63 2c 20 6f 62 6a 76 29 3b 0a 20 20 20 20 72 65 c, objv);. re
8d60: 74 75 72 6e 20 54 6c 73 5f 44 69 67 65 73 74 44 turn Tls_DigestD
8d70: 61 74 61 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 ata(interp, objv
8d80: 5b 31 5d 2c 20 45 56 50 5f 73 68 61 31 28 29 2c [1], EVP_sha1(),
8d90: 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f 52 4d 41 NULL, HEX_FORMA
8da0: 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 4e 55 4c T | TYPE_MD, NUL
8db0: 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 69 67 65 73 L);.}..int Diges
8dc0: 74 53 48 41 32 35 36 43 6d 64 28 43 6c 69 65 6e tSHA256Cmd(Clien
8dd0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
8de0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
8df0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
8e00: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
8e10: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 76 61 6c bjv[]) {. val
8e20: 69 64 61 74 65 5f 61 72 67 63 28 6f 62 6a 63 2c idate_argc(objc,
8e30: 20 6f 62 6a 76 29 3b 0a 20 20 20 20 72 65 74 75 objv);. retu
8e40: 72 6e 20 54 6c 73 5f 44 69 67 65 73 74 44 61 74 rn Tls_DigestDat
8e50: 61 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 a(interp, objv[1
8e60: 5d 2c 20 45 56 50 5f 73 68 61 32 35 36 28 29 2c ], EVP_sha256(),
8e70: 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f 52 4d 41 NULL, HEX_FORMA
8e80: 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 4e 55 4c T | TYPE_MD, NUL
8e90: 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 69 67 65 73 L);.}..int Diges
8ea0: 74 53 48 41 35 31 32 43 6d 64 28 43 6c 69 65 6e tSHA512Cmd(Clien
8eb0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
8ec0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
8ed0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
8ee0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
8ef0: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 76 61 6c bjv[]) {. val
8f00: 69 64 61 74 65 5f 61 72 67 63 28 6f 62 6a 63 2c idate_argc(objc,
8f10: 20 6f 62 6a 76 29 3b 0a 20 20 20 20 72 65 74 75 objv);. retu
8f20: 72 6e 20 54 6c 73 5f 44 69 67 65 73 74 44 61 74 rn Tls_DigestDat
8f30: 61 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 a(interp, objv[1
8f40: 5d 2c 20 45 56 50 5f 73 68 61 35 31 32 28 29 2c ], EVP_sha512(),
8f50: 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f 52 4d 41 NULL, HEX_FORMA
8f60: 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 4e 55 4c T | TYPE_MD, NUL
8f70: 4c 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d L);.}../*. *----
8f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
8fc0: 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 67 65 73 74 *. * Tls_Digest
8fd0: 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 Commands --. *.
8fe0: 2a 09 43 72 65 61 74 65 20 64 69 67 65 73 74 20 *.Create digest
8ff0: 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 commands. *. * R
9000: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
9010: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
9020: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
9030: 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f s:. *.Creates co
9040: 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d mmands. *. *----
9050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9090: 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 44 69 67 65 */.int Tls_Dige
90a0: 73 74 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 stCommands(Tcl_I
90b0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b nterp *interp) {
90c0: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
90d0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
90e0: 2c 20 22 74 6c 73 3a 3a 64 69 67 65 73 74 22 2c , "tls::digest",
90f0: 20 44 69 67 65 73 74 4f 62 6a 43 6d 64 2c 20 28 DigestObjCmd, (
9100: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
9110: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
9120: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
9130: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
9140: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
9150: 73 3a 3a 63 6d 61 63 22 2c 20 43 4d 41 43 4f 62 s::cmac", CMACOb
9160: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
9170: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
9180: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
9190: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
91a0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
91b0: 72 70 2c 20 22 74 6c 73 3a 3a 68 6d 61 63 22 2c rp, "tls::hmac",
91c0: 20 48 4d 41 43 4f 62 6a 43 6d 64 2c 20 28 43 6c HMACObjCmd, (Cl
91d0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
91e0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
91f0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
9200: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
9210: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
9220: 3a 6d 64 34 22 2c 20 44 69 67 65 73 74 4d 44 34 :md4", DigestMD4
9230: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
9240: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
9250: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
9260: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
9270: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
9280: 70 2c 20 22 74 6c 73 3a 3a 6d 64 35 22 2c 20 44 p, "tls::md5", D
9290: 69 67 65 73 74 4d 44 35 43 6d 64 2c 20 28 43 6c igestMD5Cmd, (Cl
92a0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
92b0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
92c0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
92d0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
92e0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
92f0: 3a 73 68 61 31 22 2c 20 44 69 67 65 73 74 53 48 :sha1", DigestSH
9300: 41 31 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 A1Cmd, (ClientDa
9310: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
9320: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
9330: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
9340: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
9350: 65 72 70 2c 20 22 74 6c 73 3a 3a 73 68 61 32 35 erp, "tls::sha25
9360: 36 22 2c 20 44 69 67 65 73 74 53 48 41 32 35 36 6", DigestSHA256
9370: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
9380: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
9390: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
93a0: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
93b0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
93c0: 70 2c 20 22 74 6c 73 3a 3a 73 68 61 35 31 32 22 p, "tls::sha512"
93d0: 2c 20 44 69 67 65 73 74 53 48 41 35 31 32 43 6d , DigestSHA512Cm
93e0: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
93f0: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
9400: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
9410: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
9420: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
9430: 20 22 74 6c 73 3a 3a 75 6e 73 74 61 63 6b 22 2c "tls::unstack",
9440: 20 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 2c 20 UnstackObjCmd,
9450: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
9460: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
9470: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
9480: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
9490: 7d 0a 0a }..