0000: 2f 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 44 69 /*. * Message Di
0010: 67 65 73 74 20 28 4d 44 29 20 61 6e 64 20 4d 65 gest (MD) and Me
0020: 73 73 61 67 65 20 41 75 74 68 65 6e 74 69 63 61 ssage Authentica
0030: 74 69 6f 6e 20 43 6f 64 65 20 28 4d 41 43 29 20 tion Code (MAC)
0040: 4d 6f 64 75 6c 65 0a 20 2a 0a 20 2a 20 50 72 6f Module. *. * Pro
0050: 76 69 64 65 73 20 63 6f 6d 6d 61 6e 64 73 20 74 vides commands t
0060: 6f 20 63 61 6c 63 75 6c 61 74 65 20 61 20 6d 65 o calculate a me
0070: 73 73 61 67 65 20 64 69 67 65 73 74 20 28 4d 44 ssage digest (MD
0080: 29 20 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 20 ) or message. *
0090: 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 63 authentication c
00a0: 6f 64 65 20 28 4d 41 43 29 20 75 73 69 6e 67 20 ode (MAC) using
00b0: 61 20 73 70 65 63 69 66 69 65 64 20 68 61 73 68 a specified hash
00c0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 2f 6f 72 function and/or
00d0: 20 63 69 70 68 65 72 2e 0a 20 2a 0a 20 2a 20 43 cipher.. *. * C
00e0: 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 opyright (C) 202
00f0: 33 20 42 72 69 61 6e 20 4f 27 48 61 67 61 6e 0a 3 Brian O'Hagan.
0100: 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 *. */..#include
0110: 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 "tlsInt.h".#inc
0120: 6c 75 64 65 20 22 74 63 6c 4f 70 74 73 2e 68 22 lude "tclOpts.h"
0130: 0a 23 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 .#include <tcl.h
0140: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 69 >.#include <stdi
0150: 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 o.h>.#include <s
0160: 74 72 69 6e 67 2e 68 3e 0a 23 69 6e 63 6c 75 64 tring.h>.#includ
0170: 65 20 3c 6f 70 65 6e 73 73 6c 2f 65 76 70 2e 68 e <openssl/evp.h
0180: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e >.#include <open
0190: 73 73 6c 2f 63 6d 61 63 2e 68 3e 0a 23 69 6e 63 ssl/cmac.h>.#inc
01a0: 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 68 6d lude <openssl/hm
01b0: 61 63 2e 68 3e 0a 0a 2f 2a 20 43 6f 6e 73 74 61 ac.h>../* Consta
01c0: 6e 74 73 20 2a 2f 0a 63 6f 6e 73 74 20 63 68 61 nts */.const cha
01d0: 72 20 2a 68 65 78 20 3d 20 22 30 31 32 33 34 35 r *hex = "012345
01e0: 36 37 38 39 61 62 63 64 65 66 22 3b 0a 0a 2f 2a 6789abcdef";../*
01f0: 20 4d 61 63 72 6f 73 20 2a 2f 0a 23 64 65 66 69 Macros */.#defi
0200: 6e 65 20 42 55 46 46 45 52 5f 53 49 5a 45 09 36 ne BUFFER_SIZE.6
0210: 35 35 33 36 0a 23 64 65 66 69 6e 65 20 43 48 41 5536.#define CHA
0220: 4e 5f 45 4f 46 09 30 78 31 30 0a 23 64 65 66 69 N_EOF.0x10.#defi
0230: 6e 65 20 52 45 41 44 5f 44 45 4c 41 59 09 35 0a ne READ_DELAY.5.
0240: 0a 2f 2a 20 44 69 67 65 73 74 20 66 6f 72 6d 61 ./* Digest forma
0250: 74 20 61 6e 64 20 6f 70 65 72 61 74 69 6f 6e 20 t and operation
0260: 2a 2f 0a 23 64 65 66 69 6e 65 20 42 49 4e 5f 46 */.#define BIN_F
0270: 4f 52 4d 41 54 09 30 78 30 31 0a 23 64 65 66 69 ORMAT.0x01.#defi
0280: 6e 65 20 48 45 58 5f 46 4f 52 4d 41 54 09 30 78 ne HEX_FORMAT.0x
0290: 30 32 0a 23 64 65 66 69 6e 65 20 49 53 5f 58 4f 02.#define IS_XO
02a0: 46 09 09 30 78 30 38 0a 23 64 65 66 69 6e 65 20 F..0x08.#define
02b0: 54 59 50 45 5f 4d 44 09 09 30 78 31 30 0a 23 64 TYPE_MD..0x10.#d
02c0: 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 09 efine TYPE_HMAC.
02d0: 30 78 32 30 0a 23 64 65 66 69 6e 65 20 54 59 50 0x20.#define TYP
02e0: 45 5f 43 4d 41 43 09 30 78 34 30 0a 23 64 65 66 E_CMAC.0x40.#def
02f0: 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 30 78 38 ine TYPE_MAC.0x8
0300: 30 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 20 73 74 0../*. * This st
0310: 72 75 63 74 75 72 65 20 64 65 66 69 6e 65 73 20 ructure defines
0320: 74 68 65 20 70 65 72 2d 69 6e 73 74 61 6e 63 65 the per-instance
0330: 20 73 74 61 74 65 20 6f 66 20 61 20 64 69 67 65 state of a dige
0340: 73 74 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 20 2a st operation.. *
0350: 2f 0a 74 79 70 65 64 65 66 20 73 74 72 75 63 74 /.typedef struct
0360: 20 44 69 67 65 73 74 53 74 61 74 65 20 7b 0a 09 DigestState {..
0370: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 73 65 6c 66 Tcl_Channel self
0380: 3b 09 2f 2a 20 54 68 69 73 20 73 6f 63 6b 65 74 ;./* This socket
0390: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 54 63 6c channel */..Tcl
03a0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 20 74 69 6d 65 _TimerToken time
03b0: 72 3b 09 2f 2a 20 54 69 6d 65 72 20 66 6f 72 20 r;./* Timer for
03c0: 72 65 61 64 20 65 76 65 6e 74 73 20 2a 2f 0a 0a read events */..
03d0: 09 69 6e 74 20 66 6c 61 67 73 3b 09 09 2f 2a 20 .int flags;../*
03e0: 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 67 Chan config flag
03f0: 73 20 2a 2f 0a 09 69 6e 74 20 77 61 74 63 68 4d s */..int watchM
0400: 61 73 6b 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 ask;../* Current
0410: 20 57 61 74 63 68 50 72 6f 63 20 6d 61 73 6b 20 WatchProc mask
0420: 2a 2f 0a 09 69 6e 74 20 6d 6f 64 65 3b 09 09 2f */..int mode;../
0430: 2a 20 43 75 72 72 65 6e 74 20 6d 6f 64 65 20 6f * Current mode o
0440: 66 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c f parent channel
0450: 20 2a 2f 0a 09 69 6e 74 20 66 6f 72 6d 61 74 3b */..int format;
0460: 09 09 2f 2a 20 44 69 67 65 73 74 20 66 6f 72 6d ../* Digest form
0470: 61 74 20 61 6e 64 20 6f 70 65 72 61 74 69 6f 6e at and operation
0480: 20 2a 2f 0a 0a 09 54 63 6c 5f 49 6e 74 65 72 70 */...Tcl_Interp
0490: 20 2a 69 6e 74 65 72 70 3b 09 2f 2a 20 43 75 72 *interp;./* Cur
04a0: 72 65 6e 74 20 69 6e 74 65 72 70 72 65 74 65 72 rent interpreter
04b0: 20 2a 2f 0a 09 45 56 50 5f 4d 44 5f 43 54 58 20 */..EVP_MD_CTX
04c0: 2a 63 74 78 3b 09 2f 2a 20 4d 44 20 43 6f 6e 74 *ctx;./* MD Cont
04d0: 65 78 74 20 2a 2f 0a 09 48 4d 41 43 5f 43 54 58 ext */..HMAC_CTX
04e0: 20 2a 68 63 74 78 3b 09 09 2f 2a 20 48 4d 41 43 *hctx;../* HMAC
04f0: 20 43 6f 6e 74 65 78 74 20 2a 2f 0a 09 43 4d 41 Context */..CMA
0500: 43 5f 43 54 58 20 2a 63 63 74 78 3b 09 09 2f 2a C_CTX *cctx;../*
0510: 20 43 4d 41 43 20 43 6f 6e 74 65 78 74 20 2a 2f CMAC Context */
0520: 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e 64 20 74 6f ..Tcl_Command to
0530: 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 ken;./* Command
0540: 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 44 69 67 65 73 token */.} Diges
0550: 74 53 74 61 74 65 3b 0a 0a 2f 2a 0a 20 2a 2d 2d tState;../*. *--
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 53 74 -. *. * DigestSt
05b0: 61 74 65 4e 65 77 20 2d 2d 0a 20 2a 0a 20 2a 09 ateNew --. *. *.
05c0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 72 This function cr
05d0: 65 61 74 65 73 20 61 20 70 65 72 2d 69 6e 73 74 eates a per-inst
05e0: 61 6e 63 65 20 73 74 61 74 65 20 64 61 74 61 20 ance state data
05f0: 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 20 structure. *. *
0600: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 44 69 67 65 Returns:. *.Dige
0610: 73 74 20 73 74 72 75 63 74 75 72 65 20 70 6f 69 st structure poi
0620: 6e 74 65 72 0a 20 2a 0a 20 2a 20 53 69 64 65 20 nter. *. * Side
0630: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 effects:. *.Crea
0640: 74 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a tes structure. *
0650: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 44 69 67 65 73 ------. */.Diges
06a0: 74 53 74 61 74 65 20 2a 44 69 67 65 73 74 53 74 tState *DigestSt
06b0: 61 74 65 4e 65 77 28 54 63 6c 5f 49 6e 74 65 72 ateNew(Tcl_Inter
06c0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 66 p *interp, int f
06d0: 6f 72 6d 61 74 29 20 7b 0a 20 20 20 20 44 69 67 ormat) {. Dig
06e0: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
06f0: 74 72 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 tr;.. statePt
0700: 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 r = (DigestState
0710: 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 *) ckalloc((uns
0720: 69 67 6e 65 64 29 20 73 69 7a 65 6f 66 28 44 69 igned) sizeof(Di
0730: 67 65 73 74 53 74 61 74 65 29 29 3b 0a 20 20 20 gestState));.
0740: 20 69 66 20 28 73 74 61 74 65 50 74 72 20 21 3d if (statePtr !=
0750: 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 73 65 74 NULL) {..memset
0760: 28 73 74 61 74 65 50 74 72 2c 20 30 2c 20 73 69 (statePtr, 0, si
0770: 7a 65 6f 66 28 44 69 67 65 73 74 53 74 61 74 65 zeof(DigestState
0780: 29 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 ));..statePtr->s
0790: 65 6c 66 09 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 elf.= NULL;../*
07a0: 54 68 69 73 20 73 6f 63 6b 65 74 20 63 68 61 6e This socket chan
07b0: 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 nel */..statePtr
07c0: 2d 3e 74 69 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 ->timer = NULL;.
07d0: 09 2f 2a 20 54 69 6d 65 72 20 74 6f 20 66 6c 75 ./* Timer to flu
07e0: 73 68 20 64 61 74 61 20 2a 2f 0a 09 73 74 61 74 sh data */..stat
07f0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 3d 20 30 3b ePtr->flags = 0;
0800: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
0810: 20 66 6c 61 67 73 20 2a 2f 0a 09 73 74 61 74 65 flags */..state
0820: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 3d Ptr->watchMask =
0830: 20 30 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 57 0;./* Current W
0840: 61 74 63 68 50 72 6f 63 20 6d 61 73 6b 20 2a 2f atchProc mask */
0850: 0a 09 73 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 ..statePtr->mode
0860: 09 3d 20 30 3b 09 09 2f 2a 20 43 75 72 72 65 6e .= 0;../* Curren
0870: 74 20 6d 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 t mode of parent
0880: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 channel */..sta
0890: 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 3d 20 tePtr->format =
08a0: 66 6f 72 6d 61 74 3b 09 2f 2a 20 44 69 67 65 73 format;./* Diges
08b0: 74 20 66 6f 72 6d 61 74 20 61 6e 64 20 6f 70 65 t format and ope
08c0: 72 61 74 69 6f 6e 20 2a 2f 0a 09 73 74 61 74 65 ration */..state
08d0: 50 74 72 2d 3e 69 6e 74 65 72 70 20 3d 20 69 6e Ptr->interp = in
08e0: 74 65 72 70 3b 09 2f 2a 20 43 75 72 72 65 6e 74 terp;./* Current
08f0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a interpreter */.
0900: 09 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 3d .statePtr->ctx =
0910: 20 4e 55 4c 4c 3b 09 09 2f 2a 20 4d 44 20 43 6f NULL;../* MD Co
0920: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
0930: 74 72 2d 3e 68 63 74 78 20 3d 20 4e 55 4c 4c 3b tr->hctx = NULL;
0940: 09 09 2f 2a 20 48 4d 41 43 20 43 6f 6e 74 65 78 ../* HMAC Contex
0950: 74 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e t */..statePtr->
0960: 63 63 74 78 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a cctx = NULL;../*
0970: 20 43 4d 41 43 20 43 6f 6e 74 65 78 74 20 2a 2f CMAC Context */
0980: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 ..statePtr->toke
0990: 6e 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 43 6f n = NULL;../* Co
09a0: 6d 6d 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 20 mmand token */.
09b0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
09c0: 73 74 61 74 65 50 74 72 3b 0a 7d 0a 0a 2f 2a 0a statePtr;.}../*.
09d0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 -----. *. * Dige
0a20: 73 74 53 74 61 74 65 46 72 65 65 20 2d 2d 0a 20 stStateFree --.
0a30: 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 *. *.This functi
0a40: 6f 6e 20 64 65 6c 65 74 65 73 20 61 20 64 69 67 on deletes a dig
0a50: 65 73 74 20 73 74 61 74 65 20 73 74 72 75 63 74 est state struct
0a60: 75 72 65 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ure. *. * Return
0a70: 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a s:. *.Nothing. *
0a80: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0a90: 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 20 73 74 72 :. *.Removes str
0aa0: 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d ucture. *. *----
0ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0af0: 20 2a 2f 0a 76 6f 69 64 20 44 69 67 65 73 74 53 */.void DigestS
0b00: 74 61 74 65 46 72 65 65 28 44 69 67 65 73 74 53 tateFree(DigestS
0b10: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 20 tate *statePtr)
0b20: 7b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 {. if (stateP
0b30: 74 72 20 3d 3d 20 28 44 69 67 65 73 74 53 74 61 tr == (DigestSta
0b40: 74 65 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 te *) NULL) {..r
0b50: 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 eturn;. }..
0b60: 20 20 2f 2a 20 52 65 6d 6f 76 65 20 70 65 6e 64 /* Remove pend
0b70: 69 6e 67 20 74 69 6d 65 72 20 2a 2f 0a 20 20 20 ing timer */.
0b80: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
0b90: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
0ba0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
0bb0: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
0bc0: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
0bd0: 72 2d 3e 74 69 6d 65 72 29 3b 0a 20 20 20 20 7d r->timer);. }
0be0: 0a 0a 20 20 20 20 2f 2a 20 46 72 65 65 20 63 6f .. /* Free co
0bf0: 6e 74 65 78 74 20 73 74 72 75 63 74 75 72 65 73 ntext structures
0c00: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
0c10: 65 50 74 72 2d 3e 63 74 78 20 21 3d 20 28 45 56 ePtr->ctx != (EV
0c20: 50 5f 4d 44 5f 43 54 58 20 2a 29 20 4e 55 4c 4c P_MD_CTX *) NULL
0c30: 29 20 7b 0a 09 45 56 50 5f 4d 44 5f 43 54 58 5f ) {..EVP_MD_CTX_
0c40: 66 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 free(statePtr->c
0c50: 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 tx);. }. i
0c60: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 68 63 74 f (statePtr->hct
0c70: 78 20 21 3d 20 28 48 4d 41 43 5f 43 54 58 20 2a x != (HMAC_CTX *
0c80: 29 20 4e 55 4c 4c 29 20 7b 0a 09 48 4d 41 43 5f ) NULL) {..HMAC_
0c90: 43 54 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 CTX_free(statePt
0ca0: 72 2d 3e 68 63 74 78 29 3b 0a 20 20 20 20 7d 0a r->hctx);. }.
0cb0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
0cc0: 2d 3e 63 63 74 78 20 21 3d 20 28 43 4d 41 43 5f ->cctx != (CMAC_
0cd0: 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 CTX *) NULL) {..
0ce0: 43 4d 41 43 5f 43 54 58 5f 66 72 65 65 28 73 74 CMAC_CTX_free(st
0cf0: 61 74 65 50 74 72 2d 3e 63 63 74 78 29 3b 0a 20 atePtr->cctx);.
0d00: 20 20 20 7d 0a 20 20 20 20 63 6b 66 72 65 65 28 }. ckfree(
0d10: 73 74 61 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a statePtr);.}../*
0d20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d60: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0db0: 0a 20 2a 20 44 69 67 65 73 74 49 6e 69 74 69 61 . * DigestInitia
0dc0: 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e lize --. *. *.In
0dd0: 69 74 69 61 6c 69 7a 65 20 61 20 68 61 73 68 20 itialize a hash
0de0: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0df0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0e00: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0e10: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0e20: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0e30: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0e40: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0e50: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0e60: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0e70: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0e80: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ec0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0ed0: 20 44 69 67 65 73 74 49 6e 69 74 69 61 6c 69 7a DigestInitializ
0ee0: 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e e(Tcl_Interp *in
0ef0: 74 65 72 70 2c 20 44 69 67 65 73 74 53 74 61 74 terp, DigestStat
0f00: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 6f 6e e *statePtr, con
0f10: 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 0a 09 st EVP_MD *md,..
0f20: 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 45 52 const EVP_CIPHER
0f30: 20 2a 63 69 70 68 65 72 2c 20 54 63 6c 5f 4f 62 *cipher, Tcl_Ob
0f40: 6a 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a 20 20 20 j *keyObj) {.
0f50: 20 69 6e 74 20 6b 65 79 5f 6c 65 6e 20 3d 20 30 int key_len = 0
0f60: 2c 20 72 65 73 20 3d 20 30 3b 0a 20 20 20 20 63 , res = 0;. c
0f70: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
0f80: 61 72 20 2a 6b 65 79 20 3d 20 4e 55 4c 4c 3b 0a ar *key = NULL;.
0f90: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 6d . /* Create m
0fa0: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 63 6f essage digest co
0fb0: 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 66 20 ntext */. if
0fc0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 (statePtr->forma
0fd0: 74 20 26 20 54 59 50 45 5f 4d 44 29 20 7b 0a 09 t & TYPE_MD) {..
0fe0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 statePtr->ctx =
0ff0: 45 56 50 5f 4d 44 5f 43 54 58 5f 6e 65 77 28 29 EVP_MD_CTX_new()
1000: 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 74 65 50 ;..res = (stateP
1010: 74 72 2d 3e 63 74 78 20 21 3d 20 4e 55 4c 4c 29 tr->ctx != NULL)
1020: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
1030: 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 (statePtr->forma
1040: 74 20 26 20 54 59 50 45 5f 48 4d 41 43 29 20 7b t & TYPE_HMAC) {
1050: 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 ..statePtr->hctx
1060: 20 3d 20 48 4d 41 43 5f 43 54 58 5f 6e 65 77 28 = HMAC_CTX_new(
1070: 29 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 74 65 );..res = (state
1080: 50 74 72 2d 3e 68 63 74 78 20 21 3d 20 4e 55 4c Ptr->hctx != NUL
1090: 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 L);. } else i
10a0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 f (statePtr->for
10b0: 6d 61 74 20 26 20 54 59 50 45 5f 43 4d 41 43 29 mat & TYPE_CMAC)
10c0: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 63 {..statePtr->cc
10d0: 74 78 20 3d 20 43 4d 41 43 5f 43 54 58 5f 6e 65 tx = CMAC_CTX_ne
10e0: 77 28 29 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 w();..res = (sta
10f0: 74 65 50 74 72 2d 3e 63 63 74 78 20 21 3d 20 4e tePtr->cctx != N
1100: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ULL);. }.
1110: 69 66 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c if (!res) {..Tcl
1120: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1130: 74 65 72 70 2c 20 22 43 72 65 61 74 65 20 63 6f terp, "Create co
1140: 6e 74 65 78 74 20 66 61 69 6c 65 64 3a 20 22 2c ntext failed: ",
1150: 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 REASON(), NULL)
1160: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
1170: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1180: 2f 2a 20 47 65 74 20 6b 65 79 20 2a 2f 0a 20 20 /* Get key */.
1190: 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 21 3d 20 if (keyObj !=
11a0: 4e 55 4c 4c 29 20 7b 0a 09 6b 65 79 20 3d 20 54 NULL) {..key = T
11b0: 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 cl_GetByteArrayF
11c0: 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a 2c 20 26 romObj(keyObj, &
11d0: 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a key_len);. }.
11e0: 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 . /* Initiali
11f0: 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e ze hash function
1200: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
1210: 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 ePtr->format & T
1220: 59 50 45 5f 4d 44 29 20 7b 0a 09 72 65 73 20 3d YPE_MD) {..res =
1230: 20 45 56 50 5f 44 69 67 65 73 74 49 6e 69 74 5f EVP_DigestInit_
1240: 65 78 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 ex(statePtr->ctx
1250: 2c 20 6d 64 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 , md, NULL);.
1260: 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 61 74 } else if (stat
1270: 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 ePtr->format & T
1280: 59 50 45 5f 48 4d 41 43 29 20 7b 0a 09 72 65 73 YPE_HMAC) {..res
1290: 20 3d 20 48 4d 41 43 5f 49 6e 69 74 5f 65 78 28 = HMAC_Init_ex(
12a0: 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 statePtr->hctx,
12b0: 28 63 6f 6e 73 74 20 76 6f 69 64 20 2a 29 20 6b (const void *) k
12c0: 65 79 2c 20 6b 65 79 5f 6c 65 6e 2c 20 6d 64 2c ey, key_len, md,
12d0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c NULL);. } el
12e0: 73 65 20 69 66 20 28 73 74 61 74 65 50 74 72 2d se if (statePtr-
12f0: 3e 66 6f 72 6d 61 74 20 26 20 54 59 50 45 5f 43 >format & TYPE_C
1300: 4d 41 43 29 20 7b 0a 09 72 65 73 20 3d 20 43 4d MAC) {..res = CM
1310: 41 43 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 AC_Init(statePtr
1320: 2d 3e 63 63 74 78 2c 20 28 63 6f 6e 73 74 20 76 ->cctx, (const v
1330: 6f 69 64 20 2a 29 20 6b 65 79 2c 20 6b 65 79 5f oid *) key, key_
1340: 6c 65 6e 2c 20 63 69 70 68 65 72 2c 20 4e 55 4c len, cipher, NUL
1350: 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 L);. }. if
1360: 20 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 (!res) {..Tcl_A
1370: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1380: 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 rp, "Initialize
1390: 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f failed: ", REASO
13a0: 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 N(), NULL);..ret
13b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
13c0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
13d0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a TCL_OK;.}../*. *
13e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1420: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
1430: 55 70 64 61 74 65 20 2d 2d 0a 20 2a 0a 20 2a 09 Update --. *. *.
1440: 55 70 64 61 74 65 20 61 20 68 61 73 68 20 66 75 Update a hash fu
1450: 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 61 74 61 nction with data
1460: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
1470: 20 2a 09 31 20 69 66 20 73 75 63 63 65 73 73 66 *.1 if successf
1480: 75 6c 20 6f 72 20 30 20 66 6f 72 20 66 61 69 6c ul or 0 for fail
1490: 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ure. *. * Side e
14a0: 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 ffects:. *.Adds
14b0: 62 75 66 20 64 61 74 61 20 74 6f 20 68 61 73 68 buf data to hash
14c0: 20 66 75 6e 63 74 69 6f 6e 20 6f 72 20 73 65 74 function or set
14d0: 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f s result to erro
14e0: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1530: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 --. */.int Diges
1540: 74 55 70 64 61 74 65 28 44 69 67 65 73 74 53 74 tUpdate(DigestSt
1550: 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 ate *statePtr, c
1560: 68 61 72 20 2a 62 75 66 2c 20 73 69 7a 65 5f 74 har *buf, size_t
1570: 20 72 65 61 64 2c 20 69 6e 74 20 64 6f 5f 72 65 read, int do_re
1580: 73 75 6c 74 29 20 7b 0a 20 20 20 20 69 6e 74 20 sult) {. int
1590: 72 65 73 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66 res = 0;.. if
15a0: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d (statePtr->form
15b0: 61 74 20 26 20 54 59 50 45 5f 4d 44 29 20 7b 0a at & TYPE_MD) {.
15c0: 09 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65 73 .res = EVP_Diges
15d0: 74 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 tUpdate(statePtr
15e0: 2d 3e 63 74 78 2c 20 62 75 66 2c 20 72 65 61 64 ->ctx, buf, read
15f0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 );. } else if
1600: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d (statePtr->form
1610: 61 74 20 26 20 54 59 50 45 5f 48 4d 41 43 29 20 at & TYPE_HMAC)
1620: 7b 0a 09 72 65 73 20 3d 20 48 4d 41 43 5f 55 70 {..res = HMAC_Up
1630: 64 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 68 date(statePtr->h
1640: 63 74 78 2c 20 62 75 66 2c 20 72 65 61 64 29 3b ctx, buf, read);
1650: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
1660: 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 statePtr->format
1670: 20 26 20 54 59 50 45 5f 43 4d 41 43 29 20 7b 0a & TYPE_CMAC) {.
1680: 09 72 65 73 20 3d 20 43 4d 41 43 5f 55 70 64 61 .res = CMAC_Upda
1690: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 63 63 74 te(statePtr->cct
16a0: 78 2c 20 62 75 66 2c 20 72 65 61 64 29 3b 0a 20 x, buf, read);.
16b0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 21 72 65 }. if (!re
16c0: 73 20 26 26 20 64 6f 5f 72 65 73 75 6c 74 29 20 s && do_result)
16d0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
16e0: 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ult(statePtr->in
16f0: 74 65 72 70 2c 20 22 55 70 64 61 74 65 20 66 61 terp, "Update fa
1700: 69 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 iled: ", REASON(
1710: 29 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ), NULL);..retur
1720: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
1730: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 }. return re
1740: 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d s;.}../*. *-----
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 0a 20 --------------.
1790: 2a 0a 20 2a 20 44 69 67 65 73 74 46 69 6e 61 6c *. * DigestFinal
17a0: 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 46 69 6e ize --. *. *.Fin
17b0: 61 6c 69 7a 65 20 61 20 68 61 73 68 20 66 75 6e alize a hash fun
17c0: 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e ction and return
17d0: 20 74 68 65 20 6d 65 73 73 61 67 65 20 64 69 67 the message dig
17e0: 65 73 74 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e est. *. * Return
17f0: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 s:. *.TCL_OK if
1800: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 successful or TC
1810: 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 6c L_ERROR for fail
1820: 75 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 ure with result
1830: 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 set. *.to error
1840: 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 message.. *. * S
1850: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
1860: 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6d Sets result to m
1870: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 6f 72 essage digest or
1880: 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 an error messag
1890: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
18e0: 69 6e 74 20 44 69 67 65 73 74 46 69 6e 61 6c 69 int DigestFinali
18f0: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
1900: 6e 74 65 72 70 2c 20 44 69 67 65 73 74 53 74 61 nterp, DigestSta
1910: 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 54 63 te *statePtr, Tc
1920: 6c 5f 4f 62 6a 20 2a 2a 72 65 73 75 6c 74 4f 62 l_Obj **resultOb
1930: 6a 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 j) {. unsigne
1940: 64 20 63 68 61 72 20 6d 64 5f 62 75 66 5b 45 56 d char md_buf[EV
1950: 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 5d 3b 0a P_MAX_MD_SIZE];.
1960: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 unsigned int
1970: 20 6d 64 5f 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 md_len;. int
1980: 20 72 65 73 20 3d 20 30 3b 0a 0a 20 20 20 20 2f res = 0;.. /
1990: 2a 20 46 69 6e 61 6c 69 7a 65 20 68 61 73 68 20 * Finalize hash
19a0: 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 63 61 6c function and cal
19b0: 63 75 6c 61 74 65 20 6d 65 73 73 61 67 65 20 64 culate message d
19c0: 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 69 66 20 igest */. if
19d0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 (statePtr->forma
19e0: 74 20 26 20 54 59 50 45 5f 4d 44 29 20 7b 0a 09 t & TYPE_MD) {..
19f0: 69 66 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e if (!(statePtr->
1a00: 66 6f 72 6d 61 74 20 26 20 49 53 5f 58 4f 46 29 format & IS_XOF)
1a10: 29 20 7b 0a 09 20 20 20 20 72 65 73 20 3d 20 45 ) {.. res = E
1a20: 56 50 5f 44 69 67 65 73 74 46 69 6e 61 6c 5f 65 VP_DigestFinal_e
1a30: 78 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c x(statePtr->ctx,
1a40: 20 6d 64 5f 62 75 66 2c 20 26 6d 64 5f 6c 65 6e md_buf, &md_len
1a50: 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 );..} else {..
1a60: 20 20 72 65 73 20 3d 20 45 56 50 5f 44 69 67 65 res = EVP_Dige
1a70: 73 74 46 69 6e 61 6c 58 4f 46 28 73 74 61 74 65 stFinalXOF(state
1a80: 50 74 72 2d 3e 63 74 78 2c 20 6d 64 5f 62 75 66 Ptr->ctx, md_buf
1a90: 2c 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a , EVP_MAX_MD_SIZ
1aa0: 45 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c E);..}.. } el
1ab0: 73 65 20 69 66 20 28 73 74 61 74 65 50 74 72 2d se if (statePtr-
1ac0: 3e 66 6f 72 6d 61 74 20 26 20 54 59 50 45 5f 48 >format & TYPE_H
1ad0: 4d 41 43 29 20 7b 0a 09 72 65 73 20 3d 20 48 4d MAC) {..res = HM
1ae0: 41 43 5f 46 69 6e 61 6c 28 73 74 61 74 65 50 74 AC_Final(statePt
1af0: 72 2d 3e 68 63 74 78 2c 20 6d 64 5f 62 75 66 2c r->hctx, md_buf,
1b00: 20 26 6d 64 5f 6c 65 6e 29 3b 0a 0a 20 20 20 20 &md_len);..
1b10: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 61 74 65 } else if (state
1b20: 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 54 59 Ptr->format & TY
1b30: 50 45 5f 43 4d 41 43 29 20 7b 0a 09 73 69 7a 65 PE_CMAC) {..size
1b40: 5f 74 20 6c 65 6e 3b 0a 09 72 65 73 20 3d 20 43 _t len;..res = C
1b50: 4d 41 43 5f 46 69 6e 61 6c 28 73 74 61 74 65 50 MAC_Final(stateP
1b60: 74 72 2d 3e 63 63 74 78 2c 20 6d 64 5f 62 75 66 tr->cctx, md_buf
1b70: 2c 20 26 6c 65 6e 29 3b 0a 09 6d 64 5f 6c 65 6e , &len);..md_len
1b80: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 = (unsigned int
1b90: 29 20 6c 65 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 ) len;. }..
1ba0: 20 20 69 66 20 28 21 72 65 73 29 20 7b 0a 09 69 if (!res) {..i
1bb0: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
1bc0: 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c NULL) {.. Tcl
1bd0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1be0: 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a 65 20 terp, "Finalize
1bf0: 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f failed: ", REASO
1c00: 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 7d 0a 09 N(), NULL);..}..
1c10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1c20: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
1c30: 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 Return message d
1c40: 69 67 65 73 74 20 61 73 20 65 69 74 68 65 72 20 igest as either
1c50: 61 20 62 69 6e 61 72 79 20 6f 72 20 68 65 78 20 a binary or hex
1c60: 73 74 72 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 string */. if
1c70: 20 28 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d (statePtr->form
1c80: 61 74 20 26 20 42 49 4e 5f 46 4f 52 4d 41 54 29 at & BIN_FORMAT)
1c90: 20 7b 0a 09 69 66 20 28 72 65 73 75 6c 74 4f 62 {..if (resultOb
1ca0: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 j == NULL) {..
1cb0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
1cc0: 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
1cd0: 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a 28 6d ewByteArrayObj(m
1ce0: 64 5f 62 75 66 2c 20 6d 64 5f 6c 65 6e 29 29 3b d_buf, md_len));
1cf0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
1d00: 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c *resultObj = Tcl
1d10: 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62 6a _NewByteArrayObj
1d20: 28 6d 64 5f 62 75 66 2c 20 6d 64 5f 6c 65 6e 29 (md_buf, md_len)
1d30: 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
1d40: 65 66 43 6f 75 6e 74 28 2a 72 65 73 75 6c 74 4f efCount(*resultO
1d50: 62 6a 29 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 bj);..}.. } e
1d60: 6c 73 65 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a lse {..Tcl_Obj *
1d70: 6e 65 77 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 newObj = Tcl_New
1d80: 4f 62 6a 28 29 3b 0a 09 75 6e 73 69 67 6e 65 64 Obj();..unsigned
1d90: 20 63 68 61 72 20 2a 70 74 72 20 3d 20 54 63 6c char *ptr = Tcl
1da0: 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e _SetByteArrayLen
1db0: 67 74 68 28 6e 65 77 4f 62 6a 2c 20 6d 64 5f 6c gth(newObj, md_l
1dc0: 65 6e 2a 32 29 3b 0a 0a 09 66 6f 72 20 28 75 6e en*2);...for (un
1dd0: 73 69 67 6e 65 64 20 69 6e 74 20 69 20 3d 20 30 signed int i = 0
1de0: 3b 20 69 20 3c 20 6d 64 5f 6c 65 6e 3b 20 69 2b ; i < md_len; i+
1df0: 2b 29 20 7b 0a 09 20 20 20 20 2a 70 74 72 2b 2b +) {.. *ptr++
1e00: 20 3d 20 68 65 78 5b 28 6d 64 5f 62 75 66 5b 69 = hex[(md_buf[i
1e10: 5d 20 3e 3e 20 34 29 20 26 20 30 78 30 46 5d 3b ] >> 4) & 0x0F];
1e20: 0a 09 20 20 20 20 2a 70 74 72 2b 2b 20 3d 20 68 .. *ptr++ = h
1e30: 65 78 5b 6d 64 5f 62 75 66 5b 69 5d 20 26 20 30 ex[md_buf[i] & 0
1e40: 78 30 46 5d 3b 0a 09 7d 0a 0a 09 69 66 20 28 72 x0F];..}...if (r
1e50: 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c esultObj == NULL
1e60: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 ) {.. Tcl_Set
1e70: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1e80: 2c 20 6e 65 77 4f 62 6a 29 3b 0a 09 7d 20 65 6c , newObj);..} el
1e90: 73 65 20 7b 0a 09 20 20 20 20 2a 72 65 73 75 6c se {.. *resul
1ea0: 74 4f 62 6a 20 3d 20 6e 65 77 4f 62 6a 3b 0a 09 tObj = newObj;..
1eb0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
1ec0: 6f 75 6e 74 28 2a 72 65 73 75 6c 74 4f 62 6a 29 ount(*resultObj)
1ed0: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 ;..}. }. r
1ee0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1ef0: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
1f00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f30: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f80: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 42 6c 6f . *. * DigestBlo
1f90: 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a ckModeProc --. *
1fa0: 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f . *.This functio
1fb0: 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 n is invoked by
1fc0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c the generic IO l
1fd0: 65 76 65 6c 0a 20 2a 09 74 6f 20 73 65 74 20 62 evel. *.to set b
1fe0: 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 locking and nonb
1ff0: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 2e 0a 20 locking modes..
2000: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
2010: 09 30 20 69 66 20 73 75 63 63 65 73 73 66 75 6c .0 if successful
2020: 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 20 or POSIX error
2030: 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e 0a code if failed..
2040: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
2050: 74 73 3a 0a 20 2a 09 53 65 74 73 20 74 68 65 20 ts:. *.Sets the
2060: 64 65 76 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 device into bloc
2070: 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b king or nonblock
2080: 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 09 43 61 6e ing mode.. *.Can
2090: 20 63 61 6c 6c 20 54 63 6c 5f 53 65 74 43 68 61 call Tcl_SetCha
20a0: 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 2a 0a 20 2a nnelError.. *. *
20b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20f0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
2100: 6e 74 20 44 69 67 65 73 74 42 6c 6f 63 6b 4d 6f nt DigestBlockMo
2110: 64 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 deProc(ClientDat
2120: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e a clientData, in
2130: 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 20 44 69 t mode) {. Di
2140: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
2150: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
2160: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
2170: 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 20 ;.. if (mode
2180: 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 == TCL_MODE_NONB
2190: 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 74 61 74 LOCKING) {..stat
21a0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
21b0: 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a 20 20 LS_TCL_ASYNC;.
21c0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 61 74 } else {..stat
21d0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e ePtr->flags &= ~
21e0: 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 3b (TLS_TCL_ASYNC);
21f0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
2200: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d n 0;.}../*. *---
2210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2250: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 43 6c 6f . *. * DigestClo
2260: 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 seProc --. *. *.
2270: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
2280: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
2290: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
22a0: 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 to perform. *.c
22b0: 68 61 6e 6e 65 6c 2d 74 79 70 65 20 73 70 65 63 hannel-type spec
22c0: 69 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65 ific cleanup whe
22d0: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 69 73 n the channel is
22e0: 20 63 6c 6f 73 65 64 2e 20 41 6c 6c 0a 20 2a 09 closed. All. *.
22f0: 71 75 65 75 65 64 20 6f 75 74 70 75 74 20 69 73 queued output is
2300: 20 66 6c 75 73 68 65 64 20 70 72 69 6f 72 20 74 flushed prior t
2310: 6f 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 o calling this f
2320: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
2330: 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 20 eturns:. *.0 if
2340: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f successful or PO
2350: 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 SIX error code i
2360: 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 f failed.. *. *
2370: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
2380: 09 44 65 6c 65 74 65 73 20 73 74 6f 72 65 64 20 .Deletes stored
2390: 73 74 61 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 state data.. *.
23a0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
23b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23e0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
23f0: 65 73 74 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 estCloseProc(Cli
2400: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
2410: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
2420: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 44 69 interp) {. Di
2430: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
2440: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
2450: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
2460: 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 63 65 6c ;.. /* Cancel
2470: 20 61 63 74 69 76 65 20 74 69 6d 65 72 2c 20 69 active timer, i
2480: 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 66 20 f any */. if
2490: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
24a0: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
24b0: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
24c0: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
24d0: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
24e0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
24f0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
2500: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
2510: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f . }.. /* O
2520: 75 74 70 75 74 20 6d 65 73 73 61 67 65 20 64 69 utput message di
2530: 67 65 73 74 20 69 66 20 6e 6f 74 20 61 6c 72 65 gest if not alre
2540: 61 64 79 20 64 6f 6e 65 20 2a 2f 0a 20 20 20 20 ady done */.
2550: 69 66 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e if (!(statePtr->
2560: 66 6c 61 67 73 20 26 20 43 48 41 4e 5f 45 4f 46 flags & CHAN_EOF
2570: 29 29 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 )) {..Tcl_Channe
2580: 6c 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 l parent = Tcl_G
2590: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
25a0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
25b0: 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 ;..Tcl_Obj *resu
25c0: 6c 74 4f 62 6a 3b 0a 09 69 6e 74 20 77 72 69 74 ltObj;..int writ
25d0: 74 65 6e 3b 0a 0a 09 69 66 20 28 44 69 67 65 73 ten;...if (Diges
25e0: 74 46 69 6e 61 6c 69 7a 65 28 73 74 61 74 65 50 tFinalize(stateP
25f0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 tr->interp, stat
2600: 65 50 74 72 2c 20 26 72 65 73 75 6c 74 4f 62 6a ePtr, &resultObj
2610: 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) == TCL_OK) {..
2620: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
2630: 72 20 2a 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 r *data = Tcl_Ge
2640: 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 tByteArrayFromOb
2650: 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 26 77 72 j(resultObj, &wr
2660: 69 74 74 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c itten);.. Tcl
2670: 5f 57 72 69 74 65 52 61 77 28 70 61 72 65 6e 74 _WriteRaw(parent
2680: 2c 20 64 61 74 61 2c 20 77 72 69 74 74 65 6e 29 , data, written)
2690: 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 ;.. Tcl_DecrR
26a0: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 efCount(resultOb
26b0: 6a 29 3b 0a 09 7d 0a 09 73 74 61 74 65 50 74 72 j);..}..statePtr
26c0: 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 48 41 4e 5f ->flags |= CHAN_
26d0: 45 4f 46 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 EOF;. }..
26e0: 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 /* Clean-up */.
26f0: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 46 72 DigestStateFr
2700: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 ee(statePtr);.
2710: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
2720: 2a 0a 20 2a 20 53 61 6d 65 20 61 73 20 44 69 67 *. * Same as Dig
2730: 65 73 74 43 6c 6f 73 65 50 72 6f 63 20 62 75 74 estCloseProc but
2740: 20 77 69 74 68 20 69 6e 64 69 76 69 64 75 61 6c with individual
2750: 20 72 65 61 64 20 61 6e 64 20 77 72 69 74 65 20 read and write
2760: 63 6c 6f 73 65 20 63 6f 6e 74 72 6f 6c 0a 20 2a close control. *
2770: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 69 67 /.static int Dig
2780: 65 73 74 43 6c 6f 73 65 32 50 72 6f 63 28 43 6c estClose2Proc(Cl
2790: 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e 63 ientData instanc
27a0: 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 eData, Tcl_Inter
27b0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 66 p *interp, int f
27c0: 6c 61 67 73 29 20 7b 0a 0a 20 20 20 20 69 66 20 lags) {.. if
27d0: 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 ((flags & (TCL_C
27e0: 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 43 4c 5f LOSE_READ | TCL_
27f0: 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d CLOSE_WRITE)) ==
2800: 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 0) {..return Di
2810: 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 28 69 6e gestCloseProc(in
2820: 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 65 stanceData, inte
2830: 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 rp);. }. r
2840: 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d 0a eturn EINVAL;.}.
2850: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
2860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
28a0: 20 2a 20 44 69 67 65 73 74 49 6e 70 75 74 50 72 * DigestInputPr
28b0: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c oc --. *. *.Call
28c0: 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 ed by the generi
28d0: 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 72 c IO system to r
28e0: 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 74 72 ead data from tr
28f0: 61 6e 73 66 6f 72 6d 20 61 6e 64 0a 20 2a 09 70 ansform and. *.p
2900: 6c 61 63 65 20 69 6e 20 62 75 66 2e 20 54 72 61 lace in buf. Tra
2910: 6e 73 66 6f 72 6d 20 67 65 74 73 20 64 61 74 61 nsform gets data
2920: 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 65 72 6c from the underl
2930: 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ying channel.. *
2940: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
2950: 54 6f 74 61 6c 20 62 79 74 65 73 20 72 65 61 64 Total bytes read
2960: 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e 20 65 72 or -1 for an er
2970: 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 ror along with a
2980: 20 50 4f 53 49 58 20 65 72 72 6f 72 0a 20 2a 09 POSIX error. *.
2990: 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 43 6f 64 code in errorCod
29a0: 65 50 74 72 2e 20 55 73 65 20 45 41 47 41 49 4e ePtr. Use EAGAIN
29b0: 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 for nonblocking
29c0: 20 61 6e 64 20 6e 6f 20 64 61 74 61 2e 0a 20 2a and no data.. *
29d0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
29e0: 3a 0a 20 2a 09 52 65 61 64 20 64 61 74 61 20 66 :. *.Read data f
29f0: 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d 20 61 6e rom transform an
2a00: 64 20 77 72 69 74 65 20 74 6f 20 62 75 66 0a 20 d write to buf.
2a10: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
2a60: 6e 74 20 44 69 67 65 73 74 49 6e 70 75 74 50 72 nt DigestInputPr
2a70: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
2a80: 69 65 6e 74 44 61 74 61 2c 20 63 68 61 72 20 2a ientData, char *
2a90: 62 75 66 2c 20 69 6e 74 20 74 6f 52 65 61 64 2c buf, int toRead,
2aa0: 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 int *errorCodeP
2ab0: 74 72 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 tr) {. Digest
2ac0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
2ad0: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
2ae0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
2af0: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 Tcl_Channel pa
2b00: 72 65 6e 74 3b 0a 20 20 20 20 69 6e 74 20 72 65 rent;. int re
2b10: 61 64 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f ad;. *errorCo
2b20: 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 dePtr = 0;..
2b30: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 /* Abort if noth
2b40: 69 6e 67 20 74 6f 20 70 72 6f 63 65 73 73 20 2a ing to process *
2b50: 2f 0a 20 20 20 20 69 66 20 28 74 6f 52 65 61 64 /. if (toRead
2b60: 20 3c 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 74 <= 0 || statePt
2b70: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
2b80: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
2b90: 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 ..return 0;.
2ba0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 62 79 }.. /* Get by
2bb0: 74 65 73 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79 tes from underly
2bc0: 69 6e 67 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ing channel */.
2bd0: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f parent = Tcl_
2be0: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 GetStackedChanne
2bf0: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
2c00: 29 3b 0a 20 20 20 20 72 65 61 64 20 3d 20 54 63 );. read = Tc
2c10: 6c 5f 52 65 61 64 52 61 77 28 70 61 72 65 6e 74 l_ReadRaw(parent
2c20: 2c 20 62 75 66 2c 20 74 6f 52 65 61 64 29 3b 0a , buf, toRead);.
2c30: 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 20 68 . /* Update h
2c40: 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a ash function */.
2c50: 20 20 20 20 69 66 20 28 72 65 61 64 20 3e 20 30 if (read > 0
2c60: 29 20 7b 0a 09 2f 2a 20 48 61 76 65 20 64 61 74 ) {../* Have dat
2c70: 61 20 2a 2f 0a 09 69 66 20 28 21 44 69 67 65 73 a */..if (!Diges
2c80: 74 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 tUpdate(statePtr
2c90: 2c 20 62 75 66 2c 20 28 73 69 7a 65 5f 74 29 20 , buf, (size_t)
2ca0: 72 65 61 64 2c 20 30 29 29 20 7b 0a 09 20 20 20 read, 0)) {..
2cb0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 Tcl_SetChannelE
2cc0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
2cd0: 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e elf, Tcl_ObjPrin
2ce0: 74 66 28 22 55 70 64 61 74 65 20 66 61 69 6c 65 tf("Update faile
2cf0: 64 3a 20 25 73 22 2c 20 52 45 41 53 4f 4e 28 29 d: %s", REASON()
2d00: 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ));.. *errorC
2d10: 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b odePtr = EINVAL;
2d20: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a .. return 0;.
2d30: 09 7d 0a 09 2f 2a 20 54 68 69 73 20 69 73 20 63 .}../* This is c
2d40: 6f 72 72 65 63 74 20 2a 2f 0a 09 72 65 61 64 20 orrect */..read
2d50: 3d 20 2d 31 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 = -1;..*errorCod
2d60: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 0a ePtr = EAGAIN;..
2d70: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 72 } else if (r
2d80: 65 61 64 20 3c 20 30 29 20 7b 0a 09 2f 2a 20 45 ead < 0) {../* E
2d90: 72 72 6f 72 20 2a 2f 0a 09 2a 65 72 72 6f 72 43 rror */..*errorC
2da0: 6f 64 65 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 odePtr = Tcl_Get
2db0: 45 72 72 6e 6f 28 29 3b 0a 0a 20 20 20 20 7d 20 Errno();.. }
2dc0: 65 6c 73 65 20 69 66 20 28 21 28 73 74 61 74 65 else if (!(state
2dd0: 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 41 Ptr->flags & CHA
2de0: 4e 5f 45 4f 46 29 29 20 7b 0a 09 2f 2a 20 45 4f N_EOF)) {../* EO
2df0: 46 20 2a 2f 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 F */..Tcl_Obj *r
2e00: 65 73 75 6c 74 4f 62 6a 3b 0a 09 69 66 20 28 44 esultObj;..if (D
2e10: 69 67 65 73 74 46 69 6e 61 6c 69 7a 65 28 73 74 igestFinalize(st
2e20: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2e30: 73 74 61 74 65 50 74 72 2c 20 26 72 65 73 75 6c statePtr, &resul
2e40: 74 4f 62 6a 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 tObj) == TCL_OK)
2e50: 20 7b 0a 09 20 20 20 20 75 6e 73 69 67 6e 65 64 {.. unsigned
2e60: 20 63 68 61 72 20 2a 64 61 74 61 20 3d 20 54 63 char *data = Tc
2e70: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
2e80: 6f 6d 4f 62 6a 28 72 65 73 75 6c 74 4f 62 6a 2c omObj(resultObj,
2e90: 20 26 72 65 61 64 29 3b 0a 09 20 20 20 20 6d 65 &read);.. me
2ea0: 6d 63 70 79 28 62 75 66 2c 20 64 61 74 61 2c 20 mcpy(buf, data,
2eb0: 72 65 61 64 29 3b 0a 09 20 20 20 20 54 63 6c 5f read);.. Tcl_
2ec0: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
2ed0: 75 6c 74 4f 62 6a 29 3b 0a 0a 09 7d 20 65 6c 73 ultObj);...} els
2ee0: 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 e {.. Tcl_Set
2ef0: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 ChannelError(sta
2f00: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c tePtr->self, Tcl
2f10: 5f 4f 62 6a 50 72 69 6e 74 66 28 22 46 69 6e 61 _ObjPrintf("Fina
2f20: 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 25 73 22 lize failed: %s"
2f30: 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 20 , REASON()));..
2f40: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
2f50: 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 20 = EINVAL;..
2f60: 72 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 09 73 74 read = 0;..}..st
2f70: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
2f80: 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d CHAN_EOF;. }
2f90: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 61 64 . return read
2fa0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
2fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ff0: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4f 75 74 . *. * DigestOut
3000: 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a putProc --. *. *
3010: 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 .Called by the g
3020: 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d eneric IO system
3030: 20 74 6f 20 77 72 69 74 65 20 64 61 74 61 20 69 to write data i
3040: 6e 20 62 75 66 20 74 6f 20 74 72 61 6e 73 66 6f n buf to transfo
3050: 72 6d 2e 0a 20 2a 09 54 68 65 20 74 72 61 6e 73 rm.. *.The trans
3060: 66 6f 72 6d 20 77 72 69 74 65 73 20 74 68 65 20 form writes the
3070: 72 65 73 75 6c 74 20 74 6f 20 74 68 65 20 75 6e result to the un
3080: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
3090: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
30a0: 0a 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 . *.Total bytes
30b0: 77 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 66 6f written or -1 fo
30c0: 72 20 61 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 r an error along
30d0: 20 77 69 74 68 20 61 20 50 4f 53 49 58 20 65 72 with a POSIX er
30e0: 72 6f 72 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 ror. *.code in e
30f0: 72 72 6f 72 43 6f 64 65 50 74 72 2e 20 55 73 65 rrorCodePtr. Use
3100: 20 45 41 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 EAGAIN for nonb
3110: 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 63 61 6e 27 locking and can'
3120: 74 20 77 72 69 74 65 20 64 61 74 61 2e 0a 20 2a t write data.. *
3130: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3140: 3a 0a 20 2a 09 47 65 74 20 64 61 74 61 20 66 72 :. *.Get data fr
3150: 6f 6d 20 62 75 66 20 61 6e 64 20 75 70 64 61 74 om buf and updat
3160: 65 20 64 69 67 65 73 74 0a 20 2a 0a 20 2a 2d 2d e digest. *. *--
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31b0: 2d 2d 2d 2d 0a 20 2a 2f 0a 20 69 6e 74 20 44 69 ----. */. int Di
31c0: 67 65 73 74 4f 75 74 70 75 74 50 72 6f 63 28 43 gestOutputProc(C
31d0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
31e0: 44 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 61 72 Data, const char
31f0: 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 72 69 *buf, int toWri
3200: 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f te, int *errorCo
3210: 64 65 50 74 72 29 20 7b 0a 20 20 20 20 44 69 67 dePtr) {. Dig
3220: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
3230: 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 tr = (DigestStat
3240: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
3250: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3260: 74 72 20 3d 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 tr = 0;.. /*
3270: 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 69 6e 67 Abort if nothing
3280: 20 74 6f 20 70 72 6f 63 65 73 73 20 2a 2f 0a 20 to process */.
3290: 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 3c if (toWrite <
32a0: 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 74 72 2d = 0 || statePtr-
32b0: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
32c0: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
32d0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a return 0;. }.
32e0: 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 20 68 . /* Update h
32f0: 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a ash function */.
3300: 20 20 20 20 69 66 20 28 74 6f 57 72 69 74 65 20 if (toWrite
3310: 3e 20 30 20 26 26 20 21 44 69 67 65 73 74 55 70 > 0 && !DigestUp
3320: 64 61 74 65 28 73 74 61 74 65 50 74 72 2c 20 62 date(statePtr, b
3330: 75 66 2c 20 28 73 69 7a 65 5f 74 29 20 74 6f 57 uf, (size_t) toW
3340: 72 69 74 65 2c 20 30 29 29 20 7b 0a 09 54 63 6c rite, 0)) {..Tcl
3350: 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 _SetChannelError
3360: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c (statePtr->self,
3370: 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 Tcl_ObjPrintf("
3380: 55 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 Update failed: %
3390: 73 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a s", REASON()));.
33a0: 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d .*errorCodePtr =
33b0: 20 45 49 4e 56 41 4c 3b 0a 09 72 65 74 75 72 6e EINVAL;..return
33c0: 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 0;. }. re
33d0: 74 75 72 6e 20 74 6f 57 72 69 74 65 3b 0a 7d 0a turn toWrite;.}.
33e0: 0a 2f 2a 0a 20 2a 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 2d 0a 20 2a 0a ------------. *.
3430: 20 2a 20 44 69 67 65 73 74 53 65 74 4f 70 74 69 * DigestSetOpti
3440: 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 onProc --. *. *.
3450: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 Called by the ge
3460: 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 neric IO system
3470: 74 6f 20 73 65 74 20 63 68 61 6e 6e 65 6c 20 6f to set channel o
3480: 70 74 69 6f 6e 20 6e 61 6d 65 20 74 6f 20 76 61 ption name to va
3490: 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 lue.. *. * Retur
34a0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 ns:. *.TCL_OK if
34b0: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 successful or T
34c0: 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c CL_ERROR if fail
34d0: 65 64 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e ed along with an
34e0: 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 error. *.messag
34f0: 65 20 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 e in interp and
3500: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a Tcl_SetErrno.. *
3510: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3520: 3a 0a 20 2a 09 55 70 64 61 74 65 73 20 63 68 61 :. *.Updates cha
3530: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e nnel option to n
3540: 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d ew value.. *. *-
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
35a0: 20 69 6e 74 20 44 69 67 65 73 74 53 65 74 4f 70 int DigestSetOp
35b0: 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 tionProc(ClientD
35c0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
35d0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
35e0: 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a rp, const char *
35f0: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f 6e optionName,..con
3600: 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 st char *optionV
3610: 61 6c 75 65 29 20 7b 0a 20 20 20 20 44 69 67 65 alue) {. Dige
3620: 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 stState *statePt
3630: 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 r = (DigestState
3640: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
3650: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
3660: 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f parent;. Tcl_
3670: 44 72 69 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 DriverSetOptionP
3680: 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 roc *setOptionPr
3690: 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 oc;.. /* Abor
36a0: 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 t if no channel
36b0: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
36c0: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
36d0: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
36e0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
36f0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
3700: 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 /* Delegate opt
3710: 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 ions downstream
3720: 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 */. parent =
3730: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
3740: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
3750: 73 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f 70 self);. setOp
3760: 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 tionProc = Tcl_C
3770: 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 hannelSetOptionP
3780: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
3790: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b elType(parent));
37a0: 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 . if (setOpti
37b0: 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 onProc != NULL)
37c0: 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f {..return (*setO
37d0: 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 ptionProc)(Tcl_G
37e0: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
37f0: 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 eData(parent), i
3800: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
3810: 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b e, optionValue);
3820: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
3830: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 cl_SetErrno(EINV
3840: 41 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c AL);..return Tcl
3850: 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _BadChannelOptio
3860: 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e n(interp, option
3870: 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 Name, NULL);.
3880: 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 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: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 47 65 -. *. * DigestGe
38e0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 tOptionProc --.
38f0: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
3900: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 he generic IO sy
3910: 73 74 65 6d 20 74 6f 20 67 65 74 20 63 68 61 6e stem to get chan
3920: 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 27 nel option name'
3930: 73 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 s value.. *. * R
3940: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
3950: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
3960: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 20 or TCL_ERROR if
3970: 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 74 failed along wit
3980: 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d 65 h an error. *.me
3990: 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 20 ssage in interp
39a0: 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f and Tcl_SetErrno
39b0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
39c0: 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 ects:. *.Sets re
39d0: 73 75 6c 74 20 74 6f 20 6f 70 74 69 6f 6e 27 73 sult to option's
39e0: 20 76 61 6c 75 65 0a 20 2a 0a 20 2a 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 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
3a40: 74 20 44 69 67 65 73 74 47 65 74 4f 70 74 69 6f t DigestGetOptio
3a50: 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 nProc(ClientData
3a60: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
3a70: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3a80: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 const char *opt
3a90: 69 6f 6e 4e 61 6d 65 2c 0a 09 54 63 6c 5f 44 53 ionName,..Tcl_DS
3aa0: 74 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c tring *optionVal
3ab0: 75 65 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 ue) {. Digest
3ac0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
3ad0: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
3ae0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
3af0: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 Tcl_Channel pa
3b00: 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 rent;. Tcl_Dr
3b10: 69 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f iverGetOptionPro
3b20: 63 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 c *getOptionProc
3b30: 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 ;.. /* Abort
3b40: 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f if no channel */
3b50: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
3b60: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
3b70: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
3b80: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3b90: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
3ba0: 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 69 6f * Delegate optio
3bb0: 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 2a 2f ns downstream */
3bc0: 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 . parent = Tc
3bd0: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e l_GetStackedChan
3be0: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
3bf0: 6c 66 29 3b 0a 20 20 20 20 67 65 74 4f 70 74 69 lf);. getOpti
3c00: 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 onProc = Tcl_Cha
3c10: 6e 6e 65 6c 47 65 74 4f 70 74 69 6f 6e 50 72 6f nnelGetOptionPro
3c20: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c c(Tcl_GetChannel
3c30: 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 Type(parent));.
3c40: 20 20 20 69 66 20 28 67 65 74 4f 70 74 69 6f 6e if (getOption
3c50: 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a Proc != NULL) {.
3c60: 09 72 65 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 .return (*getOpt
3c70: 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 ionProc)(Tcl_Get
3c80: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
3c90: 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 6e 74 ata(parent), int
3ca0: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
3cb0: 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 optionValue);.
3cc0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 } else if (op
3cd0: 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 tionName == (cha
3ce0: 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 r*) NULL) {../*
3cf0: 52 65 71 75 65 73 74 20 69 73 20 71 75 65 72 79 Request is query
3d00: 20 66 6f 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 for all options
3d10: 2c 20 74 68 69 73 20 69 73 20 6f 6b 2e 20 2a 2f , this is ok. */
3d20: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
3d30: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
3d40: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 cl_SetErrno(EINV
3d50: 41 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c AL);..return Tcl
3d60: 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _BadChannelOptio
3d70: 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e n(interp, option
3d80: 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 Name, NULL);.
3d90: 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 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: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 54 69 -. *. * DigestTi
3df0: 6d 65 72 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a merHandler --. *
3e00: 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 . *.Called by th
3e10: 65 20 6e 6f 74 69 66 69 65 72 20 76 69 61 20 74 e notifier via t
3e20: 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 6f 75 imer to flush ou
3e30: 74 20 70 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 t pending input
3e40: 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 data.. *. * Retu
3e50: 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a rns:. *.Nothing.
3e60: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
3e70: 74 73 3a 0a 20 2a 09 4d 61 79 20 63 61 6c 6c 20 ts:. *.May call
3e80: 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 Tcl_NotifyChanne
3e90: 6c 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d l. *. *---------
3ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3ee0: 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 20 44 69 /.static void Di
3ef0: 67 65 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 gestTimerHandler
3f00: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
3f10: 6e 74 44 61 74 61 29 20 7b 0a 20 20 20 20 44 69 ntData) {. Di
3f20: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
3f30: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
3f40: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
3f50: 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 ;.. /* Abort
3f60: 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f if no channel */
3f70: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
3f80: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
3f90: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
3fa0: 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a ..return;. }.
3fb0: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 69 . /* Clear ti
3fc0: 6d 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 mer token */.
3fd0: 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 statePtr->timer
3fe0: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b = (Tcl_TimerTok
3ff0: 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f en) NULL;.. /
4000: 2a 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 20 * Fire event if
4010: 74 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e 67 there is pending
4020: 20 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 65 data, skip othe
4030: 72 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 20 rwise */. if
4040: 28 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 ((statePtr->watc
4050: 68 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 hMask & TCL_READ
4060: 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e ABLE) && (Tcl_In
4070: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
4080: 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 ePtr->self) > 0)
4090: 29 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 43 ) {..Tcl_NotifyC
40a0: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
40b0: 3e 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 41 >self, TCL_READA
40c0: 42 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f BLE);. }.}../
40d0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
4120: 20 44 69 67 65 73 74 57 61 74 63 68 50 72 6f 63 DigestWatchProc
4130: 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 --. *. *.Initia
4140: 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 65 lize the notifie
4150: 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 65 r to watch for e
4160: 76 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 20 vents from this
4170: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
4180: 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 eturns:. *.Nothi
4190: 6e 67 20 28 63 61 6e 27 74 20 72 65 74 75 72 6e ng (can't return
41a0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 29 error messages)
41b0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
41c0: 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 72 cts:. *.Configur
41d0: 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 75 e notifier so fu
41e0: 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 74 ture events on t
41f0: 68 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c 20 he channel will
4200: 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e 0a be seen by Tcl..
4210: 20 2a 0a 20 2a 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 2d 0a 20 2a 2f 0a -----------. */.
4260: 76 6f 69 64 20 44 69 67 65 73 74 57 61 74 63 68 void DigestWatch
4270: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
4280: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 clientData, int
4290: 6d 61 73 6b 29 20 7b 0a 20 20 20 20 44 69 67 65 mask) {. Dige
42a0: 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 stState *statePt
42b0: 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 r = (DigestState
42c0: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
42d0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
42e0: 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f parent;. Tcl_
42f0: 44 72 69 76 65 72 57 61 74 63 68 50 72 6f 63 20 DriverWatchProc
4300: 2a 77 61 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 *watchProc;..
4310: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 /* Abort if no
4320: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
4330: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c f (statePtr->sel
4340: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
4350: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
4360: 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f rn;. }.. /
4370: 2a 20 53 74 6f 72 65 20 4f 52 2d 65 64 20 63 6f * Store OR-ed co
4380: 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c mbination of TCL
4390: 5f 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 _READABLE, TCL_W
43a0: 52 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f RITABLE and TCL_
43b0: 45 58 43 45 50 54 49 4f 4e 20 2a 2f 0a 20 20 20 EXCEPTION */.
43c0: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 statePtr->watch
43d0: 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 Mask = mask;..
43e0: 20 20 2f 2a 20 50 72 6f 70 61 67 61 74 65 20 6d /* Propagate m
43f0: 61 73 6b 20 69 6e 66 6f 20 74 6f 20 70 61 72 65 ask info to pare
4400: 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 nt channel */.
4410: 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 parent = Tcl_G
4420: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
4430: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
4440: 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 20 ;. watchProc
4450: 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 = Tcl_ChannelWat
4460: 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 chProc(Tcl_GetCh
4470: 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 annelType(parent
4480: 29 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f ));. watchPro
4490: 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c c(Tcl_GetChannel
44a0: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 InstanceData(par
44b0: 65 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 ent), mask);..
44c0: 20 20 2f 2a 20 52 65 6d 6f 76 65 20 70 65 6e 64 /* Remove pend
44d0: 69 6e 67 20 74 69 6d 65 72 20 2a 2f 0a 20 20 20 ing timer */.
44e0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
44f0: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
4500: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
4510: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
4520: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
4530: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
4540: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
4550: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
4560: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
4570: 2f 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 64 /* If there is d
4580: 61 74 61 20 70 65 6e 64 69 6e 67 2c 20 73 65 74 ata pending, set
4590: 20 6e 65 77 20 74 69 6d 65 72 20 74 6f 20 63 61 new timer to ca
45a0: 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 ll Tcl_NotifyCha
45b0: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 nnel */. if (
45c0: 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 (mask & TCL_READ
45d0: 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e ABLE) && (Tcl_In
45e0: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
45f0: 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 ePtr->self) > 0)
4600: 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 ) {..statePtr->t
4610: 69 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 imer = Tcl_Creat
4620: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 52 45 eTimerHandler(RE
4630: 41 44 5f 44 45 4c 41 59 2c 20 44 69 67 65 73 74 AD_DELAY, Digest
4640: 54 69 6d 65 72 48 61 6e 64 6c 65 72 2c 20 28 43 TimerHandler, (C
4650: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
4660: 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f Ptr);. }.}../
4670: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
46a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
46b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
46c0: 20 44 69 67 65 73 74 47 65 74 48 61 6e 64 6c 65 DigestGetHandle
46d0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
46e0: 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 65 lled from Tcl_Ge
46f0: 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20 74 tChannelHandle t
4700: 6f 20 72 65 74 72 69 65 76 65 20 4f 53 20 73 70 o retrieve OS sp
4710: 65 63 69 66 69 63 20 66 69 6c 65 20 68 61 6e 64 ecific file hand
4720: 6c 65 0a 20 2a 09 66 72 6f 6d 20 69 6e 73 69 64 le. *.from insid
4730: 65 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 20 e this channel.
4740: 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 74 72 61 Not used for tra
4750: 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 3f 0a 20 2a nsformations?. *
4760: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
4770: 54 43 4c 5f 4f 4b 20 66 6f 72 20 73 75 63 63 65 TCL_OK for succe
4780: 73 73 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 ss or TCL_ERROR
4790: 66 6f 72 20 65 72 72 6f 72 20 6f 72 20 69 66 20 for error or if
47a0: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 20 49 not supported. I
47b0: 66 0a 20 2a 09 64 69 72 65 63 74 69 6f 6e 20 69 f. *.direction i
47c0: 73 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 s TCL_READABLE,
47d0: 73 65 74 73 20 68 61 6e 64 6c 65 50 74 72 20 74 sets handlePtr t
47e0: 6f 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 o the handle use
47f0: 64 20 66 6f 72 0a 20 2a 09 69 6e 70 75 74 2c 20 d for. *.input,
4800: 6f 72 20 69 66 20 54 43 4c 5f 57 52 49 54 41 42 or if TCL_WRITAB
4810: 4c 45 20 73 65 74 73 20 74 6f 20 74 68 65 20 68 LE sets to the h
4820: 61 6e 64 6c 65 20 75 73 65 64 20 66 6f 72 20 6f andle used for o
4830: 75 74 70 75 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 utput.. *. * Sid
4840: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
4850: 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ne. *. *--------
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
48a0: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 47 65 74 */.int DigestGet
48b0: 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e HandleProc(Clien
48c0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
48d0: 2c 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c , int direction,
48e0: 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e ClientData *han
48f0: 64 6c 65 50 74 72 29 20 7b 0a 20 20 20 20 44 69 dlePtr) {. Di
4900: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
4910: 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 Ptr = (DigestSta
4920: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
4930: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
4940: 6c 20 70 61 72 65 6e 74 3b 0a 0a 20 20 20 20 2f l parent;.. /
4950: 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 * Abort if no ch
4960: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
4970: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 (statePtr->self
4980: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
4990: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
49a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
49b0: 7d 0a 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 }.. parent =
49c0: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
49d0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
49e0: 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 74 75 72 self);. retur
49f0: 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c n Tcl_GetChannel
4a00: 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 2c 20 64 Handle(parent, d
4a10: 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 irection, handle
4a20: 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d Ptr);.}../*. *--
4a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a70: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
4a80: 74 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 tNotifyProc --.
4a90: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 54 *. *.Called by T
4aa0: 63 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 cl to inform us
4ab0: 6f 66 20 61 63 74 69 76 69 74 79 20 6f 6e 20 74 of activity on t
4ac0: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 he underlying ch
4ad0: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 annel.. *. * Ret
4ae0: 75 72 6e 73 3a 0a 20 2a 09 55 6e 63 68 61 6e 67 urns:. *.Unchang
4af0: 65 64 20 69 6e 74 65 72 65 73 74 4d 61 73 6b 20 ed interestMask
4b00: 77 68 69 63 68 20 69 73 20 61 6e 20 4f 52 2d 65 which is an OR-e
4b10: 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 d combination of
4b20: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 TCL_READABLE or
4b30: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 0a 20 2a TCL_WRITABLE. *
4b40: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4b50: 3a 0a 20 2a 09 43 61 6e 63 65 6c 73 20 61 6e 79 :. *.Cancels any
4b60: 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 2e 0a pending timer..
4b70: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
4b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
4bc0: 69 6e 74 20 44 69 67 65 73 74 4e 6f 74 69 66 79 int DigestNotify
4bd0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
4be0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 clientData, int
4bf0: 69 6e 74 65 72 65 73 74 4d 61 73 6b 29 20 7b 0a interestMask) {.
4c00: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
4c10: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 *statePtr = (Dig
4c20: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 estState *) clie
4c30: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 ntData;.. /*
4c40: 53 6b 69 70 20 74 69 6d 65 72 20 65 76 65 6e 74 Skip timer event
4c50: 20 61 73 20 72 65 64 75 6e 64 61 6e 74 20 2a 2f as redundant */
4c60: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4c70: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
4c80: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
4c90: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
4ca0: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
4cb0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
4cc0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
4cd0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
4ce0: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 n) NULL;. }.
4cf0: 20 20 20 72 65 74 75 72 6e 20 69 6e 74 65 72 65 return intere
4d00: 73 74 4d 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a stMask;.}../*. *
4d10: 0a 20 2a 20 43 68 61 6e 6e 65 6c 20 74 79 70 65 . * Channel type
4d20: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
4d30: 69 74 69 6f 6e 20 66 6f 72 20 64 69 67 65 73 74 ition for digest
4d40: 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 transformations
4d50: 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 .. *. */.static
4d60: 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e 65 const Tcl_Channe
4d70: 6c 54 79 70 65 20 64 69 67 65 73 74 43 68 61 6e lType digestChan
4d80: 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 nelType = {.
4d90: 22 64 69 67 65 73 74 22 2c 09 09 09 2f 2a 20 54 "digest",.../* T
4da0: 79 70 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 ype name */.
4db0: 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TCL_CHANNEL_VERS
4dc0: 49 4f 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 ION_5,./* v5 cha
4dd0: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 44 69 67 65 nnel */. Dige
4de0: 73 74 43 6c 6f 73 65 50 72 6f 63 2c 09 09 2f 2a stCloseProc,../*
4df0: 20 43 6c 6f 73 65 20 70 72 6f 63 20 2a 2f 0a 20 Close proc */.
4e00: 20 20 20 44 69 67 65 73 74 49 6e 70 75 74 50 72 DigestInputPr
4e10: 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 72 oc,../* Input pr
4e20: 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 oc */. Digest
4e30: 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 OutputProc,../*
4e40: 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 Output proc */.
4e50: 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 65 NULL,.../* Se
4e60: 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 ek proc */. D
4e70: 69 67 65 73 74 53 65 74 4f 70 74 69 6f 6e 50 72 igestSetOptionPr
4e80: 6f 63 2c 09 2f 2a 20 53 65 74 20 6f 70 74 69 6f oc,./* Set optio
4e90: 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 n proc */. Di
4ea0: 67 65 73 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f gestGetOptionPro
4eb0: 63 2c 09 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e c,./* Get option
4ec0: 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 proc */. Dig
4ed0: 65 73 74 57 61 74 63 68 50 72 6f 63 2c 09 09 2f estWatchProc,../
4ee0: 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 6e 6f 74 * Initialize not
4ef0: 69 66 69 65 72 20 2a 2f 0a 20 20 20 20 44 69 67 ifier */. Dig
4f00: 65 73 74 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 estGetHandleProc
4f10: 2c 09 2f 2a 20 47 65 74 20 4f 53 20 68 61 6e 64 ,./* Get OS hand
4f20: 6c 65 73 20 6f 75 74 20 6f 66 20 63 68 61 6e 6e les out of chann
4f30: 65 6c 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 el */. Digest
4f40: 43 6c 6f 73 65 32 50 72 6f 63 2c 09 09 2f 2a 20 Close2Proc,../*
4f50: 63 6c 6f 73 65 32 70 72 6f 63 20 2a 2f 0a 20 20 close2proc */.
4f60: 20 20 44 69 67 65 73 74 42 6c 6f 63 6b 4d 6f 64 DigestBlockMod
4f70: 65 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c eProc,./* Set bl
4f80: 6f 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 ocking/nonblocki
4f90: 6e 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 ng mode*/. NU
4fa0: 4c 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 LL,.../* Flush p
4fb0: 72 6f 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 roc */. Diges
4fc0: 74 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a tNotifyProc,../*
4fd0: 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 Handling of eve
4fe0: 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 nts bubbling up
4ff0: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
5000: 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 * Wide seek proc
5010: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
5020: 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e /* Thread action
5030: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f */. NULL.../
5040: 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b * Truncate */.};
5050: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
50a0: 0a 20 2a 20 44 69 67 65 73 74 43 68 61 6e 6e 65 . * DigestChanne
50b0: 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 lHandler --. *.
50c0: 2a 09 43 72 65 61 74 65 20 61 20 73 74 61 63 6b *.Create a stack
50d0: 65 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 ed channel for a
50e0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
50f0: 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e 0a transformation..
5100: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
5110: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
5120: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
5130: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 effects:. *.Add
5140: 73 20 74 72 61 6e 73 66 6f 72 6d 20 74 6f 20 63 s transform to c
5150: 68 61 6e 6e 65 6c 20 61 6e 64 20 73 65 74 73 20 hannel and sets
5160: 72 65 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 result to channe
5170: 6c 20 69 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 l id or error me
5180: 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d ssage.. *. *----
5190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51d0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
51e0: 74 0a 44 69 67 65 73 74 43 68 61 6e 6e 65 6c 48 t.DigestChannelH
51f0: 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 andler(Tcl_Inter
5200: 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 p *interp, const
5210: 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 20 char *channel,
5220: 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 const EVP_MD *md
5230: 2c 0a 09 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 ,..const EVP_CIP
5240: 48 45 52 20 2a 63 69 70 68 65 72 2c 20 69 6e 74 HER *cipher, int
5250: 20 66 6f 72 6d 61 74 2c 20 54 63 6c 5f 4f 62 6a format, Tcl_Obj
5260: 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a 20 20 20 20 *keyObj) {.
5270: 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d int mode; /* OR-
5280: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
5290: 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 f TCL_READABLE a
52a0: 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 nd TCL_WRITABLE
52b0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e */. Tcl_Chann
52c0: 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 44 69 67 el chan;. Dig
52d0: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
52e0: 74 72 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 tr;.. /* Vali
52f0: 64 61 74 65 20 61 72 67 73 20 2a 2f 0a 20 20 20 date args */.
5300: 20 69 66 20 28 63 68 61 6e 6e 65 6c 20 3d 3d 20 if (channel ==
5310: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 4e (const char *) N
5320: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
5330: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5340: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e . /* Get chan
5350: 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 63 68 nel Id */. ch
5360: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
5370: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e nel(interp, chan
5380: 6e 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 nel, &mode);.
5390: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
53a0: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
53b0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
53c0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
53d0: 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f /* Make sure to
53e0: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 operate on the
53f0: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 topmost channel
5400: 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 */. chan = Tc
5410: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
5420: 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 chan);.. /* C
5430: 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 61 reate state data
5440: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 structure */.
5450: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 if ((statePtr
5460: 3d 20 44 69 67 65 73 74 53 74 61 74 65 4e 65 77 = DigestStateNew
5470: 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 (interp, format)
5480: 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ) == NULL) {..Tc
5490: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
54a0: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
54b0: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
54c0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
54d0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
54e0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 ROR;. }. s
54f0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 tatePtr->self =
5500: 63 68 61 6e 3b 0a 20 20 20 20 73 74 61 74 65 50 chan;. stateP
5510: 74 72 2d 3e 6d 6f 64 65 20 3d 20 6d 6f 64 65 3b tr->mode = mode;
5520: 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c .. /* Initial
5530: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ize hash functio
5540: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 44 69 67 n */. if (Dig
5550: 65 73 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e estInitialize(in
5560: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 terp, statePtr,
5570: 6d 64 2c 20 63 69 70 68 65 72 2c 20 6b 65 79 4f md, cipher, keyO
5580: 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b bj) != TCL_OK) {
5590: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
55a0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
55b0: 2a 20 43 6f 6e 66 69 67 75 72 65 20 63 68 61 6e * Configure chan
55c0: 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 nel */. Tcl_S
55d0: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
55e0: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
55f0: 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 translation", "b
5600: 69 6e 61 72 79 22 29 3b 0a 20 20 20 20 69 66 20 inary");. if
5610: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 42 (Tcl_GetChannelB
5620: 75 66 66 65 72 53 69 7a 65 28 63 68 61 6e 29 20 ufferSize(chan)
5630: 3c 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a < EVP_MAX_MD_SIZ
5640: 45 20 2a 20 32 29 20 7b 0a 09 54 63 6c 5f 53 65 E * 2) {..Tcl_Se
5650: 74 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 tChannelBufferSi
5660: 7a 65 28 63 68 61 6e 2c 20 45 56 50 5f 4d 41 58 ze(chan, EVP_MAX
5670: 5f 4d 44 5f 53 49 5a 45 20 2a 20 32 29 3b 0a 20 _MD_SIZE * 2);.
5680: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 61 }.. /* Sta
5690: 63 6b 20 63 68 61 6e 6e 65 6c 2c 20 61 62 6f 72 ck channel, abor
56a0: 74 20 66 6f 72 20 65 72 72 6f 72 20 2a 2f 0a 20 t for error */.
56b0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c statePtr->sel
56c0: 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 f = Tcl_StackCha
56d0: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 26 64 69 nnel(interp, &di
56e0: 67 65 73 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c gestChannelType,
56f0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
5700: 61 74 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 atePtr, mode, ch
5710: 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 an);. if (sta
5720: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
5730: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
5740: 4c 29 20 7b 0a 09 44 69 67 65 73 74 53 74 61 74 L) {..DigestStat
5750: 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b eFree(statePtr);
5760: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5770: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5780: 2a 20 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 * Set result to
5790: 63 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 channel Id */.
57a0: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
57b0: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
57c0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
57d0: 61 6d 65 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 ame(chan), TCL_V
57e0: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 OLATILE);. re
57f0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
5800: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
5810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5850: 2a 20 55 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 * Unstack Channe
5860: 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 l --. *. *.This
5870: 66 75 6e 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 function removes
5880: 20 74 68 65 20 73 74 61 63 6b 65 64 20 63 68 61 the stacked cha
5890: 6e 6e 65 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f nnel from the to
58a0: 70 20 6f 66 20 74 68 65 0a 20 2a 09 63 68 61 6e p of the. *.chan
58b0: 6e 65 6c 20 73 74 61 63 6b 20 69 66 20 69 74 20 nel stack if it
58c0: 69 73 20 61 20 64 69 67 65 73 74 20 63 68 61 6e is a digest chan
58d0: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 nel.. *. * Retur
58e0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
58f0: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
5900: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
5910: 2a 09 52 65 6d 6f 76 65 73 20 74 72 61 6e 73 66 *.Removes transf
5920: 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c orm from channel
5930: 20 6f 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 or sets result
5940: 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 to error message
5950: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
5960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
59a0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 44 69 67 /.static int.Dig
59b0: 65 73 74 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 estUnstackObjCmd
59c0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
59d0: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
59e0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
59f0: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
5a00: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
5a10: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 Tcl_Channel c
5a20: 68 61 6e 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 han;. int mod
5a30: 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 e; /* OR-ed comb
5a40: 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 ination of TCL_R
5a50: 45 41 44 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f EADABLE and TCL_
5a60: 57 52 49 54 41 42 4c 45 20 20 2a 2f 0a 0a 20 20 WRITABLE */..
5a70: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
5a80: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 g count */. i
5a90: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a f (objc != 2) {.
5aa0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
5ab0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
5ac0: 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 v, "channel");..
5ad0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5ae0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
5af0: 47 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 Get channel */.
5b00: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
5b10: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c tChannel(interp,
5b20: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
5b30: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e omObj(objv[1], N
5b40: 55 4c 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 ULL), &mode);.
5b50: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 if (chan == (T
5b60: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
5b70: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
5b80: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5b90: 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 /* Make sure t
5ba0: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
5bb0: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
5bc0: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 */. chan = T
5bd0: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
5be0: 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 (chan);.. /*
5bf0: 43 68 65 63 6b 20 69 66 20 64 69 67 65 73 74 20 Check if digest
5c00: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
5c10: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
5c20: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 26 lType(chan) != &
5c30: 64 69 67 65 73 74 43 68 61 6e 6e 65 6c 54 79 70 digestChannelTyp
5c40: 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 e) {..Tcl_Append
5c50: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5c60: 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c bad channel \"",
5c70: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
5c80: 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 20 20 20 ame(chan),..
5c90: 22 5c 22 3a 20 6e 6f 74 20 61 20 64 69 67 65 73 "\": not a diges
5ca0: 74 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c t channel", NULL
5cb0: 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 );..Tcl_SetError
5cc0: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c Code(interp, "TL
5cd0: 53 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 22 S", "UNSTACK", "
5ce0: 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c CHANNEL", "INVAL
5cf0: 49 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ID", (char *) NU
5d00: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
5d10: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5d20: 20 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 66 /* Pop transf
5d30: 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c orm from channel
5d40: 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 */. return T
5d50: 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 cl_UnstackChanne
5d60: 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 3b l(interp, chan);
5d70: 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 . .clientData
5d80: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d = clientData;.}
5d90: 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ../*************
5da0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5db0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5dc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5dd0: 2a 2a 2a 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 ******/..static
5de0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 69 6e 73 74 const char *inst
5df0: 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 3d 20 7b 20 ance_fns [] = {
5e00: 22 66 69 6e 61 6c 69 7a 65 22 2c 20 22 75 70 64 "finalize", "upd
5e10: 61 74 65 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 0a 2f ate", NULL };../
5e20: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e60: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 -------. *. * Di
5e70: 67 65 73 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 gestInstanceObjC
5e80: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 md --. *. *.Hand
5e90: 6c 65 72 20 66 6f 72 20 64 69 67 65 73 74 20 63 ler for digest c
5ea0: 6f 6d 6d 61 6e 64 20 69 6e 73 74 61 6e 63 65 73 ommand instances
5eb0: 2e 20 55 73 65 64 20 74 6f 20 61 64 64 20 64 61 . Used to add da
5ec0: 74 61 20 74 6f 20 68 61 73 68 0a 20 2a 09 66 75 ta to hash. *.fu
5ed0: 6e 63 74 69 6f 6e 20 6f 72 20 72 65 74 72 69 65 nction or retrie
5ee0: 76 65 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 ve message diges
5ef0: 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 t.. *. * Returns
5f00: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
5f10: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
5f20: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
5f30: 41 64 64 73 20 64 61 74 61 20 74 6f 20 68 61 73 Adds data to has
5f40: 68 20 6f 72 20 72 65 74 75 72 6e 73 20 6d 65 73 h or returns mes
5f50: 73 61 67 65 20 64 69 67 65 73 74 0a 20 2a 0a 20 sage digest. *.
5f60: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fa0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
5fb0: 65 73 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d estInstanceObjCm
5fc0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
5fd0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
5fe0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
5ff0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
6000: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
6010: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
6020: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 *statePtr = (Dig
6030: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 estState *) clie
6040: 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 ntData;. int
6050: 66 6e 2c 20 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 fn, len = 0;.
6060: 20 63 68 61 72 20 2a 62 75 66 20 3d 20 4e 55 4c char *buf = NUL
6070: 4c 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 L;.. /* Valid
6080: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
6090: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 . if (objc <
60a0: 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 2 || objc > 3) {
60b0: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
60c0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
60d0: 6a 76 2c 20 22 66 75 6e 63 74 69 6f 6e 20 3f 64 jv, "function ?d
60e0: 61 74 61 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ata?");..return
60f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6100: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 66 75 6e .. /* Get fun
6110: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 ction */. if
6120: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f (Tcl_GetIndexFro
6130: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
6140: 76 5b 31 5d 2c 20 69 6e 73 74 61 6e 63 65 5f 66 v[1], instance_f
6150: 6e 73 2c 20 22 66 75 6e 63 74 69 6f 6e 22 2c 20 ns, "function",
6160: 30 2c 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 0, &fn) != TCL_O
6170: 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c K) {..return TCL
6180: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6190: 20 20 20 2f 2a 20 44 6f 20 66 75 6e 63 74 69 6f /* Do functio
61a0: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 6e 29 n */. if (fn)
61b0: 20 7b 0a 09 2f 2a 20 47 65 74 20 64 61 74 61 20 {../* Get data
61c0: 6f 72 20 72 65 74 75 72 6e 20 65 72 72 6f 72 20 or return error
61d0: 69 66 20 6e 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 if none */..if (
61e0: 6f 62 6a 63 20 3d 3d 20 33 29 20 7b 0a 09 20 20 objc == 3) {..
61f0: 20 20 62 75 66 20 3d 20 54 63 6c 5f 47 65 74 42 buf = Tcl_GetB
6200: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
6210: 6f 62 6a 76 5b 32 5d 2c 20 26 6c 65 6e 29 3b 0a objv[2], &len);.
6220: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 .} else {.. T
6230: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
6240: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6250: 20 22 75 70 64 61 74 65 20 64 61 74 61 22 29 3b "update data");
6260: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
6270: 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 _ERROR;..}.../*
6280: 55 70 64 61 74 65 20 68 61 73 68 20 66 75 6e 63 Update hash func
6290: 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 21 44 69 tion */..if (!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 2c 20 31 29 29 20 7b 0a 09 20 t) len, 1)) {..
62d0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
62e0: 52 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 ROR;..}.. } e
62f0: 6c 73 65 20 7b 0a 09 2f 2a 20 46 69 6e 61 6c 69 lse {../* Finali
6300: 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e ze hash function
6310: 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 6d and calculate m
6320: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f essage digest */
6330: 0a 09 69 66 20 28 44 69 67 65 73 74 46 69 6e 61 ..if (DigestFina
6340: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 lize(interp, sta
6350: 74 65 50 74 72 2c 20 4e 55 4c 4c 29 20 21 3d 20 tePtr, NULL) !=
6360: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 72 TCL_OK) {.. r
6370: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6380: 0a 09 7d 0a 0a 09 54 63 6c 5f 44 65 6c 65 74 65 ..}...Tcl_Delete
6390: 43 6f 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e CommandFromToken
63a0: 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 (interp, statePt
63b0: 72 2d 3e 74 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d r->token);. }
63c0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
63d0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
63e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6420: 20 2a 0a 20 2a 20 44 69 67 65 73 74 43 6f 6d 6d *. * DigestComm
6430: 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 andDeleteHandler
6440: 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c 62 --. *. *. Callb
6450: 61 63 6b 20 74 6f 20 63 6c 65 61 6e 2d 75 70 20 ack to clean-up
6460: 77 68 65 6e 20 64 69 67 65 73 74 20 69 6e 73 74 when digest inst
6470: 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 20 69 73 20 ance command is
6480: 64 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 deleted.. *. * R
6490: 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 eturns:. *.Nothi
64a0: 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ng. *. * Side ef
64b0: 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f fects:. *.Destro
64c0: 79 73 20 73 74 61 74 65 20 69 6e 66 6f 20 73 74 ys state info st
64d0: 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d ructure. *. *---
64e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6520: 0a 20 2a 2f 0a 76 6f 69 64 20 44 69 67 65 73 74 . */.void Digest
6530: 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e CommandDeleteHan
6540: 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 dler(ClientData
6550: 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 clientData) {.
6560: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
6570: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
6580: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
6590: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c Data;.. /* Cl
65a0: 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 44 69 ean-up */. Di
65b0: 67 65 73 74 53 74 61 74 65 46 72 65 65 28 73 74 gestStateFree(st
65c0: 61 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 atePtr);.}../*.
65d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
65e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6610: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
6620: 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 tCommandHandler
6630: 2d 2d 0a 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 --. *. *. Create
6640: 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 61 6c 6c 6f command to allo
6650: 77 20 75 73 65 72 20 74 6f 20 61 64 64 20 64 61 w user to add da
6660: 74 61 20 74 6f 20 68 61 73 68 20 66 75 6e 63 74 ta to hash funct
6670: 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ion.. *. * Retur
6680: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
6690: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
66a0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
66b0: 2a 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e *.Creates comman
66c0: 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 d or error messa
66d0: 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ge. *. *--------
66e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
6720: 69 6e 74 20 44 69 67 65 73 74 43 6f 6d 6d 61 6e int DigestComman
6730: 64 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 dHandler(Tcl_Int
6740: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c erp *interp, Tcl
6750: 5f 4f 62 6a 20 2a 63 6d 64 4f 62 6a 2c 20 63 6f _Obj *cmdObj, co
6760: 6e 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 2c 0a nst EVP_MD *md,.
6770: 09 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 45 .const EVP_CIPHE
6780: 52 20 2a 63 69 70 68 65 72 2c 20 69 6e 74 20 66 R *cipher, int f
6790: 6f 72 6d 61 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a ormat, Tcl_Obj *
67a0: 6b 65 79 4f 62 6a 29 20 7b 0a 20 20 20 20 44 69 keyObj) {. Di
67b0: 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 gestState *state
67c0: 50 74 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 Ptr;. char *c
67d0: 6d 64 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 mdName = Tcl_Get
67e0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 6d StringFromObj(cm
67f0: 64 4f 62 6a 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 dObj, NULL);..
6800: 20 20 2f 2a 20 43 72 65 61 74 65 20 73 74 61 74 /* Create stat
6810: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
6820: 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 74 61 */. if ((sta
6830: 74 65 50 74 72 20 3d 20 44 69 67 65 73 74 53 74 tePtr = DigestSt
6840: 61 74 65 4e 65 77 28 69 6e 74 65 72 70 2c 20 66 ateNew(interp, f
6850: 6f 72 6d 61 74 29 29 20 3d 3d 20 4e 55 4c 4c 29 ormat)) == NULL)
6860: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
6870: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 sult(interp, "Me
6880: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
6890: 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 error", (char *)
68a0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
68b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
68c0: 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c .. /* Initial
68d0: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ize hash functio
68e0: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 44 69 67 n */. if (Dig
68f0: 65 73 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e estInitialize(in
6900: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 terp, statePtr,
6910: 6d 64 2c 20 63 69 70 68 65 72 2c 20 6b 65 79 4f md, cipher, keyO
6920: 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b bj) != TCL_OK) {
6930: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6940: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
6950: 2a 20 43 72 65 61 74 65 20 69 6e 73 74 61 6e 63 * Create instanc
6960: 65 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 20 e command */.
6970: 20 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e statePtr->token
6980: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a = Tcl_CreateObj
6990: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
69a0: 63 6d 64 4e 61 6d 65 2c 20 44 69 67 65 73 74 49 cmdName, DigestI
69b0: 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 nstanceObjCmd,..
69c0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
69d0: 74 65 50 74 72 2c 20 44 69 67 65 73 74 43 6f 6d tePtr, DigestCom
69e0: 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 mandDeleteHandle
69f0: 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 r);.. /* Retu
6a00: 72 6e 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 rn command name
6a10: 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 */. Tcl_SetOb
6a20: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
6a30: 63 6d 64 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 cmdObj);. ret
6a40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a urn TCL_OK;.}...
6a50: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
6a60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6a70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6a80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6a90: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ****/../*. *----
6aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6ae0: 20 2a 0a 20 2a 20 44 69 67 65 73 74 44 61 74 61 *. * DigestData
6af0: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
6b00: 09 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 .Return message
6b10: 64 69 67 65 73 74 20 66 6f 72 20 64 61 74 61 20 digest for data
6b20: 75 73 69 6e 67 20 75 73 65 72 20 73 70 65 63 69 using user speci
6b30: 66 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 69 fied hash functi
6b40: 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e on.. *. * Return
6b50: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
6b60: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
6b70: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
6b80: 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 .Sets result to
6b90: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 6f message digest o
6ba0: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
6bb0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bf0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
6c00: 0a 44 69 67 65 73 74 44 61 74 61 48 61 6e 64 6c .DigestDataHandl
6c10: 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 er(Tcl_Interp *i
6c20: 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a nterp, Tcl_Obj *
6c30: 64 61 74 61 4f 62 6a 2c 20 63 6f 6e 73 74 20 45 dataObj, const E
6c40: 56 50 5f 4d 44 20 2a 6d 64 2c 0a 09 63 6f 6e 73 VP_MD *md,..cons
6c50: 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63 69 t EVP_CIPHER *ci
6c60: 70 68 65 72 2c 20 69 6e 74 20 66 6f 72 6d 61 74 pher, int format
6c70: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 , Tcl_Obj *keyOb
6c80: 6a 29 20 7b 0a 20 20 20 20 63 68 61 72 20 2a 64 j) {. char *d
6c90: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 64 61 74 ata;. int dat
6ca0: 61 5f 6c 65 6e 3b 0a 20 20 20 20 44 69 67 65 73 a_len;. Diges
6cb0: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
6cc0: 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 ;.. /* Get da
6cd0: 74 61 20 2a 2f 0a 20 20 20 20 64 61 74 61 20 3d ta */. data =
6ce0: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
6cf0: 79 46 72 6f 6d 4f 62 6a 28 64 61 74 61 4f 62 6a yFromObj(dataObj
6d00: 2c 20 26 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 , &data_len);.
6d10: 20 20 69 66 20 28 64 61 74 61 20 3d 3d 20 4e 55 if (data == NU
6d20: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 53 65 74 52 65 LL) {..Tcl_SetRe
6d30: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f sult(interp, "No
6d40: 20 64 61 74 61 22 2c 20 4e 55 4c 4c 29 3b 0a 09 data", NULL);..
6d50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6d60: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
6d70: 43 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 Create state dat
6d80: 61 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 a structure */.
6d90: 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 if ((statePtr
6da0: 20 3d 20 44 69 67 65 73 74 53 74 61 74 65 4e 65 = DigestStateNe
6db0: 77 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 w(interp, format
6dc0: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 )) == NULL) {..T
6dd0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6de0: 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 interp, "Memory
6df0: 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 allocation error
6e00: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
6e10: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
6e20: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
6e30: 20 2f 2a 20 43 61 6c 63 20 44 69 67 65 73 74 2c /* Calc Digest,
6e40: 20 61 62 6f 72 74 20 66 6f 72 20 65 72 72 6f 72 abort for error
6e50: 20 2a 2f 0a 20 20 20 20 69 66 20 28 44 69 67 65 */. if (Dige
6e60: 73 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 stInitialize(int
6e70: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 6d erp, statePtr, m
6e80: 64 2c 20 63 69 70 68 65 72 2c 20 6b 65 79 4f 62 d, cipher, keyOb
6e90: 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a j) != TCL_OK ||.
6ea0: 09 44 69 67 65 73 74 55 70 64 61 74 65 28 73 74 .DigestUpdate(st
6eb0: 61 74 65 50 74 72 2c 20 64 61 74 61 2c 20 28 73 atePtr, data, (s
6ec0: 69 7a 65 5f 74 29 20 64 61 74 61 5f 6c 65 6e 2c ize_t) data_len,
6ed0: 20 31 29 20 3d 3d 20 30 20 7c 7c 0a 09 44 69 67 1) == 0 ||..Dig
6ee0: 65 73 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 estFinalize(inte
6ef0: 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 4e 55 rp, statePtr, NU
6f00: 4c 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b LL) != TCL_OK) {
6f10: 0a 09 44 69 67 65 73 74 53 74 61 74 65 46 72 65 ..DigestStateFre
6f20: 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 e(statePtr);..re
6f30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6f40: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c }.. /* Cl
6f50: 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 44 69 ean-up */. Di
6f60: 67 65 73 74 53 74 61 74 65 46 72 65 65 28 73 74 gestStateFree(st
6f70: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 atePtr);. ret
6f80: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
6f90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6fa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6fb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6fc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6fd0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
6fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
7020: 2a 0a 20 2a 20 44 69 67 65 73 74 46 69 6c 65 48 *. * DigestFileH
7030: 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 andler --. *. *.
7040: 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 Return message d
7050: 69 67 65 73 74 20 66 6f 72 20 66 69 6c 65 20 75 igest for file u
7060: 73 69 6e 67 20 75 73 65 72 20 73 70 65 63 69 66 sing user specif
7070: 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 69 6f ied hash functio
7080: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 n.. *. * Returns
7090: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
70a0: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
70b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
70c0: 52 65 73 75 6c 74 20 69 73 20 6d 65 73 73 61 67 Result is messag
70d0: 65 20 64 69 67 65 73 74 20 6f 72 20 65 72 72 6f e digest or erro
70e0: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
70f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7130: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 --. */.int Diges
7140: 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 54 63 6c tFileHandler(Tcl
7150: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
7160: 20 54 63 6c 5f 4f 62 6a 20 2a 66 69 6c 65 6e 61 Tcl_Obj *filena
7170: 6d 65 2c 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 me, const EVP_MD
7180: 20 2a 6d 64 2c 0a 09 63 6f 6e 73 74 20 45 56 50 *md,..const EVP
7190: 5f 43 49 50 48 45 52 20 2a 63 69 70 68 65 72 2c _CIPHER *cipher,
71a0: 20 69 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 6c int format, Tcl
71b0: 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 29 20 7b 0a _Obj *keyObj) {.
71c0: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
71d0: 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 54 *statePtr;. T
71e0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 cl_Channel chan
71f0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 = NULL;. unsi
7200: 67 6e 65 64 20 63 68 61 72 20 62 75 66 5b 42 55 gned char buf[BU
7210: 46 46 45 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 20 FFER_SIZE];.
7220: 69 6e 74 20 72 65 73 20 3d 20 54 43 4c 5f 4f 4b int res = TCL_OK
7230: 2c 20 6c 65 6e 3b 0a 0a 20 20 20 20 2f 2a 20 43 , len;.. /* C
7240: 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 61 reate state data
7250: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 structure */.
7260: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 if ((statePtr
7270: 3d 20 44 69 67 65 73 74 53 74 61 74 65 4e 65 77 = DigestStateNew
7280: 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 (interp, format)
7290: 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ) == NULL) {..Tc
72a0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
72b0: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
72c0: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
72d0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
72e0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
72f0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7300: 2f 2a 20 4f 70 65 6e 20 66 69 6c 65 20 63 68 61 /* Open file cha
7310: 6e 6e 65 6c 2c 20 61 62 6f 72 74 20 66 6f 72 20 nnel, abort for
7320: 65 72 72 6f 72 20 2a 2f 0a 20 20 20 20 63 68 61 error */. cha
7330: 6e 20 3d 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 n = Tcl_FSOpenFi
7340: 6c 65 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 leChannel(interp
7350: 2c 20 66 69 6c 65 6e 61 6d 65 2c 20 22 72 62 22 , filename, "rb"
7360: 2c 20 30 34 34 34 29 3b 0a 20 20 20 20 69 66 20 , 0444);. if
7370: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 (chan == (Tcl_Ch
7380: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
7390: 44 69 67 65 73 74 53 74 61 74 65 46 72 65 65 28 DigestStateFree(
73a0: 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 statePtr);..retu
73b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
73c0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 }.. /* Conf
73d0: 69 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f igure channel */
73e0: 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 . if ((res =
73f0: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_SetChannelOp
7400: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 tion(interp, cha
7410: 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e n, "-translation
7420: 22 2c 20 22 62 69 6e 61 72 79 22 29 29 20 3d 3d ", "binary")) ==
7430: 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 67 TCL_ERROR) {..g
7440: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a oto done;. }.
7450: 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e Tcl_SetChann
7460: 65 6c 42 75 66 66 65 72 53 69 7a 65 28 63 68 61 elBufferSize(cha
7470: 6e 2c 20 42 55 46 46 45 52 5f 53 49 5a 45 29 3b n, BUFFER_SIZE);
7480: 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c .. /* Initial
7490: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ize hash functio
74a0: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 72 65 n */. if ((re
74b0: 73 20 3d 20 44 69 67 65 73 74 49 6e 69 74 69 61 s = DigestInitia
74c0: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 lize(interp, sta
74d0: 74 65 50 74 72 2c 20 6d 64 2c 20 63 69 70 68 65 tePtr, md, ciphe
74e0: 72 2c 20 6b 65 79 4f 62 6a 29 29 20 21 3d 20 54 r, keyObj)) != T
74f0: 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 CL_OK) {..goto d
7500: 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 one;. }..
7510: 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 /* Read file dat
7520: 61 20 61 6e 64 20 75 70 64 61 74 65 20 68 61 73 a and update has
7530: 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 h function */.
7540: 20 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f while (!Tcl_Eo
7550: 66 28 63 68 61 6e 29 29 20 7b 0a 09 6c 65 6e 20 f(chan)) {..len
7560: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 63 68 = Tcl_ReadRaw(ch
7570: 61 6e 2c 20 28 63 68 61 72 20 2a 29 20 62 75 66 an, (char *) buf
7580: 2c 20 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a , BUFFER_SIZE);.
7590: 09 69 66 20 28 6c 65 6e 20 3e 20 30 29 20 7b 0a .if (len > 0) {.
75a0: 09 20 20 20 20 69 66 20 28 21 44 69 67 65 73 74 . if (!Digest
75b0: 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2c Update(statePtr,
75c0: 20 26 62 75 66 5b 30 5d 2c 20 28 73 69 7a 65 5f &buf[0], (size_
75d0: 74 29 20 6c 65 6e 2c 20 31 29 29 20 7b 0a 09 09 t) len, 1)) {...
75e0: 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b res = TCL_ERROR;
75f0: 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 ...goto done;..
7600: 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 }..}. }..
7610: 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 68 /* Finalize h
7620: 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 ash function and
7630: 20 63 61 6c 63 75 6c 61 74 65 20 6d 65 73 73 61 calculate messa
7640: 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 20 ge digest */.
7650: 20 72 65 73 20 3d 20 44 69 67 65 73 74 46 69 6e res = DigestFin
7660: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 alize(interp, st
7670: 61 74 65 50 74 72 2c 20 4e 55 4c 4c 29 3b 0a 0a atePtr, NULL);..
7680: 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 6c 6f done:. /* Clo
7690: 73 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 se channel */.
76a0: 20 20 69 66 20 28 54 63 6c 5f 43 6c 6f 73 65 28 if (Tcl_Close(
76b0: 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 20 3d 3d interp, chan) ==
76c0: 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72 TCL_ERROR) {..r
76d0: 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a es = TCL_ERROR;.
76e0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c }.. /* Cl
76f0: 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 44 69 ean-up */. Di
7700: 67 65 73 74 53 74 61 74 65 46 72 65 65 28 73 74 gestStateFree(st
7710: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 atePtr);. ret
7720: 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a urn res;.}../***
7730: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7740: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7770: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
7780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
77c0: 2a 20 44 69 67 65 73 74 4d 61 69 6e 20 2d 2d 0a * DigestMain --.
77d0: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 6d 65 73 *. *.Return mes
77e0: 73 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 4d sage digest or M
77f0: 65 73 73 61 67 65 20 41 75 74 68 65 6e 74 69 63 essage Authentic
7800: 61 74 69 6f 6e 20 43 6f 64 65 20 28 4d 41 43 29 ation Code (MAC)
7810: 20 6f 66 0a 20 2a 09 64 61 74 61 20 75 73 69 6e of. *.data usin
7820: 67 20 75 73 65 72 20 73 70 65 63 69 66 69 65 64 g user specified
7830: 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 2e 0a hash function..
7840: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
7850: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
7860: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
7870: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
7880: 73 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 73 73 s result to mess
7890: 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 65 72 age digest or er
78a0: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 ror message. *.
78b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
78c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78f0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
7900: 69 6e 74 20 44 69 67 65 73 74 4d 61 69 6e 28 69 int DigestMain(i
7910: 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 49 6e 74 nt type, Tcl_Int
7920: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
7930: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
7940: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
7950: 20 20 20 20 69 6e 74 20 69 64 78 2c 20 73 74 61 int idx, sta
7960: 72 74 20 3d 20 31 2c 20 66 6f 72 6d 61 74 20 3d rt = 1, format =
7970: 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 72 65 73 HEX_FORMAT, res
7980: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 54 = TCL_OK;. T
7990: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 4f 62 6a 20 3d cl_Obj *cmdObj =
79a0: 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 4f 62 6a 20 NULL, *dataObj
79b0: 3d 20 4e 55 4c 4c 2c 20 2a 66 69 6c 65 4f 62 6a = NULL, *fileObj
79c0: 20 3d 20 4e 55 4c 4c 2c 20 2a 6b 65 79 4f 62 6a = NULL, *keyObj
79d0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e = NULL;. con
79e0: 73 74 20 63 68 61 72 20 2a 64 69 67 65 73 74 4e st char *digestN
79f0: 61 6d 65 20 3d 20 4e 55 4c 4c 2c 20 2a 63 69 70 ame = NULL, *cip
7a00: 68 65 72 4e 61 6d 65 20 3d 20 4e 55 4c 4c 2c 20 herName = NULL,
7a10: 2a 6d 61 63 4e 61 6d 65 20 3d 20 4e 55 4c 4c 2c *macName = NULL,
7a20: 20 2a 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c *channel = NULL
7a30: 2c 20 2a 6f 70 74 3b 0a 20 20 20 20 63 6f 6e 73 , *opt;. cons
7a40: 74 20 45 56 50 5f 4d 44 20 2a 6d 64 20 3d 20 4e t EVP_MD *md = N
7a50: 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 ULL;. const E
7a60: 56 50 5f 43 49 50 48 45 52 20 2a 63 69 70 68 65 VP_CIPHER *ciphe
7a70: 72 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f r = NULL;.. /
7a80: 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 70 20 72 * Clear interp r
7a90: 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 54 63 6c esult */. Tcl
7aa0: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 _ResetResult(int
7ab0: 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 erp);.. /* Va
7ac0: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
7ad0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
7ae0: 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 3e 20 31 < 3 || objc > 1
7af0: 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 2) {..Tcl_WrongN
7b00: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
7b10: 2c 20 6f 62 6a 76 2c 20 22 3f 2d 62 69 6e 7c 2d , objv, "?-bin|-
7b20: 68 65 78 3f 20 3f 2d 63 69 70 68 65 72 20 6e 61 hex? ?-cipher na
7b30: 6d 65 3f 20 3f 2d 64 69 67 65 73 74 20 6e 61 6d me? ?-digest nam
7b40: 65 3f 20 3f 2d 6b 65 79 20 6b 65 79 3f 20 3f 2d e? ?-key key? ?-
7b50: 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d 63 68 61 6e mac name? [-chan
7b60: 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 6f 6d 6d nel chan | -comm
7b70: 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c 20 2d 66 and cmdName | -f
7b80: 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 7c 20 3f ile filename | ?
7b90: 2d 64 61 74 61 3f 20 64 61 74 61 5d 22 29 3b 0a -data? data]");.
7ba0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
7bb0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
7bc0: 20 53 70 65 63 69 61 6c 20 63 61 73 65 20 6f 66 Special case of
7bd0: 20 66 69 72 73 74 20 61 72 67 20 69 73 20 64 69 first arg is di
7be0: 67 65 73 74 2c 20 63 69 70 68 65 72 2c 20 6f 72 gest, cipher, or
7bf0: 20 6d 61 63 20 2a 2f 0a 20 20 20 20 6f 70 74 20 mac */. opt
7c00: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
7c10: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 73 74 61 72 romObj(objv[star
7c20: 74 5d 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 t], NULL);. i
7c30: 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 f (opt[0] != '-'
7c40: 29 20 7b 0a 09 69 66 20 28 74 79 70 65 20 3d 3d ) {..if (type ==
7c50: 20 54 59 50 45 5f 4d 44 20 7c 7c 20 74 79 70 65 TYPE_MD || type
7c60: 20 3d 3d 20 54 59 50 45 5f 48 4d 41 43 29 20 7b == TYPE_HMAC) {
7c70: 0a 09 20 20 20 20 64 69 67 65 73 74 4e 61 6d 65 .. digestName
7c80: 20 3d 20 6f 70 74 3b 0a 09 20 20 20 20 73 74 61 = opt;.. sta
7c90: 72 74 2b 2b 3b 0a 09 7d 20 65 6c 73 65 20 69 66 rt++;..} else if
7ca0: 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 43 (type == TYPE_C
7cb0: 4d 41 43 29 20 7b 0a 09 20 20 20 20 63 69 70 68 MAC) {.. ciph
7cc0: 65 72 4e 61 6d 65 20 3d 20 6f 70 74 3b 0a 09 20 erName = opt;..
7cd0: 20 20 20 73 74 61 72 74 2b 2b 3b 0a 09 7d 20 65 start++;..} e
7ce0: 6c 73 65 20 69 66 20 28 74 79 70 65 20 3d 3d 20 lse if (type ==
7cf0: 54 59 50 45 5f 4d 41 43 29 20 7b 0a 09 20 20 20 TYPE_MAC) {..
7d00: 20 6d 61 63 4e 61 6d 65 20 3d 20 6f 70 74 3b 0a macName = opt;.
7d10: 09 20 20 20 20 73 74 61 72 74 2b 2b 3b 0a 09 7d . start++;..}
7d20: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
7d30: 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 et options */.
7d40: 20 20 66 6f 72 20 28 69 64 78 20 3d 20 73 74 61 for (idx = sta
7d50: 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 rt; idx < objc;
7d60: 69 64 78 2b 2b 29 20 7b 0a 09 6f 70 74 20 3d 20 idx++) {..opt =
7d70: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
7d80: 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 mObj(objv[idx],
7d90: 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 74 NULL);...if (opt
7da0: 5b 30 5d 20 21 3d 20 27 2d 27 29 20 7b 0a 09 20 [0] != '-') {..
7db0: 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 0a 09 4f break;..}...O
7dc0: 50 54 46 4c 41 47 28 22 2d 62 69 6e 22 2c 20 66 PTFLAG("-bin", f
7dd0: 6f 72 6d 61 74 2c 20 42 49 4e 5f 46 4f 52 4d 41 ormat, BIN_FORMA
7de0: 54 29 3b 0a 09 4f 50 54 46 4c 41 47 28 22 2d 62 T);..OPTFLAG("-b
7df0: 69 6e 61 72 79 22 2c 20 66 6f 72 6d 61 74 2c 20 inary", format,
7e00: 42 49 4e 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 BIN_FORMAT);..OP
7e10: 54 46 4c 41 47 28 22 2d 68 65 78 22 2c 20 66 6f TFLAG("-hex", fo
7e20: 72 6d 61 74 2c 20 48 45 58 5f 46 4f 52 4d 41 54 rmat, HEX_FORMAT
7e30: 29 3b 0a 09 4f 50 54 46 4c 41 47 28 22 2d 68 65 );..OPTFLAG("-he
7e40: 78 61 64 65 63 69 6d 61 6c 22 2c 20 66 6f 72 6d xadecimal", form
7e50: 61 74 2c 20 48 45 58 5f 46 4f 52 4d 41 54 29 3b at, HEX_FORMAT);
7e60: 0a 09 4f 50 54 53 54 52 28 22 2d 63 68 61 6e 22 ..OPTSTR("-chan"
7e70: 2c 20 63 68 61 6e 6e 65 6c 29 3b 0a 09 4f 50 54 , channel);..OPT
7e80: 53 54 52 28 22 2d 63 68 61 6e 6e 65 6c 22 2c 20 STR("-channel",
7e90: 63 68 61 6e 6e 65 6c 29 3b 0a 09 4f 50 54 53 54 channel);..OPTST
7ea0: 52 28 22 2d 63 69 70 68 65 72 22 2c 20 63 69 70 R("-cipher", cip
7eb0: 68 65 72 4e 61 6d 65 29 3b 0a 09 4f 50 54 4f 42 herName);..OPTOB
7ec0: 4a 28 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 63 6d J("-command", cm
7ed0: 64 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 dObj);..OPTOBJ("
7ee0: 2d 64 61 74 61 22 2c 20 64 61 74 61 4f 62 6a 29 -data", dataObj)
7ef0: 3b 0a 09 4f 50 54 53 54 52 28 22 2d 64 69 67 65 ;..OPTSTR("-dige
7f00: 73 74 22 2c 20 64 69 67 65 73 74 4e 61 6d 65 29 st", digestName)
7f10: 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 66 69 6c 65 ;..OPTOBJ("-file
7f20: 22 2c 20 66 69 6c 65 4f 62 6a 29 3b 0a 09 4f 50 ", fileObj);..OP
7f30: 54 4f 42 4a 28 22 2d 66 69 6c 65 6e 61 6d 65 22 TOBJ("-filename"
7f40: 2c 20 66 69 6c 65 4f 62 6a 29 3b 0a 09 4f 50 54 , fileObj);..OPT
7f50: 4f 42 4a 28 22 2d 6b 65 79 22 2c 20 6b 65 79 4f OBJ("-key", keyO
7f60: 62 6a 29 3b 0a 09 4f 50 54 53 54 52 28 22 2d 6d bj);..OPTSTR("-m
7f70: 61 63 22 2c 20 6d 61 63 4e 61 6d 65 29 3b 0a 0a ac", macName);..
7f80: 09 4f 50 54 42 41 44 28 22 6f 70 74 69 6f 6e 22 .OPTBAD("option"
7f90: 2c 20 22 2d 62 69 6e 2c 20 2d 63 68 61 6e 6e 65 , "-bin, -channe
7fa0: 6c 2c 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f 6d l, -cipher, -com
7fb0: 6d 61 6e 64 2c 20 2d 64 61 74 61 2c 20 2d 64 69 mand, -data, -di
7fc0: 67 65 73 74 2c 20 2d 66 69 6c 65 2c 20 2d 66 69 gest, -file, -fi
7fd0: 6c 65 6e 61 6d 65 2c 20 2d 68 65 78 2c 20 2d 6b lename, -hex, -k
7fe0: 65 79 2c 20 6f 72 20 2d 6d 61 63 22 29 3b 0a 09 ey, or -mac");..
7ff0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8000: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
8010: 49 66 20 6f 6e 6c 79 20 31 20 61 72 67 20 6c 65 If only 1 arg le
8020: 66 74 2c 20 69 74 27 73 20 74 68 65 20 64 61 74 ft, it's the dat
8030: 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 64 78 a */. if (idx
8040: 20 3c 20 6f 62 6a 63 20 26 26 20 64 61 74 61 4f < objc && dataO
8050: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 bj == NULL) {..d
8060: 61 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 ataObj = objv[id
8070: 78 5d 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f x];. }.. /
8080: 2a 20 47 65 74 20 63 69 70 68 65 72 20 2a 2f 0a * Get cipher */.
8090: 20 20 20 20 69 66 20 28 63 69 70 68 65 72 4e 61 if (cipherNa
80a0: 6d 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 63 me != NULL) {..c
80b0: 69 70 68 65 72 20 3d 20 45 56 50 5f 67 65 74 5f ipher = EVP_get_
80c0: 63 69 70 68 65 72 62 79 6e 61 6d 65 28 63 69 70 cipherbyname(cip
80d0: 68 65 72 4e 61 6d 65 29 3b 0a 09 74 79 70 65 20 herName);..type
80e0: 3d 20 54 59 50 45 5f 43 4d 41 43 3b 0a 09 69 66 = TYPE_CMAC;..if
80f0: 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c (cipher == NULL
8100: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
8110: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8120: 2c 20 22 49 6e 76 61 6c 69 64 20 63 69 70 68 65 , "Invalid ciphe
8130: 72 20 5c 22 22 2c 20 63 69 70 68 65 72 4e 61 6d r \"", cipherNam
8140: 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a e, "\"", NULL);.
8150: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
8160: 45 52 52 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d ERROR;..}.. }
8170: 20 65 6c 73 65 20 69 66 20 28 74 79 70 65 20 3d else if (type =
8180: 3d 20 54 59 50 45 5f 43 4d 41 43 29 20 7b 0a 09 = TYPE_CMAC) {..
8190: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
81a0: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 63 69 70 (interp, "No cip
81b0: 68 65 72 20 73 70 65 63 69 66 69 65 64 22 2c 20 her specified",
81c0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
81d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
81e0: 0a 20 20 20 20 2f 2a 20 47 65 74 20 6d 65 73 73 . /* Get mess
81f0: 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 age digest */.
8200: 20 20 69 66 20 28 64 69 67 65 73 74 4e 61 6d 65 if (digestName
8210: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 64 20 != NULL) {..md
8220: 3d 20 45 56 50 5f 67 65 74 5f 64 69 67 65 73 74 = EVP_get_digest
8230: 62 79 6e 61 6d 65 28 64 69 67 65 73 74 4e 61 6d byname(digestNam
8240: 65 29 3b 0a 09 69 66 20 28 6d 64 20 3d 3d 20 4e e);..if (md == N
8250: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f ULL) {.. Tcl_
8260: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8270: 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 64 69 erp, "Invalid di
8280: 67 65 73 74 20 5c 22 22 2c 20 64 69 67 65 73 74 gest \"", digest
8290: 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c Name, "\"", NULL
82a0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
82b0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 20 65 6c 73 CL_ERROR;..} els
82c0: 65 20 69 66 20 28 6d 64 20 3d 3d 20 45 56 50 5f e if (md == EVP_
82d0: 73 68 61 6b 65 31 32 38 28 29 20 7c 7c 20 6d 64 shake128() || md
82e0: 20 3d 3d 20 45 56 50 5f 73 68 61 6b 65 32 35 36 == EVP_shake256
82f0: 28 29 29 20 7b 0a 09 20 20 20 20 66 6f 72 6d 61 ()) {.. forma
8300: 74 20 7c 3d 20 49 53 5f 58 4f 46 3b 0a 09 7d 0a t |= IS_XOF;..}.
8310: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 74 } else if (t
8320: 79 70 65 20 3d 3d 20 54 59 50 45 5f 4d 44 20 7c ype == TYPE_MD |
8330: 7c 20 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 48 | type == TYPE_H
8340: 4d 41 43 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 MAC) {..Tcl_Appe
8350: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
8360: 20 22 4e 6f 20 64 69 67 65 73 74 20 73 70 65 63 "No digest spec
8370: 69 66 69 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 ified", NULL);..
8380: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8390: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
83a0: 47 65 74 20 6b 65 79 20 2a 2f 0a 20 20 20 20 69 Get key */. i
83b0: 66 20 28 6b 65 79 4f 62 6a 20 21 3d 20 4e 55 4c f (keyObj != NUL
83c0: 4c 29 20 7b 0a 09 69 66 20 28 74 79 70 65 20 3d L) {..if (type =
83d0: 3d 20 54 59 50 45 5f 4d 44 29 20 7b 0a 09 20 20 = TYPE_MD) {..
83e0: 20 20 74 79 70 65 20 3d 20 54 59 50 45 5f 48 4d type = TYPE_HM
83f0: 41 43 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c AC;..}.. } el
8400: 73 65 20 69 66 20 28 74 79 70 65 20 21 3d 20 54 se if (type != T
8410: 59 50 45 5f 4d 44 29 20 7b 0a 09 54 63 6c 5f 41 YPE_MD) {..Tcl_A
8420: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8430: 72 70 2c 20 22 4e 6f 20 6b 65 79 20 73 70 65 63 rp, "No key spec
8440: 69 66 69 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 ified", NULL);..
8450: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8460: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
8470: 47 65 74 20 4d 41 43 20 2a 2f 0a 20 20 20 20 69 Get MAC */. i
8480: 66 20 28 6d 61 63 4e 61 6d 65 20 21 3d 20 4e 55 f (macName != NU
8490: 4c 4c 29 20 7b 0a 09 69 66 20 28 73 74 72 63 6d LL) {..if (strcm
84a0: 70 28 6d 61 63 4e 61 6d 65 2c 20 22 63 6d 61 63 p(macName, "cmac
84b0: 22 29 20 3d 3d 20 30 29 20 7b 0a 09 20 20 20 20 ") == 0) {..
84c0: 74 79 70 65 20 3d 20 54 59 50 45 5f 43 4d 41 43 type = TYPE_CMAC
84d0: 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 73 74 ;..} else if (st
84e0: 72 63 6d 70 28 6d 61 63 4e 61 6d 65 2c 20 22 68 rcmp(macName, "h
84f0: 6d 61 63 22 29 20 3d 3d 20 30 29 20 7b 0a 09 20 mac") == 0) {..
8500: 20 20 20 74 79 70 65 20 3d 20 54 59 50 45 5f 48 type = TYPE_H
8510: 4d 41 43 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 MAC;..} else {..
8520: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
8530: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e sult(interp, "In
8540: 76 61 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 6d valid MAC \"", m
8550: 61 63 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 acName, "\"", NU
8560: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e LL);.. return
8570: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 TCL_ERROR;..}.
8580: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 74 79 } else if (ty
8590: 70 65 20 3d 3d 20 54 59 50 45 5f 4d 41 43 29 20 pe == TYPE_MAC)
85a0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
85b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
85c0: 4d 41 43 20 73 70 65 63 69 66 69 65 64 22 2c 20 MAC specified",
85d0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
85e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
85f0: 0a 20 20 20 20 2f 2a 20 43 61 6c 63 20 64 69 67 . /* Calc dig
8600: 65 73 74 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 est on file, sta
8610: 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2c 20 75 73 cked channel, us
8620: 69 6e 67 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d ing instance com
8630: 6d 61 6e 64 2c 20 6f 72 20 64 61 74 61 20 62 6c mand, or data bl
8640: 6f 62 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 69 ob */. if (fi
8650: 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b leObj != NULL) {
8660: 0a 09 72 65 73 20 3d 20 44 69 67 65 73 74 46 69 ..res = DigestFi
8670: 6c 65 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 leHandler(interp
8680: 2c 20 66 69 6c 65 4f 62 6a 2c 20 6d 64 2c 20 63 , fileObj, md, c
8690: 69 70 68 65 72 2c 20 66 6f 72 6d 61 74 20 7c 20 ipher, format |
86a0: 74 79 70 65 2c 20 6b 65 79 4f 62 6a 29 3b 0a 20 type, keyObj);.
86b0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 68 } else if (ch
86c0: 61 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b annel != NULL) {
86d0: 0a 09 72 65 73 20 3d 20 44 69 67 65 73 74 43 68 ..res = DigestCh
86e0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 69 6e 74 annelHandler(int
86f0: 65 72 70 2c 20 63 68 61 6e 6e 65 6c 2c 20 6d 64 erp, channel, md
8700: 2c 20 63 69 70 68 65 72 2c 20 66 6f 72 6d 61 74 , cipher, format
8710: 20 7c 20 74 79 70 65 2c 20 6b 65 79 4f 62 6a 29 | type, keyObj)
8720: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
8730: 28 63 6d 64 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 (cmdObj != NULL)
8740: 20 7b 0a 09 72 65 73 20 3d 20 44 69 67 65 73 74 {..res = Digest
8750: 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 28 69 CommandHandler(i
8760: 6e 74 65 72 70 2c 20 63 6d 64 4f 62 6a 2c 20 6d nterp, cmdObj, m
8770: 64 2c 20 63 69 70 68 65 72 2c 20 66 6f 72 6d 61 d, cipher, forma
8780: 74 20 7c 20 74 79 70 65 2c 20 6b 65 79 4f 62 6a t | type, keyObj
8790: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 );. } else if
87a0: 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c (dataObj != NUL
87b0: 4c 29 20 7b 0a 09 72 65 73 20 3d 20 44 69 67 65 L) {..res = Dige
87c0: 73 74 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e stDataHandler(in
87d0: 74 65 72 70 2c 20 64 61 74 61 4f 62 6a 2c 20 6d terp, dataObj, m
87e0: 64 2c 20 63 69 70 68 65 72 2c 20 66 6f 72 6d 61 d, cipher, forma
87f0: 74 20 7c 20 74 79 70 65 2c 20 6b 65 79 4f 62 6a t | type, keyObj
8800: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
8810: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
8820: 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6f 70 t(interp, "No op
8830: 65 72 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 eration specifie
8840: 64 3a 20 55 73 65 20 2d 63 68 61 6e 6e 65 6c 2c d: Use -channel,
8850: 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 61 74 61 -command, -data
8860: 2c 20 6f 72 20 2d 66 69 6c 65 20 6f 70 74 69 6f , or -file optio
8870: 6e 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 73 20 n", NULL);..res
8880: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 = TCL_ERROR;.
8890: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 }. return re
88a0: 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d s;.}../*. *-----
88b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
88c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
88d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
88e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
88f0: 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 44 69 67 *. * Message Dig
8900: 65 73 74 20 61 6e 64 20 4d 65 73 73 61 67 65 20 est and Message
8910: 41 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 43 Authentication C
8920: 6f 64 65 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a ode Commands --.
8930: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 4d 65 73 *. *.Return Mes
8940: 73 61 67 65 20 44 69 67 65 73 74 20 28 4d 44 29 sage Digest (MD)
8950: 20 6f 72 20 4d 65 73 73 61 67 65 20 41 75 74 68 or Message Auth
8960: 65 6e 74 69 63 61 74 69 6f 6e 20 43 6f 64 65 20 entication Code
8970: 28 4d 41 43 29 2e 0a 20 2a 0a 20 2a 20 52 65 74 (MAC).. *. * Ret
8980: 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 urns:. *.TCL_OK
8990: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a or TCL_ERROR. *.
89a0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
89b0: 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 . *.Sets result
89c0: 74 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 to message diges
89d0: 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 t or error messa
89e0: 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ge. *. *--------
89f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
8a30: 73 74 61 74 69 63 20 69 6e 74 20 4d 64 4f 62 6a static int MdObj
8a40: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
8a50: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 lientData, Tcl_I
8a60: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
8a70: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
8a80: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
8a90: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69 67 {. return Dig
8aa0: 65 73 74 4d 61 69 6e 28 54 59 50 45 5f 4d 44 2c estMain(TYPE_MD,
8ab0: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f interp, objc, o
8ac0: 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 bjv);.}..static
8ad0: 69 6e 74 20 43 4d 41 43 4f 62 6a 43 6d 64 28 43 int CMACObjCmd(C
8ae0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
8af0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
8b00: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
8b10: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
8b20: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
8b30: 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 4d 61 return DigestMa
8b40: 69 6e 28 54 59 50 45 5f 43 4d 41 43 2c 20 69 6e in(TYPE_CMAC, in
8b50: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
8b60: 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 );.}..static int
8b70: 20 48 4d 41 43 4f 62 6a 43 6d 64 28 43 6c 69 65 HMACObjCmd(Clie
8b80: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
8b90: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
8ba0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
8bb0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
8bc0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 objv[]) {. re
8bd0: 74 75 72 6e 20 44 69 67 65 73 74 4d 61 69 6e 28 turn DigestMain(
8be0: 54 59 50 45 5f 48 4d 41 43 2c 20 69 6e 74 65 72 TYPE_HMAC, inter
8bf0: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a p, objc, objv);.
8c00: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 4d 41 }..static int MA
8c10: 43 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 CObjCmd(ClientDa
8c20: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
8c30: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
8c40: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
8c50: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
8c60: 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e []) {. return
8c70: 20 44 69 67 65 73 74 4d 61 69 6e 28 54 59 50 45 DigestMain(TYPE
8c80: 5f 4d 41 43 2c 20 69 6e 74 65 72 70 2c 20 6f 62 _MAC, interp, ob
8c90: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a jc, objv);.}../*
8ca0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
8cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ce0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 65 73 ------. *. * Mes
8cf0: 73 61 67 65 20 44 69 67 65 73 74 20 43 6f 6e 76 sage Digest Conv
8d00: 65 6e 69 65 6e 63 65 20 43 6f 6d 6d 61 6e 64 73 enience Commands
8d10: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6e 76 65 6e --. *. *.Conven
8d20: 69 65 6e 63 65 20 63 6f 6d 6d 61 6e 64 73 20 66 ience commands f
8d30: 6f 72 20 73 65 6c 65 63 74 20 6d 65 73 73 61 67 or select messag
8d40: 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a e digests.. *. *
8d50: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
8d60: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 _OK or TCL_ERROR
8d70: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
8d80: 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 cts:. *.Sets res
8d90: 75 6c 74 20 74 6f 20 6d 65 73 73 61 67 65 20 64 ult to message d
8da0: 69 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 6d igest or error m
8db0: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
8dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
8e00: 20 2a 2f 0a 20 23 64 65 66 69 6e 65 20 76 61 6c */. #define val
8e10: 69 64 61 74 65 5f 61 72 67 63 28 6f 62 6a 63 2c idate_argc(objc,
8e20: 20 6f 62 6a 76 29 20 7b 20 5c 0a 20 20 20 20 69 objv) { \. i
8e30: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 20 f (objc != 2) {
8e40: 5c 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 \..Tcl_WrongNumA
8e50: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
8e60: 62 6a 76 2c 20 22 64 61 74 61 22 29 3b 20 5c 0a bjv, "data"); \.
8e70: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
8e80: 52 3b 20 5c 0a 20 20 20 20 7d 20 5c 0a 7d 0a 20 R; \. } \.}.
8e90: 0a 69 6e 74 20 4d 44 34 4f 62 6a 43 6d 64 28 43 .int MD4ObjCmd(C
8ea0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
8eb0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
8ec0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
8ed0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
8ee0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
8ef0: 20 76 61 6c 69 64 61 74 65 5f 61 72 67 63 28 6f validate_argc(o
8f00: 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 20 20 20 bjc, objv);.
8f10: 72 65 74 75 72 6e 20 44 69 67 65 73 74 44 61 74 return DigestDat
8f20: 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c aHandler(interp,
8f30: 20 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 5f 6d 64 objv[1], EVP_md
8f40: 34 28 29 2c 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4(), NULL, HEX_F
8f50: 4f 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 2c ORMAT | TYPE_MD,
8f60: 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 4d NULL);.}..int M
8f70: 44 35 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 D5ObjCmd(ClientD
8f80: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
8f90: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
8fa0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
8fb0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
8fc0: 76 5b 5d 29 20 7b 0a 20 20 20 20 76 61 6c 69 64 v[]) {. valid
8fd0: 61 74 65 5f 61 72 67 63 28 6f 62 6a 63 2c 20 6f ate_argc(objc, o
8fe0: 62 6a 76 29 3b 0a 20 20 20 20 72 65 74 75 72 6e bjv);. return
8ff0: 20 44 69 67 65 73 74 44 61 74 61 48 61 6e 64 6c DigestDataHandl
9000: 65 72 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b er(interp, objv[
9010: 31 5d 2c 20 45 56 50 5f 6d 64 35 28 29 2c 20 4e 1], EVP_md5(), N
9020: 55 4c 4c 2c 20 48 45 58 5f 46 4f 52 4d 41 54 20 ULL, HEX_FORMAT
9030: 7c 20 54 59 50 45 5f 4d 44 2c 20 4e 55 4c 4c 29 | TYPE_MD, NULL)
9040: 3b 0a 7d 0a 0a 69 6e 74 20 53 48 41 31 4f 62 6a ;.}..int SHA1Obj
9050: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
9060: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 lientData, Tcl_I
9070: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
9080: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
9090: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
90a0: 7b 0a 20 20 20 20 76 61 6c 69 64 61 74 65 5f 61 {. validate_a
90b0: 72 67 63 28 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b rgc(objc, objv);
90c0: 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69 67 65 . return Dige
90d0: 73 74 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e stDataHandler(in
90e0: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 45 terp, objv[1], E
90f0: 56 50 5f 73 68 61 31 28 29 2c 20 4e 55 4c 4c 2c VP_sha1(), NULL,
9100: 20 48 45 58 5f 46 4f 52 4d 41 54 20 7c 20 54 59 HEX_FORMAT | TY
9110: 50 45 5f 4d 44 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a PE_MD, NULL);.}.
9120: 0a 69 6e 74 20 53 48 41 32 35 36 4f 62 6a 43 6d .int SHA256ObjCm
9130: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
9140: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
9150: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
9160: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
9170: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
9180: 20 20 20 20 76 61 6c 69 64 61 74 65 5f 61 72 67 validate_arg
9190: 63 28 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 c(objc, objv);.
91a0: 20 20 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 return Digest
91b0: 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 DataHandler(inte
91c0: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 rp, objv[1], EVP
91d0: 5f 73 68 61 32 35 36 28 29 2c 20 4e 55 4c 4c 2c _sha256(), NULL,
91e0: 20 48 45 58 5f 46 4f 52 4d 41 54 20 7c 20 54 59 HEX_FORMAT | TY
91f0: 50 45 5f 4d 44 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a PE_MD, NULL);.}.
9200: 0a 69 6e 74 20 53 48 41 35 31 32 4f 62 6a 43 6d .int SHA512ObjCm
9210: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
9220: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
9230: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
9240: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
9250: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
9260: 20 20 20 20 76 61 6c 69 64 61 74 65 5f 61 72 67 validate_arg
9270: 63 28 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 c(objc, objv);.
9280: 20 20 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 return Digest
9290: 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 DataHandler(inte
92a0: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 rp, objv[1], EVP
92b0: 5f 73 68 61 35 31 32 28 29 2c 20 4e 55 4c 4c 2c _sha512(), NULL,
92c0: 20 48 45 58 5f 46 4f 52 4d 41 54 20 7c 20 54 59 HEX_FORMAT | TY
92d0: 50 45 5f 4d 44 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a PE_MD, NULL);.}.
92e0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
92f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
9330: 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d 61 6e Tls_DigestComman
9340: 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 ds --. *. *.Crea
9350: 74 65 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 6e te digest comman
9360: 64 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 ds. *. * Returns
9370: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
9380: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
9390: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
93a0: 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 Creates commands
93b0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
93c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
9400: 74 20 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d t Tls_DigestComm
9410: 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 ands(Tcl_Interp
9420: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 *interp) {. T
9430: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
9440: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
9450: 3a 3a 64 69 67 65 73 74 22 2c 20 4d 64 4f 62 6a ::digest", MdObj
9460: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
9470: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
9480: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
9490: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
94a0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
94b0: 70 2c 20 22 74 6c 73 3a 3a 6d 64 22 2c 20 4d 64 p, "tls::md", Md
94c0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
94d0: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
94e0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
94f0: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
9500: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
9510: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 6d 61 63 terp, "tls::cmac
9520: 22 2c 20 43 4d 41 43 4f 62 6a 43 6d 64 2c 20 28 ", CMACObjCmd, (
9530: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
9540: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
9550: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
9560: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
9570: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
9580: 73 3a 3a 68 6d 61 63 22 2c 20 48 4d 41 43 4f 62 s::hmac", HMACOb
9590: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
95a0: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
95b0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
95c0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
95d0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
95e0: 72 70 2c 20 22 74 6c 73 3a 3a 6d 61 63 22 2c 20 rp, "tls::mac",
95f0: 4d 41 43 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 MACObjCmd, (Clie
9600: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
9610: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
9620: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
9630: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
9640: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d (interp, "tls::m
9650: 64 34 22 2c 20 4d 44 34 4f 62 6a 43 6d 64 2c 20 d4", MD4ObjCmd,
9660: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
9670: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
9680: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
9690: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
96a0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
96b0: 6c 73 3a 3a 6d 64 35 22 2c 20 4d 44 35 4f 62 6a ls::md5", MD5Obj
96c0: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
96d0: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
96e0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
96f0: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
9700: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
9710: 70 2c 20 22 74 6c 73 3a 3a 73 68 61 31 22 2c 20 p, "tls::sha1",
9720: 53 48 41 31 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 SHA1ObjCmd, (Cli
9730: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
9740: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
9750: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
9760: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
9770: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
9780: 73 68 61 32 35 36 22 2c 20 53 48 41 32 35 36 4f sha256", SHA256O
9790: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
97a0: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
97b0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
97c0: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
97d0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
97e0: 65 72 70 2c 20 22 74 6c 73 3a 3a 73 68 61 35 31 erp, "tls::sha51
97f0: 32 22 2c 20 53 48 41 35 31 32 4f 62 6a 43 6d 64 2", SHA512ObjCmd
9800: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
9810: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
9820: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
9830: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
9840: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
9850: 22 74 6c 73 3a 3a 75 6e 73 74 61 63 6b 22 2c 20 "tls::unstack",
9860: 44 69 67 65 73 74 55 6e 73 74 61 63 6b 4f 62 6a DigestUnstackObj
9870: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
9880: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
9890: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
98a0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
98b0: 5f 4f 4b 3b 0a 7d 0a 0a _OK;.}..