0000: 2f 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 44 69 /*. * Message Di
0010: 67 65 73 74 73 20 4d 6f 64 75 6c 65 0a 20 2a 0a gests Module. *.
0020: 20 2a 20 50 72 6f 76 69 64 65 73 20 63 6f 6d 6d * Provides comm
0030: 61 6e 64 73 20 74 6f 20 63 61 6c 63 75 6c 61 74 ands to calculat
0040: 65 20 61 20 6d 65 73 73 61 67 65 20 64 69 67 65 e a message dige
0050: 73 74 20 75 73 69 6e 67 20 61 20 73 70 65 63 69 st using a speci
0060: 66 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 69 fied hash functi
0070: 6f 6e 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 on.. *. * Copyri
0080: 67 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 ght (C) 2023 Bri
0090: 61 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a an O'Hagan. *. *
00a0: 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 /..#include "tls
00b0: 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 Int.h".#include
00c0: 22 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 "tclOpts.h".#inc
00d0: 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e lude <tcl.h>.#in
00e0: 63 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a clude <stdio.h>.
00f0: 23 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 #include <string
0100: 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 .h>.#include <op
0110: 65 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 0a 2f 2a enssl/evp.h>../*
0120: 20 43 6f 6e 73 74 61 6e 74 73 20 2a 2f 0a 63 6f Constants */.co
0130: 6e 73 74 20 63 68 61 72 20 2a 68 65 78 20 3d 20 nst char *hex =
0140: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 "0123456789ABCDE
0150: 46 22 3b 0a 0a 2f 2a 20 4d 61 63 72 6f 73 20 2a F";../* Macros *
0160: 2f 0a 23 64 65 66 69 6e 65 20 42 55 46 46 45 52 /.#define BUFFER
0170: 5f 53 49 5a 45 20 36 35 35 33 36 0a 23 64 65 66 _SIZE 65536.#def
0180: 69 6e 65 20 42 49 4e 5f 46 4f 52 4d 41 54 20 30 ine BIN_FORMAT 0
0190: 0a 23 64 65 66 69 6e 65 20 48 45 58 5f 46 4f 52 .#define HEX_FOR
01a0: 4d 41 54 20 31 0a 23 64 65 66 69 6e 65 20 43 48 MAT 1.#define CH
01b0: 41 4e 5f 45 4f 46 20 30 78 31 30 0a 0a 2f 2a 0a AN_EOF 0x10../*.
01c0: 20 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 72 * This structur
01d0: 65 20 64 65 66 69 6e 65 73 20 74 68 65 20 70 65 e defines the pe
01e0: 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 65 r-instance state
01f0: 20 6f 66 20 61 20 64 69 67 65 73 74 20 6f 70 65 of a digest ope
0200: 72 61 74 69 6f 6e 2e 0a 20 2a 2f 0a 74 79 70 65 ration.. */.type
0210: 64 65 66 20 73 74 72 75 63 74 20 44 69 67 65 73 def struct Diges
0220: 74 53 74 61 74 65 20 7b 0a 09 54 63 6c 5f 43 68 tState {..Tcl_Ch
0230: 61 6e 6e 65 6c 20 73 65 6c 66 3b 09 2f 2a 20 54 annel self;./* T
0240: 68 69 73 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e his socket chann
0250: 65 6c 20 2a 2f 0a 09 54 63 6c 5f 54 69 6d 65 72 el */..Tcl_Timer
0260: 54 6f 6b 65 6e 20 74 69 6d 65 72 3b 09 2f 2a 20 Token timer;./*
0270: 54 69 6d 65 72 20 66 6f 72 20 72 65 61 64 20 65 Timer for read e
0280: 76 65 6e 74 73 20 2a 2f 0a 0a 09 69 6e 74 20 66 vents */...int f
0290: 6c 61 67 73 3b 09 09 2f 2a 20 43 68 61 6e 20 63 lags;../* Chan c
02a0: 6f 6e 66 69 67 20 66 6c 61 67 73 20 2a 2f 0a 09 onfig flags */..
02b0: 69 6e 74 20 77 61 74 63 68 4d 61 73 6b 3b 09 09 int watchMask;..
02c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
02d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 69 6e Proc mask */..in
02e0: 74 20 6d 6f 64 65 3b 09 09 2f 2a 20 43 75 72 72 t mode;../* Curr
02f0: 65 6e 74 20 6d 6f 64 65 20 6f 66 20 70 61 72 65 ent mode of pare
0300: 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 69 nt channel */..i
0310: 6e 74 20 66 6f 72 6d 61 74 3b 09 09 2f 2a 20 4f nt format;../* O
0320: 75 74 70 75 74 20 66 6f 72 6d 61 74 20 2a 2f 0a utput format */.
0330: 0a 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ..Tcl_Interp *in
0340: 74 65 72 70 3b 09 2f 2a 20 43 75 72 72 65 6e 74 terp;./* Current
0350: 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a interpreter */.
0360: 09 45 56 50 5f 4d 44 5f 43 54 58 20 2a 63 74 78 .EVP_MD_CTX *ctx
0370: 3b 09 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 20 ;./* MD Context
0380: 2a 2f 0a 09 48 4d 41 43 5f 43 54 58 20 2a 68 63 */..HMAC_CTX *hc
0390: 74 78 3b 09 09 2f 2a 20 48 4d 41 43 20 43 6f 6e tx;../* HMAC Con
03a0: 74 65 78 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d text */..Tcl_Com
03b0: 6d 61 6e 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 mand token;./* C
03c0: 6f 6d 6d 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a ommand token */.
03d0: 7d 20 44 69 67 65 73 74 53 74 61 74 65 3b 0a 0a } DigestState;..
03e0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
03f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
0430: 6c 73 5f 44 69 67 65 73 74 4e 65 77 20 2d 2d 0a ls_DigestNew --.
0440: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
0450: 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 64 69 ion creates a di
0460: 67 65 73 74 20 73 74 61 74 65 20 73 74 72 75 63 gest state struc
0470: 74 75 72 65 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ture. *. * Retur
0480: 6e 73 3a 0a 20 2a 09 44 69 67 65 73 74 20 73 74 ns:. *.Digest st
0490: 72 75 63 74 75 72 65 20 70 6f 69 6e 74 65 72 0a ructure pointer.
04a0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
04b0: 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 73 ts:. *.Creates s
04c0: 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d tructure. *. *--
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 0a 20 2a 2f 0a 44 69 67 65 73 74 53 74 61 74 -. */.DigestStat
0520: 65 20 2a 54 6c 73 5f 44 69 67 65 73 74 4e 65 77 e *Tls_DigestNew
0530: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
0540: 65 72 70 2c 20 69 6e 74 20 66 6f 72 6d 61 74 29 erp, int format)
0550: 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 {. DigestSta
0560: 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 0a 20 te *statePtr;..
0570: 20 20 20 73 74 61 74 65 50 74 72 20 3d 20 28 44 statePtr = (D
0580: 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 63 6b igestState *) ck
0590: 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 alloc((unsigned)
05a0: 20 73 69 7a 65 6f 66 28 44 69 67 65 73 74 53 74 sizeof(DigestSt
05b0: 61 74 65 29 29 3b 0a 20 20 20 20 69 66 20 28 73 ate));. if (s
05c0: 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c 29 tatePtr != NULL)
05d0: 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 65 {..memset(state
05e0: 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 44 Ptr, 0, sizeof(D
05f0: 69 67 65 73 74 53 74 61 74 65 29 29 3b 0a 09 73 igestState));..s
0600: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 3d 20 tatePtr->self.=
0610: 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 20 73 NULL;../* This s
0620: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0630: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
0640: 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 69 r = NULL;../* Ti
0650: 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 61 74 mer to flush dat
0660: 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e a */..statePtr->
0670: 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a 20 43 flags = 0;../* C
0680: 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 67 73 han config flags
0690: 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 77 */..statePtr->w
06a0: 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 2f 2a atchMask = 0;./*
06b0: 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 50 72 Current WatchPr
06c0: 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 61 74 oc mask */..stat
06d0: 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 3b 09 ePtr->mode.= 0;.
06e0: 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f 64 65 ./* Current mode
06f0: 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 6e 6e of parent chann
0700: 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d el */..statePtr-
0710: 3e 66 6f 72 6d 61 74 20 3d 20 66 6f 72 6d 61 74 >format = format
0720: 3b 09 2f 2a 20 4f 75 74 70 75 74 20 66 6f 72 6d ;./* Output form
0730: 61 74 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d at */..statePtr-
0740: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0750: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0760: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0770: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0780: 4c 3b 09 09 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 L;../* MD Contex
0790: 74 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e t */..statePtr->
07a0: 68 63 74 78 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a hctx = NULL;../*
07b0: 20 48 4d 41 43 20 43 6f 6e 74 65 78 74 20 2a 2f HMAC Context */
07c0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
07d0: 6e 20 73 74 61 74 65 50 74 72 3b 0a 7d 0a 0a 2f n statePtr;.}../
07e0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0820: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
0830: 73 5f 44 69 67 65 73 74 46 72 65 65 20 2d 2d 0a s_DigestFree --.
0840: 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 *. *.This funct
0850: 69 6f 6e 20 72 65 6d 6f 76 65 73 20 61 20 64 69 ion removes a di
0860: 67 65 73 74 20 73 74 61 74 65 20 73 74 72 75 63 gest state struc
0870: 74 75 72 65 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ture. *. * Retur
0880: 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 ns:. *.Nothing.
0890: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
08a0: 73 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 20 73 74 s:. *.Removes st
08b0: 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d ructure. *. *---
08c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0900: 0a 20 2a 2f 0a 76 6f 69 64 20 54 6c 73 5f 44 69 . */.void Tls_Di
0910: 67 65 73 74 46 72 65 65 28 44 69 67 65 73 74 53 gestFree(DigestS
0920: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 20 tate *statePtr)
0930: 7b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 {. if (stateP
0940: 74 72 20 3d 3d 20 28 44 69 67 65 73 74 53 74 61 tr == (DigestSta
0950: 74 65 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 te *) NULL) {..r
0960: 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 eturn;. }..
0970: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0980: 63 74 78 20 21 3d 20 28 45 56 50 5f 4d 44 5f 43 ctx != (EVP_MD_C
0990: 54 58 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 45 TX *) NULL) {..E
09a0: 56 50 5f 4d 44 5f 43 54 58 5f 66 72 65 65 28 73 VP_MD_CTX_free(s
09b0: 74 61 74 65 50 74 72 2d 3e 63 74 78 29 3b 0a 20 tatePtr->ctx);.
09c0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 }. if (sta
09d0: 74 65 50 74 72 2d 3e 68 63 74 78 20 21 3d 20 28 tePtr->hctx != (
09e0: 48 4d 41 43 5f 43 54 58 20 2a 29 20 4e 55 4c 4c HMAC_CTX *) NULL
09f0: 29 20 7b 0a 09 48 4d 41 43 5f 43 54 58 5f 66 72 ) {..HMAC_CTX_fr
0a00: 65 65 28 73 74 61 74 65 50 74 72 2d 3e 68 63 74 ee(statePtr->hct
0a10: 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6b x);. }. ck
0a20: 66 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a free(statePtr);.
0a30: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
0a40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0a50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0a60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0a70: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
0a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a90: 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 67 --. *. * Tls_Dig
0ad0: 65 73 74 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a estInit --. *. *
0ae0: 09 49 6e 69 74 69 61 6c 69 7a 65 20 61 20 68 61 .Initialize a ha
0af0: 73 68 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 sh function. *.
0b00: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
0b10: 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 L_OK if successf
0b20: 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 ul or TCL_ERROR
0b30: 66 6f 72 20 66 61 69 6c 75 72 65 20 77 69 74 68 for failure with
0b40: 20 72 65 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 result set. *.t
0b50: 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e o error message.
0b60: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
0b70: 63 74 73 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c cts:. *.No resul
0b80: 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 t or error messa
0b90: 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ge. *. *--------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
0be0: 69 6e 74 20 54 6c 73 5f 44 69 67 65 73 74 49 6e int Tls_DigestIn
0bf0: 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 it(Tcl_Interp *i
0c00: 6e 74 65 72 70 2c 20 44 69 67 65 73 74 53 74 61 nterp, DigestSta
0c10: 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 6f te *statePtr, co
0c20: 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 0a nst EVP_MD *md,.
0c30: 09 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a .Tcl_Obj *keyObj
0c40: 29 20 7b 0a 20 20 20 20 69 6e 74 20 6b 65 79 5f ) {. int key_
0c50: 6c 65 6e 2c 20 72 65 73 3b 0a 20 20 20 20 63 6f len, res;. co
0c60: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
0c70: 72 20 2a 6b 65 79 3b 0a 0a 20 20 20 20 2f 2a 20 r *key;.. /*
0c80: 43 72 65 61 74 65 20 6d 65 73 73 61 67 65 20 64 Create message d
0c90: 69 67 65 73 74 20 63 6f 6e 74 65 78 74 20 2a 2f igest context */
0ca0: 0a 20 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 . if (keyObj
0cb0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 73 74 61 74 == NULL) {..stat
0cc0: 65 50 74 72 2d 3e 63 74 78 20 3d 20 45 56 50 5f ePtr->ctx = EVP_
0cd0: 4d 44 5f 43 54 58 5f 6e 65 77 28 29 3b 0a 09 72 MD_CTX_new();..r
0ce0: 65 73 20 3d 20 28 73 74 61 74 65 50 74 72 2d 3e es = (statePtr->
0cf0: 63 74 78 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 ctx != NULL);.
0d00: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 61 74 } else {..stat
0d10: 65 50 74 72 2d 3e 68 63 74 78 20 3d 20 48 4d 41 ePtr->hctx = HMA
0d20: 43 5f 43 54 58 5f 6e 65 77 28 29 3b 0a 09 72 65 C_CTX_new();..re
0d30: 73 20 3d 20 28 73 74 61 74 65 50 74 72 2d 3e 68 s = (statePtr->h
0d40: 63 74 78 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 ctx != NULL);.
0d50: 20 20 7d 0a 20 20 20 20 69 66 20 28 21 72 65 73 }. if (!res
0d60: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
0d70: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 43 esult(interp, "C
0d80: 72 65 61 74 65 20 64 69 67 65 73 74 20 63 6f 6e reate digest con
0d90: 74 65 78 74 20 66 61 69 6c 65 64 3a 20 22 2c 20 text failed: ",
0da0: 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b REASON(), NULL);
0db0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
0dc0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
0dd0: 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 68 61 73 * Initialize has
0de0: 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 h function */.
0df0: 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d 3d 20 if (keyObj ==
0e00: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
0e10: 56 50 5f 44 69 67 65 73 74 49 6e 69 74 5f 65 78 VP_DigestInit_ex
0e20: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 (statePtr->ctx,
0e30: 6d 64 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d md, NULL);. }
0e40: 20 65 6c 73 65 20 7b 0a 09 6b 65 79 20 3d 20 54 else {..key = T
0e50: 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 cl_GetByteArrayF
0e60: 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a 2c 20 26 romObj(keyObj, &
0e70: 6b 65 79 5f 6c 65 6e 29 3b 0a 09 72 65 73 20 3d key_len);..res =
0e80: 20 48 4d 41 43 5f 49 6e 69 74 5f 65 78 28 73 74 HMAC_Init_ex(st
0e90: 61 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 28 63 atePtr->hctx, (c
0ea0: 6f 6e 73 74 20 76 6f 69 64 20 2a 29 20 6b 65 79 onst void *) key
0eb0: 2c 20 6b 65 79 5f 6c 65 6e 2c 20 6d 64 2c 20 4e , key_len, md, N
0ec0: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ULL);. }.
0ed0: 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c if (!res) {..Tcl
0ee0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
0ef0: 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a terp, "Initializ
0f00: 65 20 64 69 67 65 73 74 20 66 61 69 6c 65 64 3a e digest failed:
0f10: 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 ", REASON(), NU
0f20: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
0f30: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
0f40: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
0f50: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
0fa0: 20 2a 20 54 6c 73 5f 44 69 67 65 73 74 55 70 64 * Tls_DigestUpd
0fb0: 61 74 65 20 2d 2d 0a 20 2a 0a 20 2a 09 55 70 64 ate --. *. *.Upd
0fc0: 61 74 65 20 61 20 68 61 73 68 20 66 75 6e 63 74 ate a hash funct
0fd0: 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ion. *. * Return
0fe0: 73 3a 0a 20 2a 09 31 20 69 66 20 73 75 63 63 65 s:. *.1 if succe
0ff0: 73 73 66 75 6c 20 6f 72 20 30 20 66 6f 72 20 66 ssful or 0 for f
1000: 61 69 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 ailure. *. * Sid
1010: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 e effects:. *.Ad
1020: 64 73 20 62 75 66 20 74 6f 20 68 61 73 68 20 66 ds buf to hash f
1030: 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 2d 2d 2d unction. *. *---
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1080: 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 44 69 67 . */.int Tls_Dig
1090: 65 73 74 55 70 64 61 74 65 28 44 69 67 65 73 74 estUpdate(Digest
10a0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c State *statePtr,
10b0: 20 63 68 61 72 20 2a 62 75 66 2c 20 73 69 7a 65 char *buf, size
10c0: 5f 74 20 72 65 61 64 29 20 7b 0a 20 20 20 20 69 _t read) {. i
10d0: 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 69 66 20 nt res;.. if
10e0: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 21 (statePtr->ctx !
10f0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d = NULL) {..res =
1100: 20 45 56 50 5f 44 69 67 65 73 74 55 70 64 61 74 EVP_DigestUpdat
1110: 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c e(statePtr->ctx,
1120: 20 62 75 66 2c 20 72 65 61 64 29 3b 0a 20 20 20 buf, read);.
1130: 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d } else {..res =
1140: 20 48 4d 41 43 5f 55 70 64 61 74 65 28 73 74 61 HMAC_Update(sta
1150: 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 62 75 66 tePtr->hctx, buf
1160: 2c 20 72 65 61 64 29 3b 0a 20 20 20 20 7d 0a 20 , read);. }.
1170: 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d return res;.}
1180: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
11d0: 20 54 6c 73 5f 44 69 67 65 73 74 46 69 6e 69 61 Tls_DigestFinia
11e0: 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 46 69 lize --. *. *.Fi
11f0: 6e 61 6c 69 7a 65 20 61 20 68 61 73 68 20 66 75 nalize a hash fu
1200: 6e 63 74 69 6f 6e 20 61 6e 64 20 67 65 6e 65 72 nction and gener
1210: 61 74 65 20 61 20 6d 65 73 73 61 67 65 20 64 69 ate a message di
1220: 67 65 73 74 0a 20 2a 0a 20 2a 20 52 65 74 75 72 gest. *. * Retur
1230: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 ns:. *.TCL_OK if
1240: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 successful or T
1250: 43 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 CL_ERROR for fai
1260: 6c 75 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 lure with result
1270: 20 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 set. *.to error
1280: 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 message.. *. *
1290: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
12a0: 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 .Sets result to
12b0: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 66 message digest f
12c0: 6f 72 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e or hash function
12d0: 20 6f 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 or an error mes
12e0: 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d sage.. *. *-----
12f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1330: 2a 2f 0a 0a 69 6e 74 20 54 6c 73 5f 44 69 67 65 */..int Tls_Dige
1340: 73 74 46 69 6e 69 61 6c 69 7a 65 28 54 63 6c 5f stFinialize(Tcl_
1350: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
1360: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
1370: 74 65 50 74 72 29 20 7b 0a 20 20 20 20 75 6e 73 tePtr) {. uns
1380: 69 67 6e 65 64 20 63 68 61 72 20 6d 64 5f 62 75 igned char md_bu
1390: 66 5b 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a f[EVP_MAX_MD_SIZ
13a0: 45 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 E];. unsigned
13b0: 20 69 6e 74 20 6d 64 5f 6c 65 6e 3b 0a 20 20 20 int md_len;.
13c0: 20 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 2f int res;.. /
13d0: 2a 20 46 69 6e 61 6c 69 7a 65 20 68 61 73 68 20 * Finalize hash
13e0: 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 63 61 6c function and cal
13f0: 63 75 6c 61 74 65 20 6d 65 73 73 61 67 65 20 64 culate message d
1400: 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 69 66 20 igest */. if
1410: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 21 (statePtr->ctx !
1420: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d = NULL) {..res =
1430: 20 45 56 50 5f 44 69 67 65 73 74 46 69 6e 61 6c EVP_DigestFinal
1440: 5f 65 78 28 73 74 61 74 65 50 74 72 2d 3e 63 74 _ex(statePtr->ct
1450: 78 2c 20 6d 64 5f 62 75 66 2c 20 26 6d 64 5f 6c x, md_buf, &md_l
1460: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
1470: 7b 0a 09 72 65 73 20 3d 20 48 4d 41 43 5f 46 69 {..res = HMAC_Fi
1480: 6e 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 68 63 nal(statePtr->hc
1490: 74 78 2c 20 6d 64 5f 62 75 66 2c 20 26 6d 64 5f tx, md_buf, &md_
14a0: 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 len);. }.
14b0: 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c if (!res) {..Tcl
14c0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
14d0: 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a 65 20 terp, "Finalize
14e0: 64 69 67 65 73 74 20 66 61 69 6c 65 64 3a 20 22 digest failed: "
14f0: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c , REASON(), NULL
1500: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
1510: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
1520: 20 2f 2a 20 52 65 74 75 72 6e 20 6d 65 73 73 61 /* Return messa
1530: 67 65 20 64 69 67 65 73 74 20 61 73 20 65 69 74 ge digest as eit
1540: 68 65 72 20 61 20 62 69 6e 61 72 79 20 6f 72 20 her a binary or
1550: 68 65 78 20 73 74 72 69 6e 67 20 2a 2f 0a 20 20 hex string */.
1560: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1570: 66 6f 72 6d 61 74 20 3d 3d 20 42 49 4e 5f 46 4f format == BIN_FO
1580: 52 4d 41 54 29 20 7b 0a 09 54 63 6c 5f 53 65 74 RMAT) {..Tcl_Set
1590: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
15a0: 2c 20 54 63 6c 5f 4e 65 77 42 79 74 65 41 72 72 , Tcl_NewByteArr
15b0: 61 79 4f 62 6a 28 6d 64 5f 62 75 66 2c 20 6d 64 ayObj(md_buf, md
15c0: 5f 6c 65 6e 29 29 3b 0a 0a 20 20 20 20 7d 20 65 _len));.. } e
15d0: 6c 73 65 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a lse {..Tcl_Obj *
15e0: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
15f0: 4e 65 77 4f 62 6a 28 29 3b 0a 09 75 6e 73 69 67 NewObj();..unsig
1600: 6e 65 64 20 63 68 61 72 20 2a 70 74 72 20 3d 20 ned char *ptr =
1610: 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 Tcl_SetByteArray
1620: 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a Length(resultObj
1630: 2c 20 6d 64 5f 6c 65 6e 2a 32 29 3b 0a 0a 09 66 , md_len*2);...f
1640: 6f 72 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 or (unsigned int
1650: 20 69 20 3d 20 30 3b 20 69 20 3c 20 6d 64 5f 6c i = 0; i < md_l
1660: 65 6e 3b 20 69 2b 2b 29 20 7b 0a 09 20 20 20 20 en; i++) {..
1670: 2a 70 74 72 2b 2b 20 3d 20 68 65 78 5b 28 6d 64 *ptr++ = hex[(md
1680: 5f 62 75 66 5b 69 5d 20 3e 3e 20 34 29 20 26 20 _buf[i] >> 4) &
1690: 30 78 30 46 5d 3b 0a 09 20 20 20 20 2a 70 74 72 0x0F];.. *ptr
16a0: 2b 2b 20 3d 20 68 65 78 5b 6d 64 5f 62 75 66 5b ++ = hex[md_buf[
16b0: 69 5d 20 26 20 30 78 30 46 5d 3b 0a 09 7d 0a 09 i] & 0x0F];..}..
16c0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
16d0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
16e0: 62 6a 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 bj);. }. r
16f0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1700: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
1710: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1720: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1730: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1740: 2a 2a 2a 2a 2a 2f 0a 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1790: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 67 65 -. *. * Tls_Dige
17a0: 73 74 46 69 6c 65 20 2d 2d 0a 20 2a 0a 20 2a 09 stFile --. *. *.
17b0: 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 Return message d
17c0: 69 67 65 73 74 20 66 6f 72 20 66 69 6c 65 20 75 igest for file u
17d0: 73 69 6e 67 20 75 73 65 72 20 73 70 65 63 69 66 sing user specif
17e0: 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 69 6f ied hash functio
17f0: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 n.. *. * Returns
1800: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
1810: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
1820: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
1830: 52 65 73 75 6c 74 20 69 73 20 6d 65 73 73 61 67 Result is messag
1840: 65 20 64 69 67 65 73 74 20 6f 72 20 65 72 72 6f e digest or erro
1850: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1880: 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 44 --. */.int Tls_D
18b0: 69 67 65 73 74 46 69 6c 65 28 54 63 6c 5f 49 6e igestFile(Tcl_In
18c0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 terp *interp, Tc
18d0: 6c 5f 4f 62 6a 20 2a 66 69 6c 65 6e 61 6d 65 2c l_Obj *filename,
18e0: 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d const EVP_MD *m
18f0: 64 2c 20 69 6e 74 20 66 6f 72 6d 61 74 2c 0a 09 d, int format,..
1900: 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 Tcl_Obj *keyObj)
1910: 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 {. DigestSta
1920: 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 te *statePtr;.
1930: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 Tcl_Channel ch
1940: 61 6e 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 an = NULL;. u
1950: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 62 75 66 nsigned char buf
1960: 5b 42 55 46 46 45 52 5f 53 49 5a 45 5d 3b 0a 20 [BUFFER_SIZE];.
1970: 20 20 20 69 6e 74 20 72 65 73 20 3d 20 54 43 4c int res = TCL
1980: 5f 4f 4b 2c 20 6c 65 6e 3b 0a 0a 20 20 20 20 2f _OK, len;.. /
1990: 2a 20 4f 70 65 6e 20 66 69 6c 65 20 63 68 61 6e * Open file chan
19a0: 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 nel */. chan
19b0: 3d 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 = Tcl_FSOpenFile
19c0: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
19d0: 66 69 6c 65 6e 61 6d 65 2c 20 22 72 62 22 2c 20 filename, "rb",
19e0: 30 34 34 34 29 3b 0a 20 20 20 20 69 66 20 28 63 0444);. if (c
19f0: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
1a00: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
1a10: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1a20: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6f }.. /* Co
1a30: 6e 66 69 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 nfigure channel
1a40: 2a 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 */. if ((res
1a50: 3d 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c = Tcl_SetChannel
1a60: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 Option(interp, c
1a70: 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 han, "-translati
1a80: 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 29 20 on", "binary"))
1a90: 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a == TCL_ERROR) {.
1aa0: 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 .goto done;.
1ab0: 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 }. Tcl_SetCha
1ac0: 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a 65 28 63 nnelBufferSize(c
1ad0: 68 61 6e 2c 20 42 55 46 46 45 52 5f 53 49 5a 45 han, BUFFER_SIZE
1ae0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 );.. /* Creat
1af0: 65 20 73 74 61 74 65 20 64 61 74 61 20 73 74 72 e state data str
1b00: 75 63 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 uct */. if ((
1b10: 73 74 61 74 65 50 74 72 20 3d 20 54 6c 73 5f 44 statePtr = Tls_D
1b20: 69 67 65 73 74 4e 65 77 28 69 6e 74 65 72 70 2c igestNew(interp,
1b30: 20 66 6f 72 6d 61 74 29 29 20 3d 3d 20 4e 55 4c format)) == NUL
1b40: 4c 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f L) {..res = TCL_
1b50: 45 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f 6e ERROR;..goto don
1b60: 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a e;. }.. /*
1b70: 20 49 6e 69 74 69 61 6c 69 7a 65 20 68 61 73 68 Initialize hash
1b80: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
1b90: 20 69 66 20 28 28 72 65 73 20 3d 20 54 6c 73 5f if ((res = Tls_
1ba0: 44 69 67 65 73 74 49 6e 69 74 28 69 6e 74 65 72 DigestInit(inter
1bb0: 70 2c 20 73 74 61 74 65 50 74 72 2c 20 6d 64 2c p, statePtr, md,
1bc0: 20 6b 65 79 4f 62 6a 29 29 20 21 3d 20 54 43 4c keyObj)) != TCL
1bd0: 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 6f 6e _OK) {..goto don
1be0: 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a e;. }.. /*
1bf0: 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 61 20 Read file data
1c00: 61 6e 64 20 75 70 64 61 74 65 20 68 61 73 68 20 and update hash
1c10: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 function */.
1c20: 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f 66 28 while (!Tcl_Eof(
1c30: 63 68 61 6e 29 29 20 7b 0a 09 6c 65 6e 20 3d 20 chan)) {..len =
1c40: 54 63 6c 5f 52 65 61 64 52 61 77 28 63 68 61 6e Tcl_ReadRaw(chan
1c50: 2c 20 28 63 68 61 72 20 2a 29 20 62 75 66 2c 20 , (char *) buf,
1c60: 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a 09 69 BUFFER_SIZE);..i
1c70: 66 20 28 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 f (len > 0) {..
1c80: 20 20 20 69 66 20 28 21 54 6c 73 5f 44 69 67 65 if (!Tls_Dige
1c90: 73 74 55 70 64 61 74 65 28 73 74 61 74 65 50 74 stUpdate(statePt
1ca0: 72 2c 20 26 62 75 66 5b 30 5d 2c 20 28 73 69 7a r, &buf[0], (siz
1cb0: 65 5f 74 29 20 6c 65 6e 29 29 20 7b 0a 09 09 54 e_t) len)) {...T
1cc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1cd0: 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 65 20 interp, "Update
1ce0: 64 69 67 65 73 74 20 66 61 69 6c 65 64 3a 20 22 digest failed: "
1cf0: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c , REASON(), NULL
1d00: 29 3b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 );...res = TCL_E
1d10: 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e RROR;...goto don
1d20: 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 e;.. }..}.
1d30: 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c }.. /* Final
1d40: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ize hash functio
1d50: 6e 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 n and calculate
1d60: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a message digest *
1d70: 2f 0a 20 20 20 20 72 65 73 20 3d 20 54 6c 73 5f /. res = Tls_
1d80: 44 69 67 65 73 74 46 69 6e 69 61 6c 69 7a 65 28 DigestFinialize(
1d90: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
1da0: 29 3b 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a );..done:. /*
1db0: 20 43 6c 6f 73 65 20 63 68 61 6e 6e 65 6c 20 2a Close channel *
1dc0: 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 43 6c /. if (Tcl_Cl
1dd0: 6f 73 65 28 69 6e 74 65 72 70 2c 20 63 68 61 6e ose(interp, chan
1de0: 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 ) == TCL_ERROR)
1df0: 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 {..res = TCL_ERR
1e00: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
1e10: 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 * Clean-up */.
1e20: 20 20 54 6c 73 5f 44 69 67 65 73 74 46 72 65 65 Tls_DigestFree
1e30: 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 (statePtr);.
1e40: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
1e50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1e60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1e70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1e80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1e90: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
1ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1ee0: 2a 0a 20 2a 20 44 69 67 65 73 74 42 6c 6f 63 6b *. * DigestBlock
1ef0: 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 ModeProc --. *.
1f00: 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 *.This function
1f10: 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 is invoked by th
1f20: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 e generic IO lev
1f30: 65 6c 0a 20 2a 20 20 20 20 20 20 20 74 6f 20 73 el. * to s
1f40: 65 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 et blocking and
1f50: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
1f60: 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 s.. *. * Returns
1f70: 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 :. *.0 if succes
1f80: 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 sful or POSIX er
1f90: 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c ror code if fail
1fa0: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
1fb0: 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 ffects:. *.Sets
1fc0: 74 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 the device into
1fd0: 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 blocking or nonb
1fe0: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a locking mode.. *
1ff0: 09 43 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53 65 .Can call Tcl_Se
2000: 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 tChannelError..
2010: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2050: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
2060: 69 63 20 69 6e 74 20 44 69 67 65 73 74 42 6c 6f ic int DigestBlo
2070: 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e ckModeProc(Clien
2080: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
2090: 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 20 , int mode) {.
20a0: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
20b0: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
20c0: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
20d0: 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d Data;.. if (m
20e0: 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f ode == TCL_MODE_
20f0: 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 NONBLOCKING) {..
2100: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2110: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 |= TLS_TCL_ASYNC
2120: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
2130: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2140: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 &= ~(TLS_TCL_ASY
2150: 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 NC);. }. r
2160: 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 eturn 0;.}../*.
2170: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21b0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
21c0: 74 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a tCloseProc --. *
21d0: 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f . *.This functio
21e0: 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 n is invoked by
21f0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
2200: 65 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a evel to perform.
2210: 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 70 65 2d *.channel-type-
2220: 73 70 65 63 69 66 69 63 20 63 6c 65 61 6e 75 70 specific cleanup
2230: 20 77 68 65 6e 20 63 68 61 6e 6e 65 6c 20 69 73 when channel is
2240: 20 63 6c 6f 73 65 64 2e 20 41 6c 6c 0a 20 2a 09 closed. All. *.
2250: 71 75 65 75 65 64 20 6f 75 74 70 75 74 20 69 73 queued output is
2260: 20 66 6c 75 73 68 65 64 20 70 72 69 6f 72 20 74 flushed prior t
2270: 6f 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 o calling this f
2280: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
2290: 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 20 eturns:. *.0 if
22a0: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f successful or PO
22b0: 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 SIX error code i
22c0: 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 f failed.. *. *
22d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
22e0: 09 57 72 69 74 65 73 20 64 69 67 65 73 74 20 74 .Writes digest t
22f0: 6f 20 6f 75 74 70 75 74 20 61 6e 64 20 63 6c 6f o output and clo
2300: 73 65 73 20 74 68 65 20 63 68 61 6e 6e 65 6c 2e ses the channel.
2310: 20 53 74 6f 72 65 73 20 65 72 72 6f 72 0a 20 2a Stores error. *
2320: 09 6d 65 73 73 61 67 65 73 20 69 6e 20 69 6e 74 .messages in int
2330: 65 72 70 20 72 65 73 75 6c 74 20 75 73 69 6e 67 erp result using
2340: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 45 Tcl_GetChannelE
2350: 72 72 6f 72 49 6e 74 65 72 70 2e 0a 20 2a 0a 20 rrorInterp.. *.
2360: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23a0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
23b0: 65 73 74 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 estCloseProc(Cli
23c0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
23d0: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
23e0: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 44 69 interp) {. Di
23f0: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
2400: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
2410: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
2420: 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 63 65 6c ;.. /* Cancel
2430: 20 61 63 74 69 76 65 20 74 69 6d 65 72 2c 20 69 active timer, i
2440: 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 66 20 f any */. if
2450: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
2460: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
2470: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
2480: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
2490: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
24a0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
24b0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
24c0: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
24d0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
24e0: 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 54 lean-up */. T
24f0: 6c 73 5f 44 69 67 65 73 74 46 72 65 65 28 73 74 ls_DigestFree(st
2500: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 atePtr);. ret
2510: 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 urn 0;.}../*. *
2520: 53 61 6d 65 20 61 73 20 44 69 67 65 73 74 43 6c Same as DigestCl
2530: 6f 73 65 50 72 6f 63 20 62 75 74 20 77 69 74 68 oseProc but with
2540: 20 69 6e 64 69 76 69 64 75 61 6c 20 72 65 61 64 individual read
2550: 20 61 6e 64 20 77 72 69 74 65 20 63 6c 6f 73 65 and write close
2560: 20 63 6f 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 control. */.sta
2570: 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 43 6c tic int DigestCl
2580: 6f 73 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 ose2Proc(ClientD
2590: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
25a0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
25b0: 74 65 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 terp, int flags)
25c0: 20 7b 0a 0a 20 20 20 20 69 66 20 28 28 66 6c 61 {.. if ((fla
25d0: 67 73 20 26 20 28 54 43 4c 5f 43 4c 4f 53 45 5f gs & (TCL_CLOSE_
25e0: 52 45 41 44 20 7c 20 54 43 4c 5f 43 4c 4f 53 45 READ | TCL_CLOSE
25f0: 5f 57 52 49 54 45 29 29 20 3d 3d 20 30 29 20 7b _WRITE)) == 0) {
2600: 0a 09 72 65 74 75 72 6e 20 44 69 67 65 73 74 43 ..return DigestC
2610: 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 loseProc(instanc
2620: 65 44 61 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a eData, interp);.
2630: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
2640: 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 EINVAL;.}../*.
2650: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2690: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 -------. *. * Di
26a0: 67 65 73 74 49 6e 70 75 74 50 72 6f 63 20 2d 2d gestInputProc --
26b0: 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 . *. *.Called by
26c0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
26d0: 73 79 73 74 65 6d 20 74 6f 20 72 65 61 64 20 64 system to read d
26e0: 61 74 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f ata from transfo
26f0: 72 6d 20 61 6e 64 0a 20 2a 09 70 6c 61 63 65 20 rm and. *.place
2700: 69 6e 20 62 75 66 2e 0a 20 2a 0a 20 2a 20 52 65 in buf.. *. * Re
2710: 74 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 turns:. *.Total
2720: 62 79 74 65 73 20 72 65 61 64 20 6f 72 20 2d 31 bytes read or -1
2730: 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 6c for an error al
2740: 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 49 58 ong with a POSIX
2750: 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 69 error. *.code i
2760: 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2e 20 n errorCodePtr.
2770: 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 20 6e Use EAGAIN for n
2780: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e onblocking and n
2790: 6f 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 53 69 o data.. *. * Si
27a0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 de effects:. *.R
27b0: 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 74 72 ead data from tr
27c0: 61 6e 73 66 6f 72 6d 20 61 6e 64 20 77 72 69 74 ansform and writ
27d0: 65 20 74 6f 20 62 75 66 0a 20 2a 0a 20 2a 2d 2d e to buf. *. *--
27e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2820: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
2830: 65 73 74 49 6e 70 75 74 50 72 6f 63 28 43 6c 69 estInputProc(Cli
2840: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
2850: 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 69 ta, char *buf, i
2860: 6e 74 20 74 6f 52 65 61 64 2c 20 69 6e 74 20 2a nt toRead, int *
2870: 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a errorCodePtr) {.
2880: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
2890: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 *statePtr = (Dig
28a0: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 estState *) clie
28b0: 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ntData;. Tcl_
28c0: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a Channel parent;.
28d0: 20 20 20 20 69 6e 74 20 72 65 61 64 2c 20 72 65 int read, re
28e0: 73 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 s;. *errorCod
28f0: 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 2f ePtr = 0;.. /
2900: 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 69 * Abort if nothi
2910: 6e 67 20 74 6f 20 70 72 6f 63 65 73 73 20 2a 2f ng to process */
2920: 0a 20 20 20 20 69 66 20 28 74 6f 52 65 61 64 20 . if (toRead
2930: 3c 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 74 72 <= 0 || statePtr
2940: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
2950: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
2960: 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d .return 0;. }
2970: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 62 79 74 .. /* Get byt
2980: 65 73 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 es from underlyi
2990: 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 ng channel */.
29a0: 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 parent = Tcl_G
29b0: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
29c0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
29d0: 3b 0a 20 20 20 20 72 65 61 64 20 3d 20 54 63 6c ;. read = Tcl
29e0: 5f 52 65 61 64 52 61 77 28 70 61 72 65 6e 74 2c _ReadRaw(parent,
29f0: 20 62 75 66 2c 20 74 6f 52 65 61 64 29 3b 0a 0a buf, toRead);..
2a00: 20 20 20 20 2f 2a 20 55 70 64 61 74 65 20 68 61 /* Update ha
2a10: 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 sh function */.
2a20: 20 20 20 69 66 20 28 72 65 61 64 20 3e 20 30 29 if (read > 0)
2a30: 20 7b 0a 09 69 66 20 28 21 54 6c 73 5f 44 69 67 {..if (!Tls_Dig
2a40: 65 73 74 55 70 64 61 74 65 28 73 74 61 74 65 50 estUpdate(stateP
2a50: 74 72 2c 20 62 75 66 2c 20 28 73 69 7a 65 5f 74 tr, buf, (size_t
2a60: 29 20 72 65 61 64 29 29 20 7b 0a 09 20 20 20 20 ) read)) {..
2a70: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 Tcl_SetChannelEr
2a80: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ror(statePtr->se
2a90: 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 lf, Tcl_ObjPrint
2aa0: 66 28 22 44 69 67 65 73 74 20 75 70 64 61 74 65 f("Digest update
2ab0: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 52 45 failed: %s", RE
2ac0: 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 20 20 2a ASON()));.. *
2ad0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
2ae0: 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 74 75 INVAL;.. retu
2af0: 72 6e 20 2d 31 3b 0a 09 7d 0a 09 2f 2a 20 54 68 rn -1;..}../* Th
2b00: 69 73 20 69 73 20 63 6f 72 72 65 63 74 20 2a 2f is is correct */
2b10: 0a 09 72 65 61 64 20 3d 20 2d 31 3b 0a 09 2a 65 ..read = -1;..*e
2b20: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
2b30: 47 41 49 4e 3b 0a 09 20 20 20 20 0a 20 20 20 20 GAIN;.. .
2b40: 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 20 } else if (read
2b50: 3c 20 30 29 20 7b 0a 09 2f 2a 20 45 72 72 6f 72 < 0) {../* Error
2b60: 20 2a 2f 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 */..*errorCodeP
2b70: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
2b80: 6f 28 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 o();.. } else
2b90: 20 69 66 20 28 21 28 73 74 61 74 65 50 74 72 2d if (!(statePtr-
2ba0: 3e 66 6c 61 67 73 20 26 20 43 48 41 4e 5f 45 4f >flags & CHAN_EO
2bb0: 46 29 29 20 7b 0a 09 2f 2a 20 45 4f 46 20 2a 2f F)) {../* EOF */
2bc0: 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ..unsigned char
2bd0: 6d 64 5f 62 75 66 5b 45 56 50 5f 4d 41 58 5f 4d md_buf[EVP_MAX_M
2be0: 44 5f 53 49 5a 45 5d 3b 0a 09 75 6e 73 69 67 6e D_SIZE];..unsign
2bf0: 65 64 20 69 6e 74 20 6d 64 5f 6c 65 6e 20 3d 20 ed int md_len =
2c00: 30 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a 65 0;.../* Finalize
2c10: 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 61 hash function a
2c20: 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 6d 65 73 nd calculate mes
2c30: 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 09 sage digest */..
2c40: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 74 if (statePtr->ct
2c50: 78 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 x != NULL) {..
2c60: 20 20 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65 res = EVP_Dige
2c70: 73 74 46 69 6e 61 6c 5f 65 78 28 73 74 61 74 65 stFinal_ex(state
2c80: 50 74 72 2d 3e 63 74 78 2c 20 6d 64 5f 62 75 66 Ptr->ctx, md_buf
2c90: 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 09 7d 20 65 , &md_len);..} e
2ca0: 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 73 20 3d lse {.. res =
2cb0: 20 48 4d 41 43 5f 46 69 6e 61 6c 28 73 74 61 74 HMAC_Final(stat
2cc0: 65 50 74 72 2d 3e 68 63 74 78 2c 20 6d 64 5f 62 ePtr->hctx, md_b
2cd0: 75 66 2c 20 26 6d 64 5f 6c 65 6e 29 3b 0a 09 7d uf, &md_len);..}
2ce0: 0a 09 69 66 20 28 21 72 65 73 29 20 7b 0a 09 20 ..if (!res) {..
2cf0: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 Tcl_SetChanne
2d00: 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d lError(statePtr-
2d10: 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 >self, Tcl_ObjPr
2d20: 69 6e 74 66 28 22 44 69 67 65 73 74 20 66 69 6e intf("Digest fin
2d30: 61 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 25 73 alize failed: %s
2d40: 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 ", REASON()));..
2d50: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
2d60: 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 0a 09 2f 2a r = EINVAL;.../*
2d70: 20 57 72 69 74 65 20 6d 65 73 73 61 67 65 20 64 Write message d
2d80: 69 67 65 73 74 20 74 6f 20 6f 75 74 70 75 74 20 igest to output
2d90: 63 68 61 6e 6e 65 6c 20 61 73 20 62 79 74 65 20 channel as byte
2da0: 61 72 72 61 79 20 6f 72 20 68 65 78 20 73 74 72 array or hex str
2db0: 69 6e 67 20 2a 2f 0a 09 7d 20 65 6c 73 65 20 69 ing */..} else i
2dc0: 66 20 28 6d 64 5f 6c 65 6e 20 3e 20 30 29 20 7b f (md_len > 0) {
2dd0: 0a 09 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
2de0: 74 72 2d 3e 66 6f 72 6d 61 74 20 3d 3d 20 42 49 tr->format == BI
2df0: 4e 5f 46 4f 52 4d 41 54 20 26 26 20 74 6f 52 65 N_FORMAT && toRe
2e00: 61 64 20 3e 3d 20 28 69 6e 74 29 20 6d 64 5f 6c ad >= (int) md_l
2e10: 65 6e 29 20 7b 0a 09 09 72 65 61 64 20 3d 20 6d en) {...read = m
2e20: 64 5f 6c 65 6e 3b 0a 09 09 6d 65 6d 63 70 79 28 d_len;...memcpy(
2e30: 62 75 66 2c 20 6d 64 5f 62 75 66 2c 20 72 65 61 buf, md_buf, rea
2e40: 64 29 3b 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 d);... } else
2e50: 20 69 66 28 73 74 61 74 65 50 74 72 2d 3e 66 6f if(statePtr->fo
2e60: 72 6d 61 74 20 3d 3d 20 48 45 58 5f 46 4f 52 4d rmat == HEX_FORM
2e70: 41 54 20 26 26 20 74 6f 52 65 61 64 20 3e 3d 20 AT && toRead >=
2e80: 28 69 6e 74 29 20 28 6d 64 5f 6c 65 6e 2a 32 29 (int) (md_len*2)
2e90: 29 20 7b 0a 09 09 75 6e 73 69 67 6e 65 64 20 63 ) {...unsigned c
2ea0: 68 61 72 20 68 65 78 5f 62 75 66 5b 45 56 50 5f har hex_buf[EVP_
2eb0: 4d 41 58 5f 4d 44 5f 53 49 5a 45 2a 32 5d 3b 0a MAX_MD_SIZE*2];.
2ec0: 09 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ..unsigned char
2ed0: 2a 70 74 72 20 3d 20 68 65 78 5f 62 75 66 3b 0a *ptr = hex_buf;.
2ee0: 0a 09 09 66 6f 72 20 28 75 6e 73 69 67 6e 65 64 ...for (unsigned
2ef0: 20 69 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c 20 int i = 0; i <
2f00: 6d 64 5f 6c 65 6e 3b 20 69 2b 2b 29 20 7b 0a 09 md_len; i++) {..
2f10: 09 20 20 20 20 2a 70 74 72 2b 2b 20 3d 20 68 65 . *ptr++ = he
2f20: 78 5b 28 6d 64 5f 62 75 66 5b 69 5d 20 3e 3e 20 x[(md_buf[i] >>
2f30: 34 29 20 26 20 30 78 30 46 5d 3b 0a 09 09 20 20 4) & 0x0F];...
2f40: 20 20 2a 70 74 72 2b 2b 20 3d 20 68 65 78 5b 6d *ptr++ = hex[m
2f50: 64 5f 62 75 66 5b 69 5d 20 26 20 30 78 30 46 5d d_buf[i] & 0x0F]
2f60: 3b 0a 09 09 7d 0a 09 09 72 65 61 64 20 3d 20 6d ;...}...read = m
2f70: 64 5f 6c 65 6e 2a 32 3b 0a 09 09 6d 65 6d 63 70 d_len*2;...memcp
2f80: 79 28 62 75 66 2c 20 68 65 78 5f 62 75 66 2c 20 y(buf, hex_buf,
2f90: 72 65 61 64 29 3b 0a 09 20 20 20 20 7d 0a 09 7d read);.. }..}
2fa0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2fb0: 73 20 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 s |= CHAN_EOF;.
2fc0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
2fd0: 72 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d read;.}../*. *--
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3020: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
3030: 74 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 tOutputProc --.
3040: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
3050: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 he generic IO sy
3060: 73 74 65 6d 20 74 6f 20 77 72 69 74 65 20 64 61 stem to write da
3070: 74 61 20 69 6e 20 62 75 66 20 74 6f 20 74 72 61 ta in buf to tra
3080: 6e 73 66 6f 72 6d 2e 0a 20 2a 0a 20 2a 20 52 65 nsform.. *. * Re
3090: 74 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 turns:. *.Total
30a0: 62 79 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72 bytes written or
30b0: 20 2d 31 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 -1 for an error
30c0: 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 20 50 4f along with a PO
30d0: 53 49 58 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 SIX error. *.cod
30e0: 65 20 69 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 e in errorCodePt
30f0: 72 2e 20 55 73 65 20 45 41 47 41 49 4e 20 66 6f r. Use EAGAIN fo
3100: 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e r nonblocking an
3110: 64 20 63 61 6e 27 74 20 77 72 69 74 65 20 64 61 d can't write da
3120: 74 61 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ta.. *. * Side e
3130: 66 66 65 63 74 73 3a 0a 20 2a 09 47 65 74 20 64 ffects:. *.Get d
3140: 61 74 61 20 66 72 6f 6d 20 62 75 66 20 61 6e 64 ata from buf and
3150: 20 75 70 64 61 74 65 20 64 69 67 65 73 74 0a 20 update digest.
3160: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
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 0a 20 2a 2f 0a 20 ----------. */.
31b0: 69 6e 74 20 44 69 67 65 73 74 4f 75 74 70 75 74 int DigestOutput
31c0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
31d0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 6f 6e 73 clientData, cons
31e0: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 t char *buf, int
31f0: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
3200: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 rrorCodePtr) {.
3210: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a DigestState *
3220: 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 statePtr = (Dige
3230: 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e stState *) clien
3240: 74 44 61 74 61 3b 0a 20 20 20 20 2a 65 72 72 6f tData;. *erro
3250: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 rCodePtr = 0;..
3260: 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e /* Abort if n
3270: 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 65 73 othing to proces
3280: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f 57 s */. if (toW
3290: 72 69 74 65 20 3c 3d 20 30 20 7c 7c 20 73 74 61 rite <= 0 || sta
32a0: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
32b0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
32c0: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a L) {..return 0;.
32d0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 55 70 }.. /* Up
32e0: 64 61 74 65 20 68 61 73 68 20 66 75 6e 63 74 69 date hash functi
32f0: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f on */. if (to
3300: 57 72 69 74 65 20 3e 20 30 20 26 26 20 21 54 6c Write > 0 && !Tl
3310: 73 5f 44 69 67 65 73 74 55 70 64 61 74 65 28 73 s_DigestUpdate(s
3320: 74 61 74 65 50 74 72 2c 20 62 75 66 2c 20 28 73 tatePtr, buf, (s
3330: 69 7a 65 5f 74 29 20 74 6f 57 72 69 74 65 29 29 ize_t) toWrite))
3340: 20 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e {..Tcl_SetChann
3350: 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 elError(statePtr
3360: 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 ->self, Tcl_ObjP
3370: 72 69 6e 74 66 28 22 44 69 67 65 73 74 20 75 70 rintf("Digest up
3380: 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 date failed: %s"
3390: 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 2a , REASON()));..*
33a0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
33b0: 49 4e 56 41 4c 3b 0a 09 72 65 74 75 72 6e 20 2d INVAL;..return -
33c0: 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 1;. }. ret
33d0: 75 72 6e 20 74 6f 57 72 69 74 65 3b 0a 7d 0a 0a urn toWrite;.}..
33e0: 2f 2a 0a 20 2a 2d 2d 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 0a 20 2a 0a 20 -----------. *.
3430: 2a 20 44 69 67 65 73 74 53 65 74 4f 70 74 69 6f * DigestSetOptio
3440: 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 nProc --. *. *.C
3450: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e alled by the gen
3460: 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 eric IO system t
3470: 6f 20 73 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 o set channel op
3480: 74 69 6f 6e 20 6e 61 6d 65 20 74 6f 20 76 61 6c tion name to val
3490: 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ue.. *. * Return
34a0: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 s:. *.TCL_OK if
34b0: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 successful or TC
34c0: 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 L_ERROR if faile
34d0: 64 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 20 d along with an
34e0: 65 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 65 error. *.message
34f0: 20 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 54 in interp and T
3500: 63 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a cl_SetErrno.. *.
3510: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
3520: 0a 20 2a 09 55 70 64 61 74 65 73 20 63 68 61 6e . *.Updates chan
3530: 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 nel option to ne
3540: 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d w 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
35a0: 69 6e 74 20 44 69 67 65 73 74 53 65 74 4f 70 74 int DigestSetOpt
35b0: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
35c0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
35d0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
35e0: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f p, const char *o
35f0: 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f 6e 73 ptionName,..cons
3600: 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 61 t char *optionVa
3610: 6c 75 65 29 20 7b 0a 20 20 20 20 44 69 67 65 73 lue) {. Diges
3620: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
3630: 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 = (DigestState
3640: 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 *) clientData;.
3650: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 Tcl_Channel p
3660: 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 arent;. Tcl_D
3670: 72 69 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 72 riverSetOptionPr
3680: 6f 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f oc *setOptionPro
3690: 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 c;.. /* Abort
36a0: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
36b0: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
36c0: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
36d0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
36e0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
36f0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
3700: 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 69 /* Delegate opti
3710: 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 2a ons downstream *
3720: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
3730: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
3740: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
3750: 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f 70 74 elf);. setOpt
3760: 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 ionProc = Tcl_Ch
3770: 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 72 annelSetOptionPr
3780: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
3790: 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a lType(parent));.
37a0: 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 6f if (setOptio
37b0: 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b nProc != NULL) {
37c0: 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f 70 ..return (*setOp
37d0: 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 tionProc)(Tcl_Ge
37e0: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
37f0: 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e Data(parent), in
3800: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
3810: 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a , optionValue);.
3820: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
3830: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 41 l_SetErrno(EINVA
3840: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f L);..return Tcl_
3850: 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e BadChannelOption
3860: 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e (interp, optionN
3870: 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 ame, NULL);.
3880: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 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: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 47 65 74 . *. * DigestGet
38e0: 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a OptionProc --. *
38f0: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 . *.Called by th
3900: 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 e generic IO sys
3910: 74 65 6d 20 74 6f 20 67 65 74 20 63 68 61 6e 6e tem to get chann
3920: 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 27 73 el option name's
3930: 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 value.. *. * Re
3940: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
3950: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
3960: 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 r TCL_ERROR if f
3970: 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 74 68 ailed along with
3980: 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 an error. *.mes
3990: 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 20 61 sage in interp a
39a0: 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 2e nd Tcl_SetErrno.
39b0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
39c0: 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 cts:. *.Sets res
39d0: 75 6c 74 20 74 6f 20 6f 70 74 69 6f 6e 27 73 20 ult to option's
39e0: 76 61 6c 75 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
3a40: 20 44 69 67 65 73 74 47 65 74 4f 70 74 69 6f 6e DigestGetOption
3a50: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
3a60: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
3a70: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3a80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 const char *opti
3a90: 6f 6e 4e 61 6d 65 2c 0a 09 54 63 6c 5f 44 53 74 onName,..Tcl_DSt
3aa0: 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 ring *optionValu
3ab0: 65 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 e) {. DigestS
3ac0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
3ad0: 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 (DigestState *)
3ae0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
3af0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
3b00: 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 ent;. Tcl_Dri
3b10: 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 verGetOptionProc
3b20: 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b *getOptionProc;
3b30: 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 .. /* Abort i
3b40: 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a f no channel */.
3b50: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
3b60: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
3b70: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
3b80: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3b90: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
3ba0: 20 44 65 6c 65 67 61 74 65 20 6f 70 74 69 6f 6e Delegate option
3bb0: 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 2a 2f 0a s downstream */.
3bc0: 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c parent = Tcl
3bd0: 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e _GetStackedChann
3be0: 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c el(statePtr->sel
3bf0: 66 29 3b 0a 20 20 20 20 67 65 74 4f 70 74 69 6f f);. getOptio
3c00: 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e nProc = Tcl_Chan
3c10: 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 nelGetOptionProc
3c20: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
3c30: 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 ype(parent));.
3c40: 20 20 69 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 if (getOptionP
3c50: 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 roc != NULL) {..
3c60: 72 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 return (*getOpti
3c70: 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 onProc)(Tcl_GetC
3c80: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
3c90: 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 ta(parent), inte
3ca0: 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 rp, optionName,
3cb0: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 optionValue);.
3cc0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74 } else if (opt
3cd0: 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 ionName == (char
3ce0: 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 52 *) NULL) {../* R
3cf0: 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79 20 equest is query
3d00: 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c for all options,
3d10: 20 74 68 69 73 20 69 73 20 6f 6b 2e 20 2a 2f 0a this is ok. */.
3d20: 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a .return TCL_OK;.
3d30: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
3d40: 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 41 l_SetErrno(EINVA
3d50: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f L);..return Tcl_
3d60: 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e BadChannelOption
3d70: 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e (interp, optionN
3d80: 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 ame, NULL);.
3d90: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 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: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 54 69 6d . *. * DigestTim
3df0: 65 72 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a erHandler --. *.
3e00: 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 *.Called by the
3e10: 20 6e 6f 74 69 66 69 65 72 20 76 69 61 20 74 69 notifier via ti
3e20: 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 mer to flush out
3e30: 20 70 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 64 pending input d
3e40: 61 74 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ata.. *. * Retur
3e50: 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 ns:. *.Nothing.
3e60: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3e70: 73 3a 0a 20 2a 09 4d 61 79 20 63 61 6c 6c 20 54 s:. *.May call T
3e80: 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c cl_NotifyChannel
3e90: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
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 0a 20 2a 2f ------------. */
3ee0: 0a 73 74 61 74 69 63 20 76 6f 69 64 20 44 69 67 .static void Dig
3ef0: 65 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 estTimerHandler(
3f00: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3f10: 74 44 61 74 61 29 20 7b 0a 20 20 20 20 44 69 67 tData) {. Dig
3f20: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
3f30: 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 tr = (DigestStat
3f40: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
3f50: 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 .. /* Abort i
3f60: 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a f no channel */.
3f70: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
3f80: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
3f90: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
3fa0: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a .return;. }..
3fb0: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 69 6d /* Clear tim
3fc0: 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 20 er token */.
3fd0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
3fe0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
3ff0: 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a n) NULL;.. /*
4000: 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 20 74 Fire event if t
4010: 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e 67 20 here is pending
4020: 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 65 72 data, skip other
4030: 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 wise */. if (
4040: 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 (statePtr->watch
4050: 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 Mask & TCL_READA
4060: 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e 70 BLE) && (Tcl_Inp
4070: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
4080: 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 29 Ptr->self) > 0))
4090: 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 43 68 {..Tcl_NotifyCh
40a0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
40b0: 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 41 42 self, TCL_READAB
40c0: 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a LE);. }.}../*
40d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
4120: 44 69 67 65 73 74 57 61 74 63 68 50 72 6f 63 20 DigestWatchProc
4130: 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c --. *. *.Initial
4140: 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 72 ize the notifier
4150: 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 65 76 to watch for ev
4160: 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 20 63 ents from this c
4170: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
4180: 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e turns:. *.Nothin
4190: 67 20 28 63 61 6e 27 74 20 72 65 74 75 72 6e 20 g (can't return
41a0: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 29 0a error messages).
41b0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
41c0: 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 72 65 ts:. *.Configure
41d0: 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 75 74 notifier so fut
41e0: 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 74 68 ure events on th
41f0: 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c 20 62 e channel will b
4200: 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a 20 e seen by Tcl..
4210: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 ----------. */.#
4260: 64 65 66 69 6e 65 20 52 45 41 44 5f 44 45 4c 41 define READ_DELA
4270: 59 09 35 0a 76 6f 69 64 20 44 69 67 65 73 74 57 Y.5.void DigestW
4280: 61 74 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 atchProc(ClientD
4290: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
42a0: 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 20 20 20 int mask) {.
42b0: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
42c0: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 tePtr = (DigestS
42d0: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
42e0: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ta;. Tcl_Chan
42f0: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 nel parent;.
4300: 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 50 Tcl_DriverWatchP
4310: 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a roc *watchProc;.
4320: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
4330: 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 no channel */.
4340: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
4350: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
4360: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
4370: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 return;. }..
4380: 20 20 20 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 /* Store OR-e
4390: 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 d combination of
43a0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 TCL_READABLE, T
43b0: 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 CL_WRITABLE and
43c0: 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f TCL_EXCEPTION */
43d0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 . statePtr->w
43e0: 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b atchMask = mask;
43f0: 0a 0a 20 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 .. /* Propaga
4400: 74 65 20 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 te mask info to
4410: 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a parent channel *
4420: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
4430: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
4440: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
4450: 65 6c 66 29 3b 0a 20 20 20 20 77 61 74 63 68 50 elf);. watchP
4460: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
4470: 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 lWatchProc(Tcl_G
4480: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 etChannelType(pa
4490: 72 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 63 rent));. watc
44a0: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
44b0: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
44c0: 28 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b (parent), mask);
44d0: 0a 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 .. /* Remove
44e0: 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f pending timer */
44f0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4500: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
4510: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
4520: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
4530: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
4540: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
4550: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
4560: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
4570: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a n) NULL;. }..
4580: 20 20 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 /* If there
4590: 69 73 20 64 61 74 61 20 70 65 6e 64 69 6e 67 2c is data pending,
45a0: 20 73 65 74 20 6e 65 77 20 74 69 6d 65 72 20 74 set new timer t
45b0: 6f 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 o call Tcl_Notif
45c0: 79 43 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 yChannel */.
45d0: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
45e0: 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 54 63 READABLE) && (Tc
45f0: 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 l_InputBuffered(
4600: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 statePtr->self)
4610: 3e 20 30 29 29 20 7b 0a 09 73 74 61 74 65 50 74 > 0)) {..statePt
4620: 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 r->timer = Tcl_C
4630: 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 reateTimerHandle
4640: 72 28 52 45 41 44 5f 44 45 4c 41 59 2c 20 44 69 r(READ_DELAY, Di
4650: 67 65 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 gestTimerHandler
4660: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
4670: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d 0a tatePtr);. }.
4680: 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
46c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
46d0: 2a 0a 20 2a 20 44 69 67 65 73 74 47 65 74 48 61 *. * DigestGetHa
46e0: 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 ndleProc --. *.
46f0: 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 *.Called from Tc
4700: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 l_GetChannelHand
4710: 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 20 4f le to retrieve O
4720: 53 20 73 70 65 63 69 66 69 63 20 66 69 6c 65 20 S specific file
4730: 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f 6d 20 69 handle. *.from i
4740: 6e 73 69 64 65 20 74 68 69 73 20 63 68 61 6e 6e nside this chann
4750: 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 el. Not used for
4760: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 transformations
4770: 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a ?. *. * Returns:
4780: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f 72 20 73 . *.TCL_OK for s
4790: 75 63 63 65 73 73 20 6f 72 20 54 43 4c 5f 45 52 uccess or TCL_ER
47a0: 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 20 6f 72 ROR for error or
47b0: 20 69 66 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 if not supporte
47c0: 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 63 74 69 d. If. *.directi
47d0: 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 41 42 on is TCL_READAB
47e0: 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 6c 65 50 LE, sets handleP
47f0: 74 72 20 74 6f 20 74 68 65 20 68 61 6e 64 6c 65 tr to the handle
4800: 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 69 6e 70 used for. *.inp
4810: 75 74 2c 20 6f 72 20 69 66 20 54 43 4c 5f 57 52 ut, or if TCL_WR
4820: 49 54 41 42 4c 45 20 73 65 74 73 20 74 6f 20 74 ITABLE sets to t
4830: 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 20 66 he handle used f
4840: 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a 0a 20 2a or output.. *. *
4850: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4860: 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d *.None. *. *----
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 2d ----------------
48a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48b0: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 --. */.int Diges
48c0: 74 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 tGetHandleProc(C
48d0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
48e0: 44 61 74 61 2c 20 69 6e 74 20 64 69 72 65 63 74 Data, int direct
48f0: 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 ion, ClientData
4900: 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b 0a 20 20 *handlePtr) {.
4910: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
4920: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
4930: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
4940: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 Data;. Tcl_Ch
4950: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 0a 20 annel parent;..
4960: 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e /* Abort if n
4970: 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 o channel */.
4980: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
4990: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
49a0: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
49b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
49c0: 20 20 20 20 7d 0a 0a 20 20 20 20 70 61 72 65 6e }.. paren
49d0: 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b t = Tcl_GetStack
49e0: 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 edChannel(stateP
49f0: 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 72 tr->self);. r
4a00: 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 eturn Tcl_GetCha
4a10: 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e nnelHandle(paren
4a20: 74 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 t, direction, ha
4a30: 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a ndlePtr);.}../*.
4a40: 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a80: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
4a90: 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f 63 20 igestNotifyProc
4aa0: 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 --. *. *.Called
4ab0: 62 79 20 54 63 6c 20 74 6f 20 69 6e 66 6f 72 6d by Tcl to inform
4ac0: 20 75 73 20 6f 66 20 61 63 74 69 76 69 74 79 20 us of activity
4ad0: 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e on the underlyin
4ae0: 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a g channel.. *. *
4af0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 55 6e 63 Returns:. *.Unc
4b00: 68 61 6e 67 65 64 20 69 6e 74 65 72 65 73 74 4d hanged interestM
4b10: 61 73 6b 20 77 68 69 63 68 20 69 73 20 61 6e 20 ask which is an
4b20: 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f OR-ed combinatio
4b30: 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c n of TCL_READABL
4b40: 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c E or TCL_WRITABL
4b50: 45 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 E. *. * Side eff
4b60: 65 63 74 73 3a 0a 20 2a 09 43 61 6e 63 65 6c 73 ects:. *.Cancels
4b70: 20 61 6e 79 20 70 65 6e 64 69 6e 67 20 74 69 6d any pending tim
4b80: 65 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d er.. *. *-------
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 2d 2d 2d 2d ----------------
4bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4bd0: 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 4e 6f */.int DigestNo
4be0: 74 69 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 tifyProc(ClientD
4bf0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
4c00: 69 6e 74 20 69 6e 74 65 72 65 73 74 4d 61 73 6b int interestMask
4c10: 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 ) {. DigestSt
4c20: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
4c30: 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 (DigestState *)
4c40: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
4c50: 20 2f 2a 20 53 6b 69 70 20 74 69 6d 65 72 20 65 /* Skip timer e
4c60: 76 65 6e 74 20 61 73 20 72 65 64 75 6e 64 61 6e vent as redundan
4c70: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 t */. if (sta
4c80: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
4c90: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
4ca0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 NULL) {..Tcl_De
4cb0: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
4cc0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
4cd0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
4ce0: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
4cf0: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 Token) NULL;.
4d00: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 69 6e }. return in
4d10: 74 65 72 65 73 74 4d 61 73 6b 3b 0a 7d 0a 0a 2f terestMask;.}../
4d20: 2a 0a 20 2a 0a 20 2a 20 43 68 61 6e 6e 65 6c 20 *. *. * Channel
4d30: 74 79 70 65 20 73 74 72 75 63 74 75 72 65 20 64 type structure d
4d40: 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20 64 69 efinition for di
4d50: 67 65 73 74 20 74 72 61 6e 73 66 6f 72 6d 61 74 gest transformat
4d60: 69 6f 6e 73 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 ions.. *. */.sta
4d70: 74 69 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 tic const Tcl_Ch
4d80: 61 6e 6e 65 6c 54 79 70 65 20 64 69 67 65 73 74 annelType digest
4d90: 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a ChannelType = {.
4da0: 20 20 20 20 22 64 69 67 65 73 74 22 2c 09 09 09 "digest",...
4db0: 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a 2f 0a /* Type name */.
4dc0: 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f TCL_CHANNEL_
4dd0: 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 76 35 VERSION_5,./* v5
4de0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
4df0: 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 2c DigestCloseProc,
4e00: 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 ../* Close proc
4e10: 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 49 6e 70 */. DigestInp
4e20: 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 utProc,../* Inpu
4e30: 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 t proc */. Di
4e40: 67 65 73 74 4f 75 74 70 75 74 50 72 6f 63 2c 09 gestOutputProc,.
4e50: 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 20 ./* Output proc
4e60: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
4e70: 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 * Seek proc */.
4e80: 20 20 20 44 69 67 65 73 74 53 65 74 4f 70 74 69 DigestSetOpti
4e90: 6f 6e 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 6f onProc,./* Set o
4ea0: 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 ption proc */.
4eb0: 20 20 44 69 67 65 73 74 47 65 74 4f 70 74 69 6f DigestGetOptio
4ec0: 6e 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 6f 70 nProc,./* Get op
4ed0: 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 tion proc */.
4ee0: 20 44 69 67 65 73 74 57 61 74 63 68 50 72 6f 63 DigestWatchProc
4ef0: 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 ,../* Initialize
4f00: 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20 20 20 notifier */.
4f10: 20 44 69 67 65 73 74 47 65 74 48 61 6e 64 6c 65 DigestGetHandle
4f20: 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 4f 53 20 Proc,./* Get OS
4f30: 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20 63 handles out of c
4f40: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 44 69 hannel */. Di
4f50: 67 65 73 74 43 6c 6f 73 65 32 50 72 6f 63 2c 09 gestClose2Proc,.
4f60: 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 2a ./* close2proc *
4f70: 2f 0a 20 20 20 20 44 69 67 65 73 74 42 6c 6f 63 /. DigestBloc
4f80: 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a 20 53 65 kModeProc,./* Se
4f90: 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c t blocking/nonbl
4fa0: 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 ocking mode*/.
4fb0: 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 NULL,.../* Flu
4fc0: 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 sh proc */. D
4fd0: 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f 63 2c igestNotifyProc,
4fe0: 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 6f 66 ../* Handling of
4ff0: 20 65 76 65 6e 74 73 20 62 75 62 62 6c 69 6e 67 events bubbling
5000: 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c up */. NULL,
5010: 09 09 09 2f 2a 20 57 69 64 65 20 73 65 65 6b 20 .../* Wide seek
5020: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c proc */. NULL
5030: 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 20 61 63 ,.../* Thread ac
5040: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c tion */. NULL
5050: 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 65 20 2a .../* Truncate *
5060: 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 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 2d 2d ----------------
50a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50b0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 44 69 67 65 -. *. * Tls_Dige
50c0: 73 74 43 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a stChannel --. *.
50d0: 20 2a 09 43 72 65 61 74 65 20 61 20 73 74 61 63 *.Create a stac
50e0: 6b 65 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 ked channel for
50f0: 61 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 a message digest
5100: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e transformation.
5110: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
5120: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
5130: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
5140: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 e effects:. *.Ad
5150: 64 73 20 74 72 61 6e 73 66 6f 72 6d 20 74 6f 20 ds transform to
5160: 63 68 61 6e 6e 65 6c 20 61 6e 64 20 73 65 74 73 channel and sets
5170: 20 72 65 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e result to chann
5180: 65 6c 20 69 64 20 6f 72 20 65 72 72 6f 72 20 6d el id or error m
5190: 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d essage.. *. *---
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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51e0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
51f0: 6e 74 0a 54 6c 73 5f 44 69 67 65 73 74 43 68 61 nt.Tls_DigestCha
5200: 6e 6e 65 6c 28 54 63 6c 5f 49 6e 74 65 72 70 20 nnel(Tcl_Interp
5210: 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 *interp, const c
5220: 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 20 63 6f har *channel, co
5230: 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 20 nst EVP_MD *md,
5240: 69 6e 74 20 66 6f 72 6d 61 74 2c 0a 09 54 63 6c int format,..Tcl
5250: 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a _Obj *keyObj) {.
5260: 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a int mode; /*
5270: 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 OR-ed combinati
5280: 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 on of TCL_READAB
5290: 4c 45 20 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 LE and TCL_WRITA
52a0: 42 4c 45 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 43 BLE */. Tcl_C
52b0: 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 hannel chan;.
52c0: 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 DigestState *st
52d0: 61 74 65 50 74 72 3b 0a 0a 20 20 20 20 2f 2a 20 atePtr;.. /*
52e0: 56 61 6c 69 64 61 74 65 20 61 72 67 73 20 2a 2f Validate args */
52f0: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c . if (channel
5300: 20 3d 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 20 == (const char
5310: 2a 29 20 4e 55 4c 4c 20 7c 7c 20 6d 64 20 3d 3d *) NULL || md ==
5320: 20 28 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a (const EVP_MD *
5330: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
5340: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5350: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 }.. /* Get c
5360: 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 hannel Id */.
5370: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 chan = Tcl_GetC
5380: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 hannel(interp, c
5390: 68 61 6e 6e 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a hannel, &mode);.
53a0: 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 if (chan ==
53b0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
53c0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
53d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
53e0: 20 20 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 /* Make sure
53f0: 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 to operate on t
5400: 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e he topmost chann
5410: 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d el */. chan =
5420: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
5430: 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f el(chan);.. /
5440: 2a 20 43 72 65 61 74 65 20 73 74 61 74 65 20 64 * Create state d
5450: 61 74 61 20 73 74 72 75 63 74 20 2a 2f 0a 20 20 ata struct */.
5460: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 if ((statePtr
5470: 3d 20 54 6c 73 5f 44 69 67 65 73 74 4e 65 77 28 = Tls_DigestNew(
5480: 69 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 29 interp, format))
5490: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
54a0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
54b0: 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a terp, "Initializ
54c0: 65 20 64 69 67 65 73 74 20 65 72 72 6f 72 3a 20 e digest error:
54d0: 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f memory allocatio
54e0: 6e 20 66 61 69 6c 75 72 65 22 2c 20 28 63 68 61 n failure", (cha
54f0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
5500: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5510: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 }. statePt
5520: 72 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a r->self = chan;.
5530: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f statePtr->mo
5540: 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 de = mode;..
5550: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 68 61 /* Initialize ha
5560: 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 sh function */.
5570: 20 20 20 69 66 20 28 54 6c 73 5f 44 69 67 65 73 if (Tls_Diges
5580: 74 49 6e 69 74 28 69 6e 74 65 72 70 2c 20 73 74 tInit(interp, st
5590: 61 74 65 50 74 72 2c 20 6d 64 2c 20 6b 65 79 4f atePtr, md, keyO
55a0: 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b bj) != TCL_OK) {
55b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
55c0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
55d0: 2a 20 43 6f 6e 66 69 67 75 72 65 20 63 68 61 6e * Configure chan
55e0: 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 nel */. Tcl_S
55f0: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
5600: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
5610: 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 translation", "b
5620: 69 6e 61 72 79 22 29 3b 0a 20 20 20 20 69 66 20 inary");. if
5630: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 42 (Tcl_GetChannelB
5640: 75 66 66 65 72 53 69 7a 65 28 63 68 61 6e 29 20 ufferSize(chan)
5650: 3c 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a < EVP_MAX_MD_SIZ
5660: 45 20 2a 20 32 29 20 7b 0a 09 54 63 6c 5f 53 65 E * 2) {..Tcl_Se
5670: 74 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 tChannelBufferSi
5680: 7a 65 28 63 68 61 6e 2c 20 45 56 50 5f 4d 41 58 ze(chan, EVP_MAX
5690: 5f 4d 44 5f 53 49 5a 45 20 2a 20 32 29 3b 0a 20 _MD_SIZE * 2);.
56a0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 61 }.. /* Sta
56b0: 63 6b 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 ck channel */.
56c0: 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 statePtr->self
56d0: 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e = Tcl_StackChan
56e0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 26 64 69 67 nel(interp, &dig
56f0: 65 73 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c 20 estChannelType,
5700: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
5710: 74 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 61 tePtr, mode, cha
5720: 6e 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 n);. if (stat
5730: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
5740: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
5750: 29 20 7b 0a 09 54 6c 73 5f 44 69 67 65 73 74 46 ) {..Tls_DigestF
5760: 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 ree(statePtr);..
5770: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5780: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
5790: 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 63 68 Set result to ch
57a0: 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 annel Id */.
57b0: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
57c0: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 terp, (char *) T
57d0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d cl_GetChannelNam
57e0: 65 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 4f 4c e(chan), TCL_VOL
57f0: 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 ATILE);. retu
5800: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
5810: 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
5860: 55 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 6c 20 Unstack Channel
5870: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 --. *. *.This fu
5880: 6e 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 20 74 nction removes t
5890: 68 65 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e he stacked chann
58a0: 65 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f 70 20 el from the top
58b0: 6f 66 20 74 68 65 0a 20 2a 09 63 68 61 6e 6e 65 of the. *.channe
58c0: 6c 20 73 74 61 63 6b 20 69 66 20 69 74 20 69 73 l stack if it is
58d0: 20 61 20 64 69 67 65 73 74 20 63 68 61 6e 6e 65 a digest channe
58e0: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 l.. *. * Returns
58f0: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
5900: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
5910: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
5920: 52 65 6d 6f 76 65 73 20 74 72 61 6e 73 66 6f 72 Removes transfor
5930: 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 6f m from channel o
5940: 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f r sets result to
5950: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a error message..
5960: 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
59b0: 73 74 61 74 69 63 20 69 6e 74 0a 55 6e 73 74 61 static int.Unsta
59c0: 63 6b 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 ckObjCmd(ClientD
59d0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
59e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
59f0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
5a00: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
5a10: 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 v[]) {. Tcl_C
5a20: 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 hannel chan;.
5a30: 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 int mode; /* OR
5a40: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
5a50: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 of TCL_READABLE
5a60: 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 and TCL_WRITABLE
5a70: 20 20 2a 2f 0a 0a 20 20 20 20 2f 2a 20 56 61 6c */.. /* Val
5a80: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
5a90: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
5aa0: 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 2) {..Tcl_Wro
5ab0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
5ac0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e , 1, objv, "chan
5ad0: 6e 65 6c 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 nel");..return T
5ae0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5af0: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e . /* Get chan
5b00: 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 nel */. chan
5b10: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c = Tcl_GetChannel
5b20: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
5b30: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
5b40: 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 26 6d jv[1], NULL), &m
5b50: 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 ode);. if (ch
5b60: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e an == (Tcl_Chann
5b70: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
5b80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5b90: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b }.. /* Mak
5ba0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
5bb0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
5bc0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5bd0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
5be0: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
5bf0: 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 69 66 . /* Check if
5c00: 20 64 69 67 65 73 74 20 63 68 61 6e 6e 65 6c 20 digest channel
5c10: 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 */. if (Tcl_G
5c20: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 etChannelType(ch
5c30: 61 6e 29 20 21 3d 20 26 64 69 67 65 73 74 43 68 an) != &digestCh
5c40: 61 6e 6e 65 6c 54 79 70 65 29 20 7b 0a 09 54 63 annelType) {..Tc
5c50: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
5c60: 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e nterp, "bad chan
5c70: 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 nel \"", Tcl_Get
5c80: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
5c90: 29 2c 0a 09 20 20 20 20 22 5c 22 3a 20 6e 6f 74 ),.. "\": not
5ca0: 20 61 20 64 69 67 65 73 74 20 63 68 61 6e 6e 65 a digest channe
5cb0: 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f l", NULL);..Tcl_
5cc0: 53 65 74 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 SetErrorCode(int
5cd0: 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 55 4e 53 erp, "TLS", "UNS
5ce0: 54 41 43 4b 22 2c 20 22 43 48 41 4e 4e 45 4c 22 TACK", "CHANNEL"
5cf0: 2c 20 22 49 4e 56 41 4c 49 44 22 2c 20 28 63 68 , "INVALID", (ch
5d00: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
5d10: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5d20: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 50 6f }.. /* Po
5d30: 70 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f 6d p transform from
5d40: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5d50: 72 65 74 75 72 6e 20 54 63 6c 5f 55 6e 73 74 61 return Tcl_Unsta
5d60: 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 ckChannel(interp
5d70: 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 09 63 6c , chan);. .cl
5d80: 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e ientData = clien
5d90: 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a tData;.}../*****
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 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5dd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
5de0: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 .static const ch
5df0: 61 72 20 2a 69 6e 73 74 61 6e 63 65 5f 66 6e 73 ar *instance_fns
5e00: 20 5b 5d 20 3d 20 7b 20 22 66 69 6e 61 6c 69 7a [] = { "finaliz
5e10: 65 22 2c 20 22 75 70 64 61 74 65 22 2c 20 4e 55 e", "update", NU
5e20: 4c 4c 20 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d LL };../*. *----
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5e70: 20 2a 0a 20 2a 20 49 6e 73 74 61 6e 63 65 4f 62 *. * InstanceOb
5e80: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 48 61 jCmd --. *. *.Ha
5e90: 6e 64 6c 65 72 20 66 6f 72 20 64 69 67 65 73 74 ndler for digest
5ea0: 20 63 6f 6d 6d 61 6e 64 20 69 6e 73 74 61 6e 63 command instanc
5eb0: 65 73 2e 20 55 73 65 64 20 74 6f 20 61 64 64 20 es. Used to add
5ec0: 64 61 74 61 20 74 6f 20 68 61 73 68 0a 20 2a 09 data to hash. *.
5ed0: 66 75 6e 63 74 69 6f 6e 20 6f 72 20 72 65 74 72 function or retr
5ee0: 69 65 76 65 20 6d 65 73 73 61 67 65 20 64 69 67 ieve message dig
5ef0: 65 73 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 est.. *. * Retur
5f00: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
5f10: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
5f20: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
5f30: 2a 09 41 64 64 73 20 64 61 74 61 20 74 6f 20 68 *.Adds data to h
5f40: 61 73 68 20 6f 72 20 72 65 74 75 72 6e 73 20 6d ash or returns m
5f50: 65 73 73 61 67 65 20 64 69 67 65 73 74 0a 20 2a essage digest. *
5f60: 0a 20 2a 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 2d ----------------
5f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fa0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 49 ------. */.int I
5fb0: 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 28 43 6c nstanceObjCmd(Cl
5fc0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
5fd0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
5fe0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
5ff0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
6000: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
6010: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
6020: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 tePtr = (DigestS
6030: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
6040: 74 61 3b 0a 20 20 20 20 69 6e 74 20 66 6e 2c 20 ta;. int fn,
6050: 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 len = 0;. cha
6060: 72 20 2a 62 75 66 20 3d 20 4e 55 4c 4c 3b 0a 0a r *buf = NULL;..
6070: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
6080: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
6090: 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 7c 7c if (objc < 2 ||
60a0: 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 54 63 objc > 3) {..Tc
60b0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
60c0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
60d0: 22 66 75 6e 63 74 69 6f 6e 20 3f 64 61 74 61 3f "function ?data?
60e0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
60f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
6100: 20 20 2f 2a 20 47 65 74 20 66 75 6e 63 74 69 6f /* Get functio
6110: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c n */. if (Tcl
6120: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a _GetIndexFromObj
6130: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
6140: 2c 20 69 6e 73 74 61 6e 63 65 5f 66 6e 73 2c 20 , instance_fns,
6150: 22 66 75 6e 63 74 69 6f 6e 22 2c 20 30 2c 20 26 "function", 0, &
6160: 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b fn) != TCL_OK) {
6170: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6180: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
6190: 2a 20 44 6f 20 66 75 6e 63 74 69 6f 6e 20 2a 2f * Do function */
61a0: 0a 20 20 20 20 69 66 20 28 66 6e 29 20 7b 0a 09 . if (fn) {..
61b0: 2f 2a 20 47 65 74 20 64 61 74 61 20 6f 72 20 72 /* Get data or r
61c0: 65 74 75 72 6e 20 65 72 72 6f 72 20 69 66 20 6e eturn error if n
61d0: 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 6f 62 6a 63 one */..if (objc
61e0: 20 3d 3d 20 33 29 20 7b 0a 09 20 20 20 20 62 75 == 3) {.. bu
61f0: 66 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 f = Tcl_GetByteA
6200: 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 rrayFromObj(objv
6210: 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a 09 7d 20 65 [2], &len);..} e
6220: 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 57 lse {.. Tcl_W
6230: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
6240: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 75 70 rp, 1, objv, "up
6250: 64 61 74 65 20 64 61 74 61 22 29 3b 0a 09 20 20 date data");..
6260: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6270: 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 55 70 64 61 OR;..}.../* Upda
6280: 74 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e te hash function
6290: 20 2a 2f 0a 09 69 66 20 28 21 54 6c 73 5f 44 69 */..if (!Tls_Di
62a0: 67 65 73 74 55 70 64 61 74 65 28 73 74 61 74 65 gestUpdate(state
62b0: 50 74 72 2c 20 62 75 66 2c 20 28 73 69 7a 65 5f Ptr, buf, (size_
62c0: 74 29 20 6c 65 6e 29 29 20 7b 0a 09 20 20 20 20 t) len)) {..
62d0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
62e0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a (interp, Tcl_Obj
62f0: 50 72 69 6e 74 66 28 22 44 69 67 65 73 74 20 75 Printf("Digest u
6300: 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 pdate failed: %s
6310: 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 ", REASON()));..
6320: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
6330: 52 52 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 RROR;..}.. }
6340: 65 6c 73 65 20 7b 0a 09 2f 2a 20 46 69 6e 61 6c else {../* Final
6350: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ize hash functio
6360: 6e 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 n and calculate
6370: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a message digest *
6380: 2f 0a 09 69 66 20 28 54 6c 73 5f 44 69 67 65 73 /..if (Tls_Diges
6390: 74 46 69 6e 69 61 6c 69 7a 65 28 69 6e 74 65 72 tFinialize(inter
63a0: 70 2c 20 73 74 61 74 65 50 74 72 29 20 21 3d 20 p, statePtr) !=
63b0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 54 TCL_OK) {.. T
63c0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
63d0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 50 interp, Tcl_ObjP
63e0: 72 69 6e 74 66 28 22 44 69 67 65 73 74 20 66 69 rintf("Digest fi
63f0: 6e 61 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 25 nalize failed: %
6400: 73 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a s", REASON()));.
6410: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6420: 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 54 63 6c 5f ERROR;..}...Tcl_
6430: 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 46 72 6f DeleteCommandFro
6440: 6d 54 6f 6b 65 6e 28 69 6e 74 65 72 70 2c 20 73 mToken(interp, s
6450: 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e 29 3b tatePtr->token);
6460: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
6470: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
6480: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64c0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6e 73 74 -----. *. * Inst
64d0: 61 6e 63 65 44 65 6c 43 61 6c 6c 62 61 63 6b 20 anceDelCallback
64e0: 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c 62 61 --. *. *. Callba
64f0: 63 6b 20 74 6f 20 63 6c 65 61 6e 2d 75 70 20 77 ck to clean-up w
6500: 68 65 6e 20 64 69 67 65 73 74 20 69 6e 73 74 61 hen digest insta
6510: 6e 63 65 20 63 6f 6d 6d 61 6e 64 20 69 73 20 64 nce command is d
6520: 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 eleted.. *. * Re
6530: 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e turns:. *.Nothin
6540: 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 g. *. * Side eff
6550: 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f 79 ects:. *.Destroy
6560: 73 20 73 74 72 75 63 74 0a 20 2a 0a 20 2a 2d 2d s struct. *. *--
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65b0: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 49 6e 73 74 61 -. */.void Insta
65c0: 6e 63 65 44 65 6c 43 61 6c 6c 62 61 63 6b 28 43 nceDelCallback(C
65d0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
65e0: 44 61 74 61 29 20 7b 0a 20 20 20 20 44 69 67 65 Data) {. Dige
65f0: 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 stState *statePt
6600: 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 r = (DigestState
6610: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
6620: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 . /* Clean-up
6630: 20 2a 2f 0a 20 20 20 20 54 6c 73 5f 44 69 67 65 */. Tls_Dige
6640: 73 74 46 72 65 65 28 73 74 61 74 65 50 74 72 29 stFree(statePtr)
6650: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
6660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
66a0: 0a 20 2a 20 54 6c 73 5f 44 69 67 65 73 74 49 6e . * Tls_DigestIn
66b0: 73 74 61 6e 63 65 20 2d 2d 0a 20 2a 0a 20 2a 09 stance --. *. *.
66c0: 20 43 72 65 61 74 65 20 63 6f 6d 6d 61 6e 64 20 Create command
66d0: 74 6f 20 61 6c 6c 6f 77 20 75 73 65 72 20 74 6f to allow user to
66e0: 20 61 64 64 20 64 61 74 61 20 74 6f 20 68 61 73 add data to has
66f0: 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 h function.. *.
6700: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
6710: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
6720: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
6730: 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 ects:. *.Creates
6740: 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 65 72 72 6f command or erro
6750: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
6760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67a0: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 44 --. */.int Tls_D
67b0: 69 67 65 73 74 49 6e 73 74 61 6e 63 65 28 54 63 igestInstance(Tc
67c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
67d0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 4f 62 , Tcl_Obj *cmdOb
67e0: 6a 2c 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 j, const EVP_MD
67f0: 2a 6d 64 2c 20 69 6e 74 20 66 6f 72 6d 61 74 2c *md, int format,
6800: 0a 09 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 ..Tcl_Obj *keyOb
6810: 6a 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 j) {. DigestS
6820: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a tate *statePtr;.
6830: 20 20 20 20 63 68 61 72 20 2a 63 6d 64 4e 61 6d char *cmdNam
6840: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
6850: 67 46 72 6f 6d 4f 62 6a 28 63 6d 64 4f 62 6a 2c gFromObj(cmdObj,
6860: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 2f 2a 20 NULL);.. /*
6870: 43 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 Create state dat
6880: 61 20 73 74 72 75 63 74 20 2a 2f 0a 20 20 20 20 a struct */.
6890: 69 66 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 if ((statePtr =
68a0: 54 6c 73 5f 44 69 67 65 73 74 4e 65 77 28 69 6e Tls_DigestNew(in
68b0: 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 29 20 3d terp, format)) =
68c0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
68d0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
68e0: 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 rp, "Initialize
68f0: 64 69 67 65 73 74 20 65 72 72 6f 72 3a 20 6d 65 digest error: me
6900: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
6910: 66 61 69 6c 75 72 65 22 2c 20 28 63 68 61 72 20 failure", (char
6920: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
6930: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6940: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 }.. /* Initi
6950: 61 6c 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 alize hash funct
6960: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 ion */. if (T
6970: 6c 73 5f 44 69 67 65 73 74 49 6e 69 74 28 69 6e ls_DigestInit(in
6980: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 terp, statePtr,
6990: 6d 64 2c 20 6b 65 79 4f 62 6a 29 20 21 3d 20 54 md, keyObj) != T
69a0: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
69b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
69c0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
69d0: 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e instance comman
69e0: 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 d */. statePt
69f0: 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c 5f 43 r->token = Tcl_C
6a00: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
6a10: 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 6d 65 2c interp, cmdName,
6a20: 20 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 2c InstanceObjCmd,
6a30: 0a 09 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 ..(ClientData) s
6a40: 74 61 74 65 50 74 72 2c 20 49 6e 73 74 61 6e 63 tatePtr, Instanc
6a50: 65 44 65 6c 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a eDelCallback);..
6a60: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f /* Return co
6a70: 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 mmand name */.
6a80: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
6a90: 6c 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 4f 62 lt(interp, cmdOb
6aa0: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 j);. return T
6ab0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 2a 2a 2a CL_OK;.}.../****
6ac0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6ad0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6ae0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6af0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
6b00: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6b50: 20 54 6c 73 5f 44 69 67 65 73 74 44 61 74 61 20 Tls_DigestData
6b60: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
6b70: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 66 message digest f
6b80: 6f 72 20 64 61 74 61 20 75 73 69 6e 67 20 75 73 or data using us
6b90: 65 72 20 73 70 65 63 69 66 69 65 64 20 68 61 73 er specified has
6ba0: 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 h function.. *.
6bb0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
6bc0: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
6bd0: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
6be0: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 ects:. *.Sets re
6bf0: 73 75 6c 74 20 74 6f 20 6d 65 73 73 61 67 65 20 sult to message
6c00: 64 69 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 digest or error
6c10: 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d message. *. *---
6c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c60: 0a 20 2a 2f 0a 69 6e 74 0a 54 6c 73 5f 44 69 67 . */.int.Tls_Dig
6c70: 65 73 74 44 61 74 61 28 54 63 6c 5f 49 6e 74 65 estData(Tcl_Inte
6c80: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
6c90: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
6ca0: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 2c 0a 09 63 6f onst objv[],..co
6cb0: 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 20 nst EVP_MD *md,
6cc0: 69 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 6c 5f int format, Tcl_
6cd0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a 20 Obj *keyObj) {.
6ce0: 20 20 20 63 68 61 72 20 2a 64 61 74 61 3b 0a 20 char *data;.
6cf0: 20 20 20 69 6e 74 20 6c 65 6e 2c 20 72 65 73 3b int len, res;
6d00: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e . unsigned in
6d10: 74 20 6d 64 5f 6c 65 6e 3b 0a 20 20 20 20 75 6e t md_len;. un
6d20: 73 69 67 6e 65 64 20 63 68 61 72 20 6d 64 5f 62 signed char md_b
6d30: 75 66 5b 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 uf[EVP_MAX_MD_SI
6d40: 5a 45 5d 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c ZE];.. /* Val
6d50: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
6d60: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
6d70: 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 2) {..Tcl_Wro
6d80: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
6d90: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 64 61 74 61 , 1, objv, "data
6da0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
6db0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
6dc0: 20 20 2f 2a 20 47 65 74 20 64 61 74 61 20 2a 2f /* Get data */
6dd0: 0a 20 20 20 20 64 61 74 61 20 3d 20 54 63 6c 5f . data = Tcl_
6de0: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
6df0: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 26 6c 65 Obj(objv[1], &le
6e00: 6e 29 3b 0a 20 20 20 20 69 66 20 28 64 61 74 61 n);. if (data
6e10: 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6c 65 6e 20 == NULL || len
6e20: 3d 3d 20 30 29 20 7b 0a 09 54 63 6c 5f 53 65 74 == 0) {..Tcl_Set
6e30: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
6e40: 4e 6f 20 64 61 74 61 22 2c 20 4e 55 4c 4c 29 3b No data", NULL);
6e50: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6e60: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
6e70: 2a 20 43 61 6c 63 75 6c 61 74 65 20 64 69 67 65 * Calculate dige
6e80: 73 74 20 62 61 73 65 64 20 6f 6e 20 68 61 73 68 st based on hash
6e90: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
6ea0: 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d 3d 20 28 if (keyObj == (
6eb0: 54 63 6c 5f 4f 62 6a 20 2a 29 20 4e 55 4c 4c 29 Tcl_Obj *) NULL)
6ec0: 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 69 {..res = EVP_Di
6ed0: 67 65 73 74 28 64 61 74 61 2c 20 28 73 69 7a 65 gest(data, (size
6ee0: 5f 74 29 20 6c 65 6e 2c 20 6d 64 5f 62 75 66 2c _t) len, md_buf,
6ef0: 20 26 6d 64 5f 6c 65 6e 2c 20 6d 64 2c 20 4e 55 &md_len, md, NU
6f00: 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 LL);. } else
6f10: 7b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 72 {..unsigned char
6f20: 20 2a 6b 65 79 2c 20 2a 68 6d 61 63 20 3d 20 4e *key, *hmac = N
6f30: 55 4c 4c 3b 0a 09 69 6e 74 20 6b 65 79 5f 6c 65 ULL;..int key_le
6f40: 6e 3b 0a 0a 09 6b 65 79 20 3d 20 54 63 6c 5f 47 n;...key = Tcl_G
6f50: 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f etByteArrayFromO
6f60: 62 6a 28 6b 65 79 4f 62 6a 2c 20 26 6b 65 79 5f bj(keyObj, &key_
6f70: 6c 65 6e 29 3b 0a 09 68 6d 61 63 20 3d 20 48 4d len);..hmac = HM
6f80: 41 43 28 6d 64 2c 20 28 63 6f 6e 73 74 20 76 6f AC(md, (const vo
6f90: 69 64 20 2a 29 20 6b 65 79 2c 20 6b 65 79 5f 6c id *) key, key_l
6fa0: 65 6e 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 en, (const unsig
6fb0: 6e 65 64 20 63 68 61 72 20 2a 29 20 64 61 74 61 ned char *) data
6fc0: 2c 0a 09 20 20 20 20 28 73 69 7a 65 5f 74 29 20 ,.. (size_t)
6fd0: 6c 65 6e 2c 20 6d 64 5f 62 75 66 2c 20 26 6d 64 len, md_buf, &md
6fe0: 5f 6c 65 6e 29 3b 0a 09 72 65 73 20 3d 20 28 68 _len);..res = (h
6ff0: 6d 61 63 20 21 3d 20 4e 55 4c 4c 29 3b 0a 20 20 mac != NULL);.
7000: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f 75 74 70 }.. /* Outp
7010: 75 74 20 64 69 67 65 73 74 20 74 6f 20 72 65 73 ut digest to res
7020: 75 6c 74 20 70 65 72 20 66 6f 72 6d 61 74 20 28 ult per format (
7030: 62 69 6e 20 6f 72 20 68 65 78 29 20 2a 2f 0a 20 bin or hex) */.
7040: 20 20 20 69 66 20 28 72 65 73 29 20 7b 0a 09 69 if (res) {..i
7050: 66 20 28 66 6f 72 6d 61 74 20 3d 3d 20 42 49 4e f (format == BIN
7060: 5f 46 4f 52 4d 41 54 29 20 7b 0a 09 20 20 20 20 _FORMAT) {..
7070: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
7080: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
7090: 42 79 74 65 41 72 72 61 79 4f 62 6a 28 6d 64 5f ByteArrayObj(md_
70a0: 62 75 66 2c 20 6d 64 5f 6c 65 6e 29 29 3b 0a 0a buf, md_len));..
70b0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 .} else {.. T
70c0: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
70d0: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 j = Tcl_NewObj()
70e0: 3b 0a 09 20 20 20 20 75 6e 73 69 67 6e 65 64 20 ;.. unsigned
70f0: 63 68 61 72 20 2a 70 74 72 20 3d 20 54 63 6c 5f char *ptr = Tcl_
7100: 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 SetByteArrayLeng
7110: 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 6d 64 th(resultObj, md
7120: 5f 6c 65 6e 2a 32 29 3b 0a 0a 09 20 20 20 20 66 _len*2);... f
7130: 6f 72 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 or (unsigned int
7140: 20 69 20 3d 20 30 3b 20 69 20 3c 20 6d 64 5f 6c i = 0; i < md_l
7150: 65 6e 3b 20 69 2b 2b 29 20 7b 0a 09 09 2a 70 74 en; i++) {...*pt
7160: 72 2b 2b 20 3d 20 68 65 78 5b 28 6d 64 5f 62 75 r++ = hex[(md_bu
7170: 66 5b 69 5d 20 3e 3e 20 34 29 20 26 20 30 78 30 f[i] >> 4) & 0x0
7180: 46 5d 3b 0a 09 09 2a 70 74 72 2b 2b 20 3d 20 68 F];...*ptr++ = h
7190: 65 78 5b 6d 64 5f 62 75 66 5b 69 5d 20 26 20 30 ex[md_buf[i] & 0
71a0: 78 30 46 5d 3b 0a 09 20 20 20 20 7d 0a 09 54 63 x0F];.. }..Tc
71b0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
71c0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
71d0: 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 );..}.. } els
71e0: 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 e {..Tcl_AppendR
71f0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 48 esult(interp, "H
7200: 61 73 68 20 63 61 6c 63 75 6c 61 74 69 6f 6e 20 ash calculation
7210: 65 72 72 6f 72 3a 22 2c 20 52 45 41 53 4f 4e 28 error:", REASON(
7220: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
7230: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
7240: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
7250: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
7260: 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .../************
7270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72a0: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
72b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72f0: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4f --. *. * DigestO
7300: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 bjCmd --. *. *.R
7310: 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 69 eturn message di
7320: 67 65 73 74 20 75 73 69 6e 67 20 75 73 65 72 20 gest using user
7330: 73 70 65 63 69 66 69 65 64 20 68 61 73 68 20 66 specified hash f
7340: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
7350: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
7360: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
7370: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7380: 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c s:. *.Sets resul
7390: 74 20 74 6f 20 6d 65 73 73 61 67 65 20 64 69 67 t to message dig
73a0: 65 73 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 est or error mes
73b0: 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d sage. *. *------
73c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
7400: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 44 69 67 /.static int.Dig
7410: 65 73 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 estObjCmd(Client
7420: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
7430: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
7440: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
7450: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
7460: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 jv[]) {. int
7470: 69 64 78 2c 20 6c 65 6e 2c 20 66 6f 72 6d 61 74 idx, len, format
7480: 20 3d 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 72 = HEX_FORMAT, r
7490: 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 es = TCL_OK;.
74a0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 64 69 67 const char *dig
74b0: 65 73 74 6e 61 6d 65 2c 20 2a 63 68 61 6e 6e 65 estname, *channe
74c0: 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 l = NULL;. Tc
74d0: 6c 5f 4f 62 6a 20 2a 63 6d 64 4f 62 6a 20 3d 20 l_Obj *cmdObj =
74e0: 4e 55 4c 4c 2c 20 2a 64 61 74 61 4f 62 6a 20 3d NULL, *dataObj =
74f0: 20 4e 55 4c 4c 2c 20 2a 66 69 6c 65 4f 62 6a 20 NULL, *fileObj
7500: 3d 20 4e 55 4c 4c 2c 20 2a 6b 65 79 4f 62 6a 20 = NULL, *keyObj
7510: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 = NULL;. cons
7520: 74 20 45 56 50 5f 4d 44 20 2a 6d 64 3b 0a 0a 20 t EVP_MD *md;..
7530: 20 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 /* Clear inte
7540: 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 rp result */.
7550: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
7560: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f (interp);.. /
7570: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
7580: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
7590: 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 objc < 3 || objc
75a0: 20 3e 20 37 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 7) {..Tcl_Wro
75b0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
75c0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 74 79 70 65 , 1, objv, "type
75d0: 20 3f 2d 62 69 6e 7c 2d 68 65 78 3f 20 3f 2d 6b ?-bin|-hex? ?-k
75e0: 65 79 20 68 6d 61 63 5f 6b 65 79 3f 20 5b 2d 63 ey hmac_key? [-c
75f0: 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 hannel chan | -c
7600: 6f 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c ommand cmdName |
7610: 20 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 -file filename
7620: 7c 20 3f 2d 64 61 74 61 3f 20 64 61 74 61 5d 22 | ?-data? data]"
7630: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
7640: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
7650: 20 2f 2a 20 47 65 74 20 64 69 67 65 73 74 20 2a /* Get digest *
7660: 2f 0a 20 20 20 20 64 69 67 65 73 74 6e 61 6d 65 /. digestname
7670: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
7680: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c FromObj(objv[1],
7690: 20 26 6c 65 6e 29 3b 0a 20 20 20 20 69 66 20 28 &len);. if (
76a0: 64 69 67 65 73 74 6e 61 6d 65 20 3d 3d 20 4e 55 digestname == NU
76b0: 4c 4c 20 7c 7c 20 28 6d 64 20 3d 20 45 56 50 5f LL || (md = EVP_
76c0: 67 65 74 5f 64 69 67 65 73 74 62 79 6e 61 6d 65 get_digestbyname
76d0: 28 64 69 67 65 73 74 6e 61 6d 65 29 29 20 3d 3d (digestname)) ==
76e0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
76f0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
7700: 70 2c 20 22 49 6e 76 61 6c 69 64 20 64 69 67 65 p, "Invalid dige
7710: 73 74 20 74 79 70 65 20 5c 22 22 2c 20 64 69 67 st type \"", dig
7720: 65 73 74 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e estname, "\"", N
7730: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
7740: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
7750: 20 20 20 20 2f 2a 20 4f 70 74 69 6d 61 6c 20 63 /* Optimal c
7760: 61 73 65 20 66 6f 72 20 62 6c 6f 62 20 6f 66 20 ase for blob of
7770: 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 data */. if (
7780: 6f 62 6a 63 20 3d 3d 20 33 29 20 7b 0a 09 72 65 objc == 3) {..re
7790: 74 75 72 6e 20 54 6c 73 5f 44 69 67 65 73 74 44 turn Tls_DigestD
77a0: 61 74 61 28 69 6e 74 65 72 70 2c 20 2d 2d 6f 62 ata(interp, --ob
77b0: 6a 63 2c 20 2b 2b 6f 62 6a 76 2c 20 6d 64 2c 20 jc, ++objv, md,
77c0: 66 6f 72 6d 61 74 2c 20 4e 55 4c 4c 29 3b 0a 20 format, NULL);.
77d0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
77e0: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
77f0: 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 69 64 for (idx = 2; id
7800: 78 20 3c 20 6f 62 6a 63 2d 31 3b 20 69 64 78 2b x < objc-1; idx+
7810: 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 +) {..char *opt
7820: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
7830: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d romObj(objv[idx]
7840: 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f , NULL);...if (o
7850: 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 20 7b 0a pt[0] != '-') {.
7860: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 0a . break;..}..
7870: 09 4f 50 54 46 4c 41 47 28 22 2d 62 69 6e 22 2c .OPTFLAG("-bin",
7880: 20 66 6f 72 6d 61 74 2c 20 42 49 4e 5f 46 4f 52 format, BIN_FOR
7890: 4d 41 54 29 3b 0a 09 4f 50 54 46 4c 41 47 28 22 MAT);..OPTFLAG("
78a0: 2d 62 69 6e 61 72 79 22 2c 20 66 6f 72 6d 61 74 -binary", format
78b0: 2c 20 42 49 4e 5f 46 4f 52 4d 41 54 29 3b 0a 09 , BIN_FORMAT);..
78c0: 4f 50 54 46 4c 41 47 28 22 2d 68 65 78 22 2c 20 OPTFLAG("-hex",
78d0: 66 6f 72 6d 61 74 2c 20 48 45 58 5f 46 4f 52 4d format, HEX_FORM
78e0: 41 54 29 3b 0a 09 4f 50 54 46 4c 41 47 28 22 2d AT);..OPTFLAG("-
78f0: 68 65 78 61 64 65 63 69 6d 61 6c 22 2c 20 66 6f hexadecimal", fo
7900: 72 6d 61 74 2c 20 48 45 58 5f 46 4f 52 4d 41 54 rmat, HEX_FORMAT
7910: 29 3b 0a 09 4f 50 54 53 54 52 28 22 2d 63 68 61 );..OPTSTR("-cha
7920: 6e 22 2c 20 63 68 61 6e 6e 65 6c 29 3b 0a 09 4f n", channel);..O
7930: 50 54 53 54 52 28 22 2d 63 68 61 6e 6e 65 6c 22 PTSTR("-channel"
7940: 2c 20 63 68 61 6e 6e 65 6c 29 3b 0a 09 4f 50 54 , channel);..OPT
7950: 4f 42 4a 28 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 OBJ("-command",
7960: 63 6d 64 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a cmdObj);..OPTOBJ
7970: 28 22 2d 64 61 74 61 22 2c 20 64 61 74 61 4f 62 ("-data", dataOb
7980: 6a 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 66 69 j);..OPTOBJ("-fi
7990: 6c 65 22 2c 20 66 69 6c 65 4f 62 6a 29 3b 0a 09 le", fileObj);..
79a0: 4f 50 54 4f 42 4a 28 22 2d 66 69 6c 65 6e 61 6d OPTOBJ("-filenam
79b0: 65 22 2c 20 66 69 6c 65 4f 62 6a 29 3b 0a 09 4f e", fileObj);..O
79c0: 50 54 4f 42 4a 28 22 2d 6b 65 79 22 2c 20 6b 65 PTOBJ("-key", ke
79d0: 79 4f 62 6a 29 3b 0a 0a 09 4f 50 54 42 41 44 28 yObj);...OPTBAD(
79e0: 22 6f 70 74 69 6f 6e 22 2c 20 22 2d 62 69 6e 2c "option", "-bin,
79f0: 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d 6d -channel, -comm
7a00: 61 6e 64 2c 20 2d 64 61 74 61 2c 20 2d 66 69 6c and, -data, -fil
7a10: 65 2c 20 2d 66 69 6c 65 6e 61 6d 65 2c 20 2d 68 e, -filename, -h
7a20: 65 78 2c 20 6f 72 20 2d 6b 65 79 22 29 3b 0a 09 ex, or -key");..
7a30: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7a40: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
7a50: 49 66 20 6e 6f 20 6f 70 74 69 6f 6e 20 66 6f 72 If no option for
7a60: 20 6c 61 73 74 20 61 72 67 2c 20 74 68 65 6e 20 last arg, then
7a70: 69 74 73 20 74 68 65 20 64 61 74 61 20 2a 2f 0a its the data */.
7a80: 20 20 20 20 69 66 20 28 69 64 78 20 3c 20 6f 62 if (idx < ob
7a90: 6a 63 29 20 7b 0a 09 64 61 74 61 4f 62 6a 20 3d jc) {..dataObj =
7aa0: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 20 20 20 20 objv[idx];.
7ab0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 61 6c 63 20 64 }.. /* Calc d
7ac0: 69 67 65 73 74 20 6f 6e 20 66 69 6c 65 2c 20 73 igest on file, s
7ad0: 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2c 20 tacked channel,
7ae0: 75 73 69 6e 67 20 69 6e 73 74 61 6e 63 65 20 63 using instance c
7af0: 6f 6d 6d 61 6e 64 2c 20 6f 72 20 64 61 74 61 20 ommand, or data
7b00: 62 6c 6f 62 20 2a 2f 0a 20 20 20 20 69 66 20 28 blob */. if (
7b10: 66 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 fileObj != NULL)
7b20: 20 7b 0a 09 72 65 73 20 3d 20 54 6c 73 5f 44 69 {..res = Tls_Di
7b30: 67 65 73 74 46 69 6c 65 28 69 6e 74 65 72 70 2c gestFile(interp,
7b40: 20 66 69 6c 65 4f 62 6a 2c 20 6d 64 2c 20 66 6f fileObj, md, fo
7b50: 72 6d 61 74 2c 20 6b 65 79 4f 62 6a 29 3b 0a 20 rmat, keyObj);.
7b60: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 68 } else if (ch
7b70: 61 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b annel != NULL) {
7b80: 0a 09 72 65 73 20 3d 20 54 6c 73 5f 44 69 67 65 ..res = Tls_Dige
7b90: 73 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 stChannel(interp
7ba0: 2c 20 63 68 61 6e 6e 65 6c 2c 20 6d 64 2c 20 66 , channel, md, f
7bb0: 6f 72 6d 61 74 2c 20 6b 65 79 4f 62 6a 29 3b 0a ormat, keyObj);.
7bc0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 } else if (c
7bd0: 6d 64 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b mdObj != NULL) {
7be0: 0a 09 72 65 73 20 3d 20 54 6c 73 5f 44 69 67 65 ..res = Tls_Dige
7bf0: 73 74 49 6e 73 74 61 6e 63 65 28 69 6e 74 65 72 stInstance(inter
7c00: 70 2c 20 63 6d 64 4f 62 6a 2c 20 6d 64 2c 20 66 p, cmdObj, md, f
7c10: 6f 72 6d 61 74 2c 20 6b 65 79 4f 62 6a 29 3b 0a ormat, keyObj);.
7c20: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 64 } else if (d
7c30: 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 ataObj != NULL)
7c40: 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 73 {..Tcl_Obj *objs
7c50: 5b 32 5d 3b 0a 09 6f 62 6a 73 5b 30 5d 20 3d 20 [2];..objs[0] =
7c60: 4e 55 4c 4c 3b 0a 09 6f 62 6a 73 5b 31 5d 20 3d NULL;..objs[1] =
7c70: 20 64 61 74 61 4f 62 6a 3b 0a 09 72 65 73 20 3d dataObj;..res =
7c80: 20 54 6c 73 5f 44 69 67 65 73 74 44 61 74 61 28 Tls_DigestData(
7c90: 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 73 2c interp, 2, objs,
7ca0: 20 6d 64 2c 20 66 6f 72 6d 61 74 2c 20 6b 65 79 md, format, key
7cb0: 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 Obj);. }.
7cc0: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
7cd0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7d10: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 65 -------. *. * Me
7d20: 73 73 61 67 65 20 44 69 67 65 73 74 20 43 6f 6e ssage Digest Con
7d30: 76 65 6e 69 65 6e 63 65 20 43 6f 6d 6d 61 6e 64 venience Command
7d40: 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6e 76 65 s --. *. *.Conve
7d50: 6e 69 65 6e 63 65 20 63 6f 6d 6d 61 6e 64 73 20 nience commands
7d60: 66 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 65 for message dige
7d70: 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 sts.. *. * Retur
7d80: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
7d90: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
7da0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
7db0: 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f *.Sets result to
7dc0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
7dd0: 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 or error message
7de0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
7df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
7e30: 74 20 44 69 67 65 73 74 4d 44 34 43 6d 64 28 43 t DigestMD4Cmd(C
7e40: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
7e50: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
7e60: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
7e70: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
7e80: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
7e90: 20 72 65 74 75 72 6e 20 54 6c 73 5f 44 69 67 65 return Tls_Dige
7ea0: 73 74 44 61 74 61 28 69 6e 74 65 72 70 2c 20 6f stData(interp, o
7eb0: 62 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f 6d bjc, objv, EVP_m
7ec0: 64 34 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 d4(), HEX_FORMAT
7ed0: 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 , NULL);.}..int
7ee0: 44 69 67 65 73 74 4d 44 35 43 6d 64 28 43 6c 69 DigestMD5Cmd(Cli
7ef0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
7f00: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
7f10: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
7f20: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
7f30: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 objv[]) {. r
7f40: 65 74 75 72 6e 20 54 6c 73 5f 44 69 67 65 73 74 eturn Tls_Digest
7f50: 44 61 74 61 28 69 6e 74 65 72 70 2c 20 6f 62 6a Data(interp, obj
7f60: 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f 6d 64 35 c, objv, EVP_md5
7f70: 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 (), HEX_FORMAT,
7f80: 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 69 NULL);.}..int Di
7f90: 67 65 73 74 53 48 41 31 43 6d 64 28 43 6c 69 65 gestSHA1Cmd(Clie
7fa0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
7fb0: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
7fc0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
7fd0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
7fe0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 objv[]) {. re
7ff0: 74 75 72 6e 20 54 6c 73 5f 44 69 67 65 73 74 44 turn Tls_DigestD
8000: 61 74 61 28 69 6e 74 65 72 70 2c 20 6f 62 6a 63 ata(interp, objc
8010: 2c 20 6f 62 6a 76 2c 20 45 56 50 5f 73 68 61 31 , objv, EVP_sha1
8020: 28 29 2c 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 (), HEX_FORMAT,
8030: 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 44 69 NULL);.}..int Di
8040: 67 65 73 74 53 48 41 32 35 36 43 6d 64 28 43 6c gestSHA256Cmd(Cl
8050: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
8060: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
8070: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
8080: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
8090: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
80a0: 72 65 74 75 72 6e 20 54 6c 73 5f 44 69 67 65 73 return Tls_Diges
80b0: 74 44 61 74 61 28 69 6e 74 65 72 70 2c 20 6f 62 tData(interp, ob
80c0: 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 50 5f 73 68 jc, objv, EVP_sh
80d0: 61 32 35 36 28 29 2c 20 48 45 58 5f 46 4f 52 4d a256(), HEX_FORM
80e0: 41 54 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e AT, NULL);.}..in
80f0: 74 20 44 69 67 65 73 74 53 48 41 35 31 32 43 6d t DigestSHA512Cm
8100: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
8110: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
8120: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
8130: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
8140: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
8150: 20 20 20 20 72 65 74 75 72 6e 20 54 6c 73 5f 44 return Tls_D
8160: 69 67 65 73 74 44 61 74 61 28 69 6e 74 65 72 70 igestData(interp
8170: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 45 56 , objc, objv, EV
8180: 50 5f 73 68 61 35 31 32 28 29 2c 20 48 45 58 5f P_sha512(), HEX_
8190: 46 4f 52 4d 41 54 2c 20 4e 55 4c 4c 29 3b 0a 7d FORMAT, NULL);.}
81a0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
81b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
81f0: 20 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d 61 Tls_DigestComma
8200: 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 nds --. *. *.Cre
8210: 61 74 65 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 ate digest comma
8220: 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e nds. *. * Return
8230: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
8240: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
8250: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
8260: 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 .Creates command
8270: 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d s. *. *---------
8280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
82c0: 6e 74 20 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d nt Tls_DigestCom
82d0: 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 mands(Tcl_Interp
82e0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 *interp) {.
82f0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
8300: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
8310: 73 3a 3a 64 69 67 65 73 74 22 2c 20 44 69 67 65 s::digest", Dige
8320: 73 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e stObjCmd, (Clien
8330: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
8340: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
8350: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 NULL);. Tcl_C
8360: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
8370: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 64 interp, "tls::md
8380: 34 22 2c 20 44 69 67 65 73 74 4d 44 34 43 6d 64 4", DigestMD4Cmd
8390: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
83a0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
83b0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
83c0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
83d0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
83e0: 22 74 6c 73 3a 3a 6d 64 35 22 2c 20 44 69 67 65 "tls::md5", Dige
83f0: 73 74 4d 44 35 43 6d 64 2c 20 28 43 6c 69 65 6e stMD5Cmd, (Clien
8400: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
8410: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
8420: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 NULL);. Tcl_C
8430: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
8440: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 68 interp, "tls::sh
8450: 61 31 22 2c 20 44 69 67 65 73 74 53 48 41 31 43 a1", DigestSHA1C
8460: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
8470: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
8480: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
8490: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
84a0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
84b0: 2c 20 22 74 6c 73 3a 3a 73 68 61 32 35 36 22 2c , "tls::sha256",
84c0: 20 44 69 67 65 73 74 53 48 41 32 35 36 43 6d 64 DigestSHA256Cmd
84d0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
84e0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
84f0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
8500: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
8510: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
8520: 22 74 6c 73 3a 3a 73 68 61 35 31 32 22 2c 20 44 "tls::sha512", D
8530: 69 67 65 73 74 53 48 41 35 31 32 43 6d 64 2c 20 igestSHA512Cmd,
8540: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
8550: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
8560: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
8570: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
8580: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
8590: 6c 73 3a 3a 75 6e 73 74 61 63 6b 22 2c 20 55 6e ls::unstack", Un
85a0: 73 74 61 63 6b 4f 62 6a 43 6d 64 2c 20 28 43 6c stackObjCmd, (Cl
85b0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
85c0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
85d0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 *) NULL);. re
85e0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..