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 4d 65 o calculate a Me
0070: 73 73 61 67 65 20 44 69 67 65 73 74 20 28 4d 44 ssage Digest (MD
0080: 29 20 6f 72 20 61 20 4d 65 73 73 61 67 65 0a 20 ) or a Message.
0090: 2a 20 41 75 74 68 65 6e 74 69 63 61 74 69 6f 6e * Authentication
00a0: 20 43 6f 64 65 20 28 4d 41 43 29 2e 0a 20 2a 0a Code (MAC).. *.
00b0: 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 * Copyright (C)
00c0: 20 32 30 32 33 20 42 72 69 61 6e 20 4f 27 48 61 2023 Brian O'Ha
00d0: 67 61 6e 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 gan. *. */..#inc
00e0: 6c 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a lude "tlsInt.h".
00f0: 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f 70 74 #include "tclOpt
0100: 73 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 74 s.h".#include <t
0110: 63 6c 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c cl.h>.#include <
0120: 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 stdio.h>.#includ
0130: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 69 6e e <string.h>.#in
0140: 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 65 clude <openssl/e
0150: 76 70 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c vp.h>.#include <
0160: 6f 70 65 6e 73 73 6c 2f 63 6d 61 63 2e 68 3e 0a openssl/cmac.h>.
0170: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 #include <openss
0180: 6c 2f 68 6d 61 63 2e 68 3e 0a 0a 2f 2a 20 43 6f l/hmac.h>../* Co
0190: 6e 73 74 61 6e 74 73 20 2a 2f 0a 63 6f 6e 73 74 nstants */.const
01a0: 20 63 68 61 72 20 2a 68 65 78 20 3d 20 22 30 31 char *hex = "01
01b0: 32 33 34 35 36 37 38 39 61 62 63 64 65 66 22 3b 23456789abcdef";
01c0: 0a 0a 2f 2a 20 4d 61 63 72 6f 73 20 2a 2f 0a 23 ../* Macros */.#
01d0: 64 65 66 69 6e 65 20 42 55 46 46 45 52 5f 53 49 define BUFFER_SI
01e0: 5a 45 09 36 35 35 33 36 0a 23 64 65 66 69 6e 65 ZE.65536.#define
01f0: 20 43 48 41 4e 5f 45 4f 46 09 30 78 31 30 0a 23 CHAN_EOF.0x10.#
0200: 64 65 66 69 6e 65 20 52 45 41 44 5f 44 45 4c 41 define READ_DELA
0210: 59 09 35 0a 0a 2f 2a 20 44 69 67 65 73 74 20 66 Y.5../* Digest f
0220: 6f 72 6d 61 74 20 61 6e 64 20 6f 70 65 72 61 74 ormat and operat
0230: 69 6f 6e 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ion */.#define B
0240: 49 4e 5f 46 4f 52 4d 41 54 09 30 78 30 31 0a 23 IN_FORMAT.0x01.#
0250: 64 65 66 69 6e 65 20 48 45 58 5f 46 4f 52 4d 41 define HEX_FORMA
0260: 54 09 30 78 30 32 0a 23 64 65 66 69 6e 65 20 49 T.0x02.#define I
0270: 53 5f 58 4f 46 09 09 30 78 30 38 0a 23 64 65 66 S_XOF..0x08.#def
0280: 69 6e 65 20 54 59 50 45 5f 4d 44 09 09 30 78 31 ine TYPE_MD..0x1
0290: 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 48 0.#define TYPE_H
02a0: 4d 41 43 09 30 78 32 30 0a 23 64 65 66 69 6e 65 MAC.0x20.#define
02b0: 20 54 59 50 45 5f 43 4d 41 43 09 30 78 34 30 0a TYPE_CMAC.0x40.
02c0: 23 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 #define TYPE_MAC
02d0: 09 30 78 38 30 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a .0x80../********
02e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0300: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0310: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
0320: 0a 20 2a 20 54 68 69 73 20 73 74 72 75 63 74 75 . * This structu
0330: 72 65 20 64 65 66 69 6e 65 73 20 74 68 65 20 70 re defines the p
0340: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0350: 65 20 6f 66 20 61 20 64 69 67 65 73 74 20 6f 70 e of a digest op
0360: 65 72 61 74 69 6f 6e 2e 0a 20 2a 2f 0a 74 79 70 eration.. */.typ
0370: 65 64 65 66 20 73 74 72 75 63 74 20 44 69 67 65 edef struct Dige
0380: 73 74 53 74 61 74 65 20 7b 0a 09 54 63 6c 5f 43 stState {..Tcl_C
0390: 68 61 6e 6e 65 6c 20 73 65 6c 66 3b 09 2f 2a 20 hannel self;./*
03a0: 54 68 69 73 20 73 6f 63 6b 65 74 20 63 68 61 6e This socket chan
03b0: 6e 65 6c 20 2a 2f 0a 09 54 63 6c 5f 54 69 6d 65 nel */..Tcl_Time
03c0: 72 54 6f 6b 65 6e 20 74 69 6d 65 72 3b 09 2f 2a rToken timer;./*
03d0: 20 54 69 6d 65 72 20 66 6f 72 20 72 65 61 64 20 Timer for read
03e0: 65 76 65 6e 74 73 20 2a 2f 0a 0a 09 69 6e 74 20 events */...int
03f0: 66 6c 61 67 73 3b 09 09 2f 2a 20 43 68 61 6e 20 flags;../* Chan
0400: 63 6f 6e 66 69 67 20 66 6c 61 67 73 20 2a 2f 0a config flags */.
0410: 09 69 6e 74 20 77 61 74 63 68 4d 61 73 6b 3b 09 .int watchMask;.
0420: 09 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 ./* Current Watc
0430: 68 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 69 hProc mask */..i
0440: 6e 74 20 6d 6f 64 65 3b 09 09 2f 2a 20 43 75 72 nt mode;../* Cur
0450: 72 65 6e 74 20 6d 6f 64 65 20 6f 66 20 70 61 72 rent mode of par
0460: 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 09 ent channel */..
0470: 69 6e 74 20 66 6f 72 6d 61 74 3b 09 09 2f 2a 20 int format;../*
0480: 44 69 67 65 73 74 20 66 6f 72 6d 61 74 20 61 6e Digest format an
0490: 64 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 0a d operation */..
04a0: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 .Tcl_Interp *int
04b0: 65 72 70 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 erp;./* Current
04c0: 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 interpreter */..
04d0: 45 56 50 5f 4d 44 5f 43 54 58 20 2a 63 74 78 3b EVP_MD_CTX *ctx;
04e0: 09 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 20 2a ./* MD Context *
04f0: 2f 0a 09 48 4d 41 43 5f 43 54 58 20 2a 68 63 74 /..HMAC_CTX *hct
0500: 78 3b 09 09 2f 2a 20 48 4d 41 43 20 63 6f 6e 74 x;../* HMAC cont
0510: 65 78 74 20 2a 2f 0a 09 43 4d 41 43 5f 43 54 58 ext */..CMAC_CTX
0520: 20 2a 63 63 74 78 3b 09 09 2f 2a 20 43 4d 41 43 *cctx;../* CMAC
0530: 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 54 63 6c context */..Tcl
0540: 5f 43 6f 6d 6d 61 6e 64 20 74 6f 6b 65 6e 3b 09 _Command token;.
0550: 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f 6b 65 6e /* Command token
0560: 20 2a 2f 0a 7d 20 44 69 67 65 73 74 53 74 61 74 */.} DigestStat
0570: 65 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d e;../*. *-------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
05c0: 20 2a 20 44 69 67 65 73 74 53 74 61 74 65 4e 65 * DigestStateNe
05d0: 77 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 w --. *. *.This
05e0: 66 75 6e 63 74 69 6f 6e 20 63 72 65 61 74 65 73 function creates
05f0: 20 61 20 70 65 72 2d 69 6e 73 74 61 6e 63 65 20 a per-instance
0600: 73 74 61 74 65 20 64 61 74 61 20 73 74 72 75 63 state data struc
0610: 74 75 72 65 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ture. *. * Retur
0620: 6e 73 3a 0a 20 2a 09 44 69 67 65 73 74 20 73 74 ns:. *.Digest st
0630: 72 75 63 74 75 72 65 20 70 6f 69 6e 74 65 72 0a ructure pointer.
0640: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
0650: 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 73 ts:. *.Creates s
0660: 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d tructure. *. *--
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06b0: 2d 0a 20 2a 2f 0a 44 69 67 65 73 74 53 74 61 74 -. */.DigestStat
06c0: 65 20 2a 44 69 67 65 73 74 53 74 61 74 65 4e 65 e *DigestStateNe
06d0: 77 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e w(Tcl_Interp *in
06e0: 74 65 72 70 2c 20 69 6e 74 20 66 6f 72 6d 61 74 terp, int format
06f0: 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 ) {. DigestSt
0700: 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 0a ate *statePtr;..
0710: 20 20 20 20 73 74 61 74 65 50 74 72 20 3d 20 28 statePtr = (
0720: 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 63 DigestState *) c
0730: 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 kalloc((unsigned
0740: 29 20 73 69 7a 65 6f 66 28 44 69 67 65 73 74 53 ) sizeof(DigestS
0750: 74 61 74 65 29 29 3b 0a 20 20 20 20 69 66 20 28 tate));. if (
0760: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
0770: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
0780: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0790: 44 69 67 65 73 74 53 74 61 74 65 29 29 3b 0a 09 DigestState));..
07a0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 3d statePtr->self.=
07b0: 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 20 NULL;../* This
07c0: 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a socket channel *
07d0: 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d /..statePtr->tim
07e0: 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 er = NULL;../* T
07f0: 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 61 imer to flush da
0800: 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d ta */..statePtr-
0810: 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a 20 >flags = 0;../*
0820: 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 67 Chan config flag
0830: 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e s */..statePtr->
0840: 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 2f watchMask = 0;./
0850: 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 50 * Current WatchP
0860: 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 61 roc mask */..sta
0870: 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 3b tePtr->mode.= 0;
0880: 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f 64 ../* Current mod
0890: 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 6e e of parent chan
08a0: 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 nel */..statePtr
08b0: 2d 3e 66 6f 72 6d 61 74 20 3d 20 66 6f 72 6d 61 ->format = forma
08c0: 74 3b 09 2f 2a 20 44 69 67 65 73 74 20 66 6f 72 t;./* Digest for
08d0: 6d 61 74 20 61 6e 64 20 6f 70 65 72 61 74 69 6f mat and operatio
08e0: 6e 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e n */..statePtr->
08f0: 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 3b interp = interp;
0900: 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 ./* Current inte
0910: 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 74 rpreter */..stat
0920: 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c ePtr->ctx = NULL
0930: 3b 09 09 2f 2a 20 4d 44 20 43 6f 6e 74 65 78 74 ;../* MD Context
0940: 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 */..statePtr->h
0950: 63 74 78 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 ctx = NULL;../*
0960: 48 4d 41 43 20 43 6f 6e 74 65 78 74 20 2a 2f 0a HMAC Context */.
0970: 09 73 74 61 74 65 50 74 72 2d 3e 63 63 74 78 20 .statePtr->cctx
0980: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 43 4d 41 43 = NULL;../* CMAC
0990: 20 43 6f 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 Context */..sta
09a0: 74 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e tePtr->token = N
09b0: 55 4c 4c 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 ULL;../* Command
09c0: 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a token */. }.
09d0: 20 20 20 20 72 65 74 75 72 6e 20 73 74 61 74 65 return state
09e0: 50 74 72 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d Ptr;.}../*. *---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a30: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 53 74 61 . *. * DigestSta
0a40: 74 65 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 teFree --. *. *.
0a50: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 This function de
0a60: 6c 65 74 65 73 20 61 20 64 69 67 65 73 74 20 73 letes a digest s
0a70: 74 61 74 65 20 73 74 72 75 63 74 75 72 65 0a 20 tate structure.
0a80: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
0a90: 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 .Nothing. *. * S
0aa0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
0ab0: 52 65 6d 6f 76 65 73 20 73 74 72 75 63 74 75 72 Removes structur
0ac0: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
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 2d ----------------
0af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
0b10: 6f 69 64 20 44 69 67 65 73 74 53 74 61 74 65 46 oid DigestStateF
0b20: 72 65 65 28 44 69 67 65 73 74 53 74 61 74 65 20 ree(DigestState
0b30: 2a 73 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 *statePtr) {.
0b40: 20 69 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d if (statePtr ==
0b50: 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 (DigestState *)
0b60: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
0b70: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
0b80: 52 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 Remove pending t
0b90: 69 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 imer */. if (
0ba0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
0bb0: 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b != (Tcl_TimerTok
0bc0: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c en) NULL) {..Tcl
0bd0: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
0be0: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
0bf0: 6d 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 mer);. }..
0c00: 20 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 /* Free context
0c10: 20 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 structures */.
0c20: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
0c30: 3e 63 74 78 20 21 3d 20 28 45 56 50 5f 4d 44 5f >ctx != (EVP_MD_
0c40: 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 CTX *) NULL) {..
0c50: 45 56 50 5f 4d 44 5f 43 54 58 5f 66 72 65 65 28 EVP_MD_CTX_free(
0c60: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 29 3b 0a statePtr->ctx);.
0c70: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
0c80: 61 74 65 50 74 72 2d 3e 68 63 74 78 20 21 3d 20 atePtr->hctx !=
0c90: 28 48 4d 41 43 5f 43 54 58 20 2a 29 20 4e 55 4c (HMAC_CTX *) NUL
0ca0: 4c 29 20 7b 0a 09 48 4d 41 43 5f 43 54 58 5f 66 L) {..HMAC_CTX_f
0cb0: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 68 63 ree(statePtr->hc
0cc0: 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 tx);. }. i
0cd0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 63 74 f (statePtr->cct
0ce0: 78 20 21 3d 20 28 43 4d 41 43 5f 43 54 58 20 2a x != (CMAC_CTX *
0cf0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 43 4d 41 43 5f ) NULL) {..CMAC_
0d00: 43 54 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 CTX_free(statePt
0d10: 72 2d 3e 63 63 74 78 29 3b 0a 20 20 20 20 7d 0a r->cctx);. }.
0d20: 20 20 20 20 63 6b 66 72 65 65 28 73 74 61 74 65 ckfree(state
0d30: 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a Ptr);.}../******
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0d70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
0d80: 2f 2a 0a 20 2a 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 2d 2d 2d ----------------
0db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
0dd0: 69 67 65 73 74 49 6e 69 74 69 61 6c 69 7a 65 20 igestInitialize
0de0: 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c --. *. *.Initial
0df0: 69 7a 65 20 61 20 68 61 73 68 20 66 75 6e 63 74 ize a hash funct
0e00: 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ion. *. * Return
0e10: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 s:. *.TCL_OK if
0e20: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 successful or TC
0e30: 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 6c L_ERROR for fail
0e40: 75 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 ure with result
0e50: 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 set. *.to error
0e60: 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 message.. *. * S
0e70: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
0e80: 4e 6f 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 No result or err
0e90: 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a or message. *. *
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ee0: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 ---. */.int Dige
0ef0: 73 74 49 6e 69 74 69 61 6c 69 7a 65 28 54 63 6c stInitialize(Tcl
0f00: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0f10: 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 DigestState *st
0f20: 61 74 65 50 74 72 2c 20 54 63 6c 5f 4f 62 6a 20 atePtr, Tcl_Obj
0f30: 2a 64 69 67 65 73 74 4f 62 6a 2c 0a 09 54 63 6c *digestObj,..Tcl
0f40: 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c _Obj *cipherObj,
0f50: 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a Tcl_Obj *keyObj
0f60: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6d 61 63 4f 62 , Tcl_Obj *macOb
0f70: 6a 29 20 7b 0a 20 20 20 20 69 6e 74 20 6b 65 79 j) {. int key
0f80: 5f 6c 65 6e 20 3d 20 30 2c 20 74 79 70 65 20 3d _len = 0, type =
0f90: 20 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 statePtr->forma
0fa0: 74 20 26 20 30 78 46 46 30 3b 0a 20 20 20 20 63 t & 0xFF0;. c
0fb0: 6f 6e 73 74 20 63 68 61 72 20 2a 64 69 67 65 73 onst char *diges
0fc0: 74 4e 61 6d 65 20 3d 20 4e 55 4c 4c 2c 20 2a 63 tName = NULL, *c
0fd0: 69 70 68 65 72 4e 61 6d 65 20 3d 20 4e 55 4c 4c ipherName = NULL
0fe0: 2c 20 2a 6d 61 63 4e 61 6d 65 20 3d 20 4e 55 4c , *macName = NUL
0ff0: 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 50 L;. const EVP
1000: 5f 4d 44 20 2a 6d 64 20 3d 20 4e 55 4c 4c 3b 0a _MD *md = NULL;.
1010: 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 const EVP_CI
1020: 50 48 45 52 20 2a 63 69 70 68 65 72 20 3d 20 4e PHER *cipher = N
1030: 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 75 ULL;. const u
1040: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 nsigned char *ke
1050: 79 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 64 y = NULL;.. d
1060: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
1070: 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 ;.. /* Create
1080: 20 63 6f 6e 74 65 78 74 73 20 2a 2f 0a 20 20 20 contexts */.
1090: 20 73 77 69 74 63 68 28 74 79 70 65 29 20 7b 0a switch(type) {.
10a0: 20 20 20 20 63 61 73 65 20 54 59 50 45 5f 4d 44 case TYPE_MD
10b0: 3a 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 74 78 :..statePtr->ctx
10c0: 20 3d 20 45 56 50 5f 4d 44 5f 43 54 58 5f 6e 65 = EVP_MD_CTX_ne
10d0: 77 28 29 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 w();..res = (sta
10e0: 74 65 50 74 72 2d 3e 63 74 78 20 21 3d 20 4e 55 tePtr->ctx != NU
10f0: 4c 4c 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 LL);..break;.
1100: 20 63 61 73 65 20 54 59 50 45 5f 48 4d 41 43 3a case TYPE_HMAC:
1110: 0a 09 73 74 61 74 65 50 74 72 2d 3e 68 63 74 78 ..statePtr->hctx
1120: 20 3d 20 48 4d 41 43 5f 43 54 58 5f 6e 65 77 28 = HMAC_CTX_new(
1130: 29 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 74 65 );..res = (state
1140: 50 74 72 2d 3e 68 63 74 78 20 21 3d 20 4e 55 4c Ptr->hctx != NUL
1150: 4c 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 L);..break;.
1160: 63 61 73 65 20 54 59 50 45 5f 43 4d 41 43 3a 0a case TYPE_CMAC:.
1170: 09 73 74 61 74 65 50 74 72 2d 3e 63 63 74 78 20 .statePtr->cctx
1180: 3d 20 43 4d 41 43 5f 43 54 58 5f 6e 65 77 28 29 = CMAC_CTX_new()
1190: 3b 0a 09 72 65 73 20 3d 20 28 73 74 61 74 65 50 ;..res = (stateP
11a0: 74 72 2d 3e 63 63 74 78 20 21 3d 20 4e 55 4c 4c tr->cctx != NULL
11b0: 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d );..break;. }
11c0: 0a 0a 20 20 20 20 69 66 20 28 21 72 65 73 29 20 .. if (!res)
11d0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
11e0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 43 72 65 ult(interp, "Cre
11f0: 61 74 65 20 63 6f 6e 74 65 78 74 20 66 61 69 6c ate context fail
1200: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 ed", NULL);..ret
1210: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1220: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
1230: 20 4d 41 43 20 2a 2f 0a 20 20 20 20 69 66 20 28 MAC */. if (
1240: 6d 61 63 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 macObj != NULL)
1250: 7b 0a 09 6d 61 63 4e 61 6d 65 20 3d 20 54 63 6c {..macName = Tcl
1260: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
1270: 6a 28 6d 61 63 4f 62 6a 2c 20 4e 55 4c 4c 29 3b j(macObj, NULL);
1280: 0a 09 69 66 20 28 73 74 72 63 6d 70 28 6d 61 63 ..if (strcmp(mac
1290: 4e 61 6d 65 2c 20 22 63 6d 61 63 22 29 20 3d 3d Name, "cmac") ==
12a0: 20 30 29 20 7b 0a 09 20 20 20 20 74 79 70 65 20 0) {.. type
12b0: 3d 20 54 59 50 45 5f 43 4d 41 43 3b 0a 09 7d 20 = TYPE_CMAC;..}
12c0: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
12d0: 6d 61 63 4e 61 6d 65 2c 20 22 68 6d 61 63 22 29 macName, "hmac")
12e0: 20 3d 3d 20 30 29 20 7b 0a 09 20 20 20 20 74 79 == 0) {.. ty
12f0: 70 65 20 3d 20 54 59 50 45 5f 48 4d 41 43 3b 0a pe = TYPE_HMAC;.
1300: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 .} else {.. T
1310: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1320: 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 interp, "Invalid
1330: 20 4d 41 43 20 5c 22 22 2c 20 6d 61 63 4e 61 6d MAC \"", macNam
1340: 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a e, "\"", NULL);.
1350: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1360: 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 20 ERROR;..}. }
1370: 65 6c 73 65 20 69 66 20 28 74 79 70 65 20 3d 3d else if (type ==
1380: 20 54 59 50 45 5f 4d 41 43 29 20 7b 0a 09 54 63 TYPE_MAC) {..Tc
1390: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
13a0: 6e 74 65 72 70 2c 20 22 4e 6f 20 4d 41 43 20 73 nterp, "No MAC s
13b0: 70 65 63 69 66 69 65 64 22 2c 20 4e 55 4c 4c 29 pecified", NULL)
13c0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
13d0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
13e0: 2f 2a 20 47 65 74 20 64 69 67 65 73 74 20 2a 2f /* Get digest */
13f0: 0a 20 20 20 20 69 66 20 28 64 69 67 65 73 74 4f . if (digestO
1400: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 bj != NULL) {..d
1410: 69 67 65 73 74 4e 61 6d 65 20 3d 20 54 63 6c 5f igestName = Tcl_
1420: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
1430: 28 64 69 67 65 73 74 4f 62 6a 2c 20 4e 55 4c 4c (digestObj, NULL
1440: 29 3b 0a 09 6d 64 20 3d 20 45 56 50 5f 67 65 74 );..md = EVP_get
1450: 5f 64 69 67 65 73 74 62 79 6e 61 6d 65 28 64 69 _digestbyname(di
1460: 67 65 73 74 4e 61 6d 65 29 3b 0a 09 69 66 20 28 gestName);..if (
1470: 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 md == NULL) {..
1480: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
1490: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 ult(interp, "Inv
14a0: 61 6c 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c alid digest \"",
14b0: 20 64 69 67 65 73 74 4e 61 6d 65 2c 20 22 5c 22 digestName, "\"
14c0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 ", NULL);.. r
14d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
14e0: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 6d 64 20 ..} else if (md
14f0: 3d 3d 20 45 56 50 5f 73 68 61 6b 65 31 32 38 28 == EVP_shake128(
1500: 29 20 7c 7c 20 6d 64 20 3d 3d 20 45 56 50 5f 73 ) || md == EVP_s
1510: 68 61 6b 65 32 35 36 28 29 29 20 7b 0a 09 20 20 hake256()) {..
1520: 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6f 72 6d statePtr->form
1530: 61 74 20 7c 3d 20 49 53 5f 58 4f 46 3b 0a 09 7d at |= IS_XOF;..}
1540: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
1550: 74 79 70 65 20 21 3d 20 54 59 50 45 5f 43 4d 41 type != TYPE_CMA
1560: 43 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 C) {..Tcl_Append
1570: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1580: 4e 6f 20 64 69 67 65 73 74 20 73 70 65 63 69 66 No digest specif
1590: 69 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 ied", NULL);..re
15a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
15b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
15c0: 74 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 t cipher */.
15d0: 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 21 3d if (cipherObj !=
15e0: 20 4e 55 4c 4c 29 20 7b 0a 09 63 69 70 68 65 72 NULL) {..cipher
15f0: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 Name = Tcl_GetSt
1600: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 69 70 68 ringFromObj(ciph
1610: 65 72 4f 62 6a 2c 20 4e 55 4c 4c 29 3b 0a 09 63 erObj, NULL);..c
1620: 69 70 68 65 72 20 3d 20 45 56 50 5f 67 65 74 5f ipher = EVP_get_
1630: 63 69 70 68 65 72 62 79 6e 61 6d 65 28 63 69 70 cipherbyname(cip
1640: 68 65 72 4e 61 6d 65 29 3b 0a 09 69 66 20 28 63 herName);..if (c
1650: 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b ipher == NULL) {
1660: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
1670: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1680: 49 6e 76 61 6c 69 64 20 63 69 70 68 65 72 20 5c Invalid cipher \
1690: 22 22 2c 20 63 69 70 68 65 72 4e 61 6d 65 2c 20 "", cipherName,
16a0: 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 "\"", NULL);..
16b0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
16c0: 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 OR;..}. } els
16d0: 65 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 e if (type == TY
16e0: 50 45 5f 43 4d 41 43 29 20 7b 0a 09 54 63 6c 5f PE_CMAC) {..Tcl_
16f0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1700: 65 72 70 2c 20 22 4e 6f 20 63 69 70 68 65 72 20 erp, "No cipher
1710: 73 70 65 63 69 66 69 65 64 22 2c 20 4e 55 4c 4c specified", NULL
1720: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
1730: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
1740: 20 2f 2a 20 47 65 74 20 6b 65 79 20 2a 2f 0a 20 /* Get key */.
1750: 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 21 3d if (keyObj !=
1760: 20 4e 55 4c 4c 29 20 7b 0a 09 6b 65 79 20 3d 20 NULL) {..key =
1770: 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 Tcl_GetByteArray
1780: 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a 2c 20 FromObj(keyObj,
1790: 26 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d &key_len);. }
17a0: 20 65 6c 73 65 20 69 66 20 28 74 79 70 65 20 21 else if (type !
17b0: 3d 20 54 59 50 45 5f 4d 44 29 20 7b 0a 09 54 63 = TYPE_MD) {..Tc
17c0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
17d0: 6e 74 65 72 70 2c 20 22 4e 6f 20 6b 65 79 20 73 nterp, "No key s
17e0: 70 65 63 69 66 69 65 64 22 2c 20 4e 55 4c 4c 29 pecified", NULL)
17f0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
1800: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1810: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 63 72 /* Initialize cr
1820: 79 70 74 6f 67 72 61 70 68 79 20 66 75 6e 63 74 yptography funct
1830: 69 6f 6e 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 ion */. switc
1840: 68 28 74 79 70 65 29 20 7b 0a 20 20 20 20 63 61 h(type) {. ca
1850: 73 65 20 54 59 50 45 5f 4d 44 3a 0a 09 72 65 73 se TYPE_MD:..res
1860: 20 3d 20 45 56 50 5f 44 69 67 65 73 74 49 6e 69 = EVP_DigestIni
1870: 74 5f 65 78 28 73 74 61 74 65 50 74 72 2d 3e 63 t_ex(statePtr->c
1880: 74 78 2c 20 6d 64 2c 20 4e 55 4c 4c 29 3b 0a 09 tx, md, NULL);..
1890: 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 65 20 break;. case
18a0: 54 59 50 45 5f 48 4d 41 43 3a 0a 09 72 65 73 20 TYPE_HMAC:..res
18b0: 3d 20 48 4d 41 43 5f 49 6e 69 74 5f 65 78 28 73 = HMAC_Init_ex(s
18c0: 74 61 74 65 50 74 72 2d 3e 68 63 74 78 2c 20 28 tatePtr->hctx, (
18d0: 63 6f 6e 73 74 20 76 6f 69 64 20 2a 29 20 6b 65 const void *) ke
18e0: 79 2c 20 6b 65 79 5f 6c 65 6e 2c 20 6d 64 2c 20 y, key_len, md,
18f0: 4e 55 4c 4c 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 NULL);..break;.
1900: 20 20 20 63 61 73 65 20 54 59 50 45 5f 43 4d 41 case TYPE_CMA
1910: 43 3a 0a 09 72 65 73 20 3d 20 43 4d 41 43 5f 49 C:..res = CMAC_I
1920: 6e 69 74 28 73 74 61 74 65 50 74 72 2d 3e 63 63 nit(statePtr->cc
1930: 74 78 2c 20 28 63 6f 6e 73 74 20 76 6f 69 64 20 tx, (const void
1940: 2a 29 20 6b 65 79 2c 20 6b 65 79 5f 6c 65 6e 2c *) key, key_len,
1950: 20 63 69 70 68 65 72 2c 20 4e 55 4c 4c 29 3b 0a cipher, NULL);.
1960: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 .break;. }..
1970: 20 20 20 69 66 20 28 21 72 65 73 29 20 7b 0a 09 if (!res) {..
1980: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1990: 28 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61 (interp, "Initia
19a0: 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 lize failed: ",
19b0: 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b REASON(), NULL);
19c0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
19d0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
19e0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
19f0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
1a40: 69 67 65 73 74 55 70 64 61 74 65 20 2d 2d 0a 20 igestUpdate --.
1a50: 2a 0a 20 2a 09 55 70 64 61 74 65 20 61 20 68 61 *. *.Update a ha
1a60: 73 68 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 sh function with
1a70: 20 64 61 74 61 0a 20 2a 0a 20 2a 20 52 65 74 75 data. *. * Retu
1a80: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 rns:. *.TCL_OK i
1a90: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
1aa0: 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 TCL_ERROR for fa
1ab0: 69 6c 75 72 65 20 77 69 74 68 20 72 65 73 75 6c ilure with resul
1ac0: 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f t set. *.to erro
1ad0: 72 20 6d 65 73 73 61 67 65 20 69 66 20 64 6f 5f r message if do_
1ae0: 72 65 73 75 6c 74 20 69 73 20 74 72 75 65 2e 0a result is true..
1af0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1b00: 74 73 3a 0a 20 2a 09 41 64 64 73 20 62 75 66 20 ts:. *.Adds buf
1b10: 64 61 74 61 20 74 6f 20 68 61 73 68 20 66 75 6e data to hash fun
1b20: 63 74 69 6f 6e 20 6f 72 20 73 65 74 73 20 72 65 ction or sets re
1b30: 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 sult to error me
1b40: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
1b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1b90: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 55 70 64 */.int DigestUpd
1ba0: 61 74 65 28 44 69 67 65 73 74 53 74 61 74 65 20 ate(DigestState
1bb0: 2a 73 74 61 74 65 50 74 72 2c 20 63 68 61 72 20 *statePtr, char
1bc0: 2a 62 75 66 2c 20 73 69 7a 65 5f 74 20 72 65 61 *buf, size_t rea
1bd0: 64 2c 20 69 6e 74 20 64 6f 5f 72 65 73 75 6c 74 d, int do_result
1be0: 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 ) {. int res
1bf0: 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 = 0;.. dprint
1c00: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
1c10: 20 20 73 77 69 74 63 68 28 73 74 61 74 65 50 74 switch(statePt
1c20: 72 2d 3e 66 6f 72 6d 61 74 20 26 20 30 78 46 46 r->format & 0xFF
1c30: 30 29 20 7b 0a 20 20 20 20 63 61 73 65 20 54 59 0) {. case TY
1c40: 50 45 5f 4d 44 3a 0a 20 20 20 20 20 20 20 20 72 PE_MD:. r
1c50: 65 73 20 3d 20 45 56 50 5f 44 69 67 65 73 74 55 es = EVP_DigestU
1c60: 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e pdate(statePtr->
1c70: 63 74 78 2c 20 62 75 66 2c 20 72 65 61 64 29 3b ctx, buf, read);
1c80: 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 63 61 73 ..break;. cas
1c90: 65 20 54 59 50 45 5f 48 4d 41 43 3a 0a 20 20 20 e TYPE_HMAC:.
1ca0: 20 20 20 20 20 72 65 73 20 3d 20 48 4d 41 43 5f res = HMAC_
1cb0: 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2d Update(statePtr-
1cc0: 3e 68 63 74 78 2c 20 62 75 66 2c 20 72 65 61 64 >hctx, buf, read
1cd0: 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 63 );..break;. c
1ce0: 61 73 65 20 54 59 50 45 5f 43 4d 41 43 3a 0a 20 ase TYPE_CMAC:.
1cf0: 20 20 20 20 20 20 20 72 65 73 20 3d 20 43 4d 41 res = CMA
1d00: 43 5f 55 70 64 61 74 65 28 73 74 61 74 65 50 74 C_Update(statePt
1d10: 72 2d 3e 63 63 74 78 2c 20 62 75 66 2c 20 72 65 r->cctx, buf, re
1d20: 61 64 29 3b 0a 09 62 72 65 61 6b 3b 0a 20 20 20 ad);..break;.
1d30: 20 7d 0a 0a 20 20 20 20 69 66 20 28 21 72 65 73 }.. if (!res
1d40: 20 26 26 20 64 6f 5f 72 65 73 75 6c 74 29 20 7b && do_result) {
1d50: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
1d60: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 lt(statePtr->int
1d70: 65 72 70 2c 20 22 55 70 64 61 74 65 20 66 61 69 erp, "Update fai
1d80: 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 led: ", REASON()
1d90: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
1da0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1db0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
1dc0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
1dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e10: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 46 69 6e . *. * DigestFin
1e20: 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 46 alize --. *. *.F
1e30: 69 6e 61 6c 69 7a 65 20 61 20 68 61 73 68 20 66 inalize a hash f
1e40: 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 unction and retu
1e50: 72 6e 20 74 68 65 20 6d 65 73 73 61 67 65 20 64 rn the message d
1e60: 69 67 65 73 74 0a 20 2a 0a 20 2a 20 52 65 74 75 igest. *. * Retu
1e70: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 rns:. *.TCL_OK i
1e80: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
1e90: 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 TCL_ERROR for fa
1ea0: 69 6c 75 72 65 20 77 69 74 68 20 72 65 73 75 6c ilure with resul
1eb0: 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f t set. *.to erro
1ec0: 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a r message.. *. *
1ed0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1ee0: 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f *.Sets result to
1ef0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
1f00: 6f 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 or an error mess
1f10: 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d age.. *. *------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1f60: 2f 0a 69 6e 74 20 44 69 67 65 73 74 46 69 6e 61 /.int DigestFina
1f70: 6c 69 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 lize(Tcl_Interp
1f80: 2a 69 6e 74 65 72 70 2c 20 44 69 67 65 73 74 53 *interp, DigestS
1f90: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
1fa0: 54 63 6c 5f 4f 62 6a 20 2a 2a 72 65 73 75 6c 74 Tcl_Obj **result
1fb0: 4f 62 6a 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 Obj) {. unsig
1fc0: 6e 65 64 20 63 68 61 72 20 6d 64 5f 62 75 66 5b ned char md_buf[
1fd0: 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 5d EVP_MAX_MD_SIZE]
1fe0: 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 ;. unsigned i
1ff0: 6e 74 20 75 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 nt ulen;. int
2000: 20 72 65 73 20 3d 20 30 2c 20 6d 64 5f 6c 65 6e res = 0, md_len
2010: 20 3d 20 30 2c 20 74 79 70 65 20 3d 20 73 74 61 = 0, type = sta
2020: 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 20 tePtr->format &
2030: 30 78 46 46 30 3b 0a 0a 20 20 20 20 64 70 72 69 0xFF0;.. dpri
2040: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
2050: 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 /* Finalize
2060: 63 72 79 70 74 6f 67 72 61 70 68 79 20 66 75 6e cryptography fun
2070: 63 74 69 6f 6e 20 61 6e 64 20 67 65 74 20 72 65 ction and get re
2080: 73 75 6c 74 20 2a 2f 0a 20 20 20 20 73 77 69 74 sult */. swit
2090: 63 68 28 74 79 70 65 29 20 7b 0a 20 20 20 20 63 ch(type) {. c
20a0: 61 73 65 20 54 59 50 45 5f 4d 44 3a 0a 09 69 66 ase TYPE_MD:..if
20b0: 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6f (!(statePtr->fo
20c0: 72 6d 61 74 20 26 20 49 53 5f 58 4f 46 29 29 20 rmat & IS_XOF))
20d0: 7b 0a 09 20 20 20 20 72 65 73 20 3d 20 45 56 50 {.. res = EVP
20e0: 5f 44 69 67 65 73 74 46 69 6e 61 6c 5f 65 78 28 _DigestFinal_ex(
20f0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6d statePtr->ctx, m
2100: 64 5f 62 75 66 2c 20 26 75 6c 65 6e 29 3b 0a 09 d_buf, &ulen);..
2110: 20 20 20 20 6d 64 5f 6c 65 6e 20 3d 20 28 69 6e md_len = (in
2120: 74 29 20 75 6c 65 6e 3b 0a 09 7d 20 65 6c 73 65 t) ulen;..} else
2130: 20 7b 0a 09 20 20 20 20 72 65 73 20 3d 20 45 56 {.. res = EV
2140: 50 5f 44 69 67 65 73 74 46 69 6e 61 6c 58 4f 46 P_DigestFinalXOF
2150: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 (statePtr->ctx,
2160: 6d 64 5f 62 75 66 2c 20 28 73 69 7a 65 5f 74 29 md_buf, (size_t)
2170: 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 EVP_MAX_MD_SIZE
2180: 29 3b 0a 09 20 20 20 20 6d 64 5f 6c 65 6e 20 3d );.. md_len =
2190: 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 EVP_MAX_MD_SIZE
21a0: 3b 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a 20 20 20 ;..}..break;.
21b0: 20 63 61 73 65 20 54 59 50 45 5f 48 4d 41 43 3a case TYPE_HMAC:
21c0: 0a 09 72 65 73 20 3d 20 48 4d 41 43 5f 46 69 6e ..res = HMAC_Fin
21d0: 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 68 63 74 al(statePtr->hct
21e0: 78 2c 20 6d 64 5f 62 75 66 2c 20 26 75 6c 65 6e x, md_buf, &ulen
21f0: 29 3b 0a 09 6d 64 5f 6c 65 6e 20 3d 20 28 69 6e );..md_len = (in
2200: 74 29 20 75 6c 65 6e 3b 0a 09 62 72 65 61 6b 3b t) ulen;..break;
2210: 0a 20 20 20 20 63 61 73 65 20 54 59 50 45 5f 43 . case TYPE_C
2220: 4d 41 43 3a 0a 09 73 69 7a 65 5f 74 20 73 69 7a MAC:..size_t siz
2230: 65 3b 0a 09 72 65 73 20 3d 20 43 4d 41 43 5f 46 e;..res = CMAC_F
2240: 69 6e 61 6c 28 73 74 61 74 65 50 74 72 2d 3e 63 inal(statePtr->c
2250: 63 74 78 2c 20 6d 64 5f 62 75 66 2c 20 26 73 69 ctx, md_buf, &si
2260: 7a 65 29 3b 0a 09 6d 64 5f 6c 65 6e 20 3d 20 28 ze);..md_len = (
2270: 69 6e 74 29 20 73 69 7a 65 3b 0a 09 62 72 65 61 int) size;..brea
2280: 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 k;. }.. if
2290: 20 28 21 72 65 73 29 20 7b 0a 09 69 66 20 28 72 (!res) {..if (r
22a0: 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c esultObj == NULL
22b0: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
22c0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
22d0: 2c 20 22 46 69 6e 61 6c 69 7a 65 20 66 61 69 6c , "Finalize fail
22e0: 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c ed: ", REASON(),
22f0: 20 4e 55 4c 4c 29 3b 0a 09 7d 0a 09 72 65 74 75 NULL);..}..retu
2300: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
2310: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 }.. /* Retu
2320: 72 6e 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 rn message diges
2330: 74 20 61 73 20 65 69 74 68 65 72 20 61 20 62 69 t as either a bi
2340: 6e 61 72 79 20 6f 72 20 68 65 78 20 73 74 72 69 nary or hex stri
2350: 6e 67 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 ng */. if (st
2360: 61 74 65 50 74 72 2d 3e 66 6f 72 6d 61 74 20 26 atePtr->format &
2370: 20 42 49 4e 5f 46 4f 52 4d 41 54 29 20 7b 0a 09 BIN_FORMAT) {..
2380: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
2390: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 NULL) {.. Tc
23a0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
23b0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42 79 nterp, Tcl_NewBy
23c0: 74 65 41 72 72 61 79 4f 62 6a 28 6d 64 5f 62 75 teArrayObj(md_bu
23d0: 66 2c 20 6d 64 5f 6c 65 6e 29 29 3b 0a 09 7d 20 f, md_len));..}
23e0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 2a 72 65 73 else {.. *res
23f0: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
2400: 42 79 74 65 41 72 72 61 79 4f 62 6a 28 6d 64 5f ByteArrayObj(md_
2410: 62 75 66 2c 20 6d 64 5f 6c 65 6e 29 3b 0a 09 20 buf, md_len);..
2420: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
2430: 75 6e 74 28 2a 72 65 73 75 6c 74 4f 62 6a 29 3b unt(*resultObj);
2440: 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 ..}.. } else
2450: 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 6e 65 77 4f {..Tcl_Obj *newO
2460: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 bj = Tcl_NewObj(
2470: 29 3b 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 );..unsigned cha
2480: 72 20 2a 70 74 72 20 3d 20 54 63 6c 5f 53 65 74 r *ptr = Tcl_Set
2490: 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 ByteArrayLength(
24a0: 6e 65 77 4f 62 6a 2c 20 6d 64 5f 6c 65 6e 2a 32 newObj, md_len*2
24b0: 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 74 20 69 20 );...for (int i
24c0: 3d 20 30 3b 20 69 20 3c 20 6d 64 5f 6c 65 6e 3b = 0; i < md_len;
24d0: 20 69 2b 2b 29 20 7b 0a 09 20 20 20 20 2a 70 74 i++) {.. *pt
24e0: 72 2b 2b 20 3d 20 68 65 78 5b 28 6d 64 5f 62 75 r++ = hex[(md_bu
24f0: 66 5b 69 5d 20 3e 3e 20 34 29 20 26 20 30 78 30 f[i] >> 4) & 0x0
2500: 46 5d 3b 0a 09 20 20 20 20 2a 70 74 72 2b 2b 20 F];.. *ptr++
2510: 3d 20 68 65 78 5b 6d 64 5f 62 75 66 5b 69 5d 20 = hex[md_buf[i]
2520: 26 20 30 78 30 46 5d 3b 0a 09 7d 0a 0a 09 69 66 & 0x0F];..}...if
2530: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
2540: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f ULL) {.. Tcl_
2550: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
2560: 65 72 70 2c 20 6e 65 77 4f 62 6a 29 3b 0a 09 7d erp, newObj);..}
2570: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2a 72 65 else {.. *re
2580: 73 75 6c 74 4f 62 6a 20 3d 20 6e 65 77 4f 62 6a sultObj = newObj
2590: 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
25a0: 65 66 43 6f 75 6e 74 28 2a 72 65 73 75 6c 74 4f efCount(*resultO
25b0: 62 6a 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 bj);..}. }.
25c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
25d0: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
25e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
25f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2600: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2610: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
2620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2660: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
2670: 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d BlockModeProc --
2680: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
2690: 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 tion is invoked
26a0: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
26b0: 4f 20 6c 65 76 65 6c 0a 20 2a 09 74 6f 20 73 65 O level. *.to se
26c0: 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e t blocking and n
26d0: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 onblocking modes
26e0: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
26f0: 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 . *.0 if success
2700: 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 ful or POSIX err
2710: 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 or code if faile
2720: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
2730: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 74 fects:. *.Sets t
2740: 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 62 he device into b
2750: 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c locking or nonbl
2760: 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 09 ocking mode.. *.
2770: 43 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53 65 74 Can call Tcl_Set
2780: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 2a ChannelError.. *
2790: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
27a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
27e0: 63 20 69 6e 74 20 44 69 67 65 73 74 42 6c 6f 63 c int DigestBloc
27f0: 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e 74 kModeProc(Client
2800: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
2810: 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 20 20 int mode) {.
2820: 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 DigestState *st
2830: 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 atePtr = (Digest
2840: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
2850: 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f ata;.. if (mo
2860: 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e de == TCL_MODE_N
2870: 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 ONBLOCKING) {..s
2880: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
2890: 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b = TLS_TCL_ASYNC;
28a0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 . } else {..s
28b0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
28c0: 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e = ~(TLS_TCL_ASYN
28d0: 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 C);. }. re
28e0: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a turn 0;.}../*. *
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2930: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
2940: 43 6c 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a CloseProc --. *.
2950: 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e *.This function
2960: 20 69 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 is invoked by t
2970: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 he generic IO le
2980: 76 65 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 vel to perform.
2990: 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 70 65 20 73 *.channel-type s
29a0: 70 65 63 69 66 69 63 20 63 6c 65 61 6e 75 70 20 pecific cleanup
29b0: 77 68 65 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c when the channel
29c0: 20 69 73 20 63 6c 6f 73 65 64 2e 20 41 6c 6c 0a is closed. All.
29d0: 20 2a 09 71 75 65 75 65 64 20 6f 75 74 70 75 74 *.queued output
29e0: 20 69 73 20 66 6c 75 73 68 65 64 20 70 72 69 6f is flushed prio
29f0: 72 20 74 6f 20 63 61 6c 6c 69 6e 67 20 74 68 69 r to calling thi
2a00: 73 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 s function.. *.
2a10: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 * Returns:. *.0
2a20: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 if successful or
2a30: 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 POSIX error cod
2a40: 65 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a e if failed.. *.
2a50: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2a60: 0a 20 2a 09 44 65 6c 65 74 65 73 20 73 74 6f 72 . *.Deletes stor
2a70: 65 64 20 73 74 61 74 65 20 64 61 74 61 2e 0a 20 ed state data..
2a80: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ac0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
2ad0: 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 28 DigestCloseProc(
2ae0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
2af0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
2b00: 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 p *interp) {.
2b10: 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 DigestState *st
2b20: 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 atePtr = (Digest
2b30: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
2b40: 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e ata;.. /* Can
2b50: 63 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 72 cel active timer
2b60: 2c 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 , if any */.
2b70: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 if (statePtr->ti
2b80: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 mer != (Tcl_Time
2b90: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a rToken) NULL) {.
2ba0: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 .Tcl_DeleteTimer
2bb0: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
2bc0: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 ->timer);..state
2bd0: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
2be0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
2bf0: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f LL;. }.. /
2c00: 2a 20 4f 75 74 70 75 74 20 6d 65 73 73 61 67 65 * Output message
2c10: 20 64 69 67 65 73 74 20 69 66 20 6e 6f 74 20 61 digest if not a
2c20: 6c 72 65 61 64 79 20 64 6f 6e 65 20 2a 2f 0a 20 lready done */.
2c30: 20 20 20 69 66 20 28 21 28 73 74 61 74 65 50 74 if (!(statePt
2c40: 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 41 4e 5f r->flags & CHAN_
2c50: 45 4f 46 29 29 20 7b 0a 09 54 63 6c 5f 43 68 61 EOF)) {..Tcl_Cha
2c60: 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 54 63 nnel parent = Tc
2c70: 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e l_GetStackedChan
2c80: 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 nel(statePtr->se
2c90: 6c 66 29 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 lf);..Tcl_Obj *r
2ca0: 65 73 75 6c 74 4f 62 6a 3b 0a 09 69 6e 74 20 77 esultObj;..int w
2cb0: 72 69 74 74 65 6e 3b 0a 0a 09 69 66 20 28 44 69 ritten;...if (Di
2cc0: 67 65 73 74 46 69 6e 61 6c 69 7a 65 28 73 74 61 gestFinalize(sta
2cd0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 tePtr->interp, s
2ce0: 74 61 74 65 50 74 72 2c 20 26 72 65 73 75 6c 74 tatePtr, &result
2cf0: 4f 62 6a 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 Obj) == TCL_OK)
2d00: 7b 0a 09 20 20 20 20 75 6e 73 69 67 6e 65 64 20 {.. unsigned
2d10: 63 68 61 72 20 2a 64 61 74 61 20 3d 20 54 63 6c char *data = Tcl
2d20: 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f _GetByteArrayFro
2d30: 6d 4f 62 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 mObj(resultObj,
2d40: 26 77 72 69 74 74 65 6e 29 3b 0a 09 20 20 20 20 &written);..
2d50: 54 63 6c 5f 57 72 69 74 65 52 61 77 28 70 61 72 Tcl_WriteRaw(par
2d60: 65 6e 74 2c 20 64 61 74 61 2c 20 77 72 69 74 74 ent, data, writt
2d70: 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 en);.. Tcl_De
2d80: 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c crRefCount(resul
2d90: 74 4f 62 6a 29 3b 0a 09 7d 0a 09 73 74 61 74 65 tObj);..}..state
2da0: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 48 Ptr->flags |= CH
2db0: 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a 0a 20 AN_EOF;. }..
2dc0: 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a /* Clean-up *
2dd0: 2f 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 74 /. DigestStat
2de0: 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b eFree(statePtr);
2df0: 0a 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d . return 0;.}
2e00: 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 65 20 61 73 20 ../*. * Same as
2e10: 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 20 DigestCloseProc
2e20: 62 75 74 20 77 69 74 68 20 69 6e 64 69 76 69 64 but with individ
2e30: 75 61 6c 20 72 65 61 64 20 61 6e 64 20 77 72 69 ual read and wri
2e40: 74 65 20 63 6c 6f 73 65 20 63 6f 6e 74 72 6f 6c te close control
2e50: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
2e60: 44 69 67 65 73 74 43 6c 6f 73 65 32 50 72 6f 63 DigestClose2Proc
2e70: 28 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 (ClientData inst
2e80: 61 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e anceData, Tcl_In
2e90: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
2ea0: 74 20 66 6c 61 67 73 29 20 7b 0a 0a 20 20 20 20 t flags) {..
2eb0: 69 66 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 if ((flags & (TC
2ec0: 4c 5f 43 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 L_CLOSE_READ | T
2ed0: 43 4c 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 CL_CLOSE_WRITE))
2ee0: 20 3d 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e == 0) {..return
2ef0: 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f 63 DigestCloseProc
2f00: 28 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 (instanceData, i
2f10: 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 nterp);. }.
2f20: 20 20 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b return EINVAL;
2f30: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2f80: 20 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e 70 75 *. * DigestInpu
2f90: 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 tProc --. *. *.C
2fa0: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e alled by the gen
2fb0: 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 eric IO system t
2fc0: 6f 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d o read data from
2fd0: 20 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 0a 20 transform and.
2fe0: 2a 09 70 6c 61 63 65 20 69 6e 20 62 75 66 2e 20 *.place in buf.
2ff0: 54 72 61 6e 73 66 6f 72 6d 20 67 65 74 73 20 64 Transform gets d
3000: 61 74 61 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 ata from the und
3010: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
3020: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
3030: 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 72 *.Total bytes r
3040: 65 61 64 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e ead or -1 for an
3050: 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 error along wit
3060: 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 0a h a POSIX error.
3070: 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 *.code in error
3080: 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 47 CodePtr. Use EAG
3090: 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b AIN for nonblock
30a0: 69 6e 67 20 61 6e 64 20 6e 6f 20 64 61 74 61 2e ing and no data.
30b0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
30c0: 63 74 73 3a 0a 20 2a 09 52 65 61 64 20 64 61 74 cts:. *.Read dat
30d0: 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d a from transform
30e0: 20 61 6e 64 20 77 72 69 74 65 20 74 6f 20 62 75 and write to bu
30f0: 66 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d f. *. *---------
3100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3140: 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 6e 70 75 /.int DigestInpu
3150: 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 tProc(ClientData
3160: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 68 61 clientData, cha
3170: 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 52 65 r *buf, int toRe
3180: 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f ad, int *errorCo
3190: 64 65 50 74 72 29 20 7b 0a 20 20 20 20 44 69 67 dePtr) {. Dig
31a0: 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 estState *stateP
31b0: 74 72 20 3d 20 28 44 69 67 65 73 74 53 74 61 74 tr = (DigestStat
31c0: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
31d0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
31e0: 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 69 6e 74 parent;. int
31f0: 20 72 65 61 64 3b 0a 20 20 20 20 2a 65 72 72 6f read;. *erro
3200: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 0a 20 rCodePtr = 0;..
3210: 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e /* Abort if n
3220: 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 65 73 othing to proces
3230: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f 52 s */. if (toR
3240: 65 61 64 20 3c 3d 20 30 20 7c 7c 20 73 74 61 74 ead <= 0 || stat
3250: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
3260: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
3270: 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 ) {..return 0;.
3280: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
3290: 20 62 79 74 65 73 20 66 72 6f 6d 20 75 6e 64 65 bytes from unde
32a0: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 20 2a rlying channel *
32b0: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
32c0: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
32d0: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
32e0: 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 20 3d elf);. read =
32f0: 20 54 63 6c 5f 52 65 61 64 52 61 77 28 70 61 72 Tcl_ReadRaw(par
3300: 65 6e 74 2c 20 62 75 66 2c 20 74 6f 52 65 61 64 ent, buf, toRead
3310: 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 );.. /* Updat
3320: 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 e hash function
3330: 2a 2f 0a 20 20 20 20 69 66 20 28 72 65 61 64 20 */. if (read
3340: 3e 20 30 29 20 7b 0a 09 2f 2a 20 48 61 76 65 20 > 0) {../* Have
3350: 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 44 69 67 data */..if (Dig
3360: 65 73 74 55 70 64 61 74 65 28 73 74 61 74 65 50 estUpdate(stateP
3370: 74 72 2c 20 62 75 66 2c 20 28 73 69 7a 65 5f 74 tr, buf, (size_t
3380: 29 20 72 65 61 64 2c 20 30 29 20 21 3d 20 54 43 ) read, 0) != TC
3390: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 54 63 6c L_OK) {.. Tcl
33a0: 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 _SetChannelError
33b0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c (statePtr->self,
33c0: 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 Tcl_ObjPrintf("
33d0: 55 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 Update failed: %
33e0: 73 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a s", REASON()));.
33f0: 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3400: 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 tr = EINVAL;..
3410: 20 20 72 65 74 75 72 6e 20 30 3b 0a 09 7d 0a 09 return 0;..}..
3420: 2f 2a 20 54 68 69 73 20 69 73 20 63 6f 72 72 65 /* This is corre
3430: 63 74 20 2a 2f 0a 09 72 65 61 64 20 3d 20 2d 31 ct */..read = -1
3440: 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 ;..*errorCodePtr
3450: 20 3d 20 45 41 47 41 49 4e 3b 0a 0a 20 20 20 20 = EAGAIN;..
3460: 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 20 } else if (read
3470: 3c 20 30 29 20 7b 0a 09 2f 2a 20 45 72 72 6f 72 < 0) {../* Error
3480: 20 2a 2f 0a 09 2a 65 72 72 6f 72 43 6f 64 65 50 */..*errorCodeP
3490: 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 6e tr = Tcl_GetErrn
34a0: 6f 28 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 o();.. } else
34b0: 20 69 66 20 28 21 28 73 74 61 74 65 50 74 72 2d if (!(statePtr-
34c0: 3e 66 6c 61 67 73 20 26 20 43 48 41 4e 5f 45 4f >flags & CHAN_EO
34d0: 46 29 29 20 7b 0a 09 2f 2a 20 45 4f 46 20 2a 2f F)) {../* EOF */
34e0: 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c ..Tcl_Obj *resul
34f0: 74 4f 62 6a 3b 0a 09 69 66 20 28 44 69 67 65 73 tObj;..if (Diges
3500: 74 46 69 6e 61 6c 69 7a 65 28 73 74 61 74 65 50 tFinalize(stateP
3510: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 tr->interp, stat
3520: 65 50 74 72 2c 20 26 72 65 73 75 6c 74 4f 62 6a ePtr, &resultObj
3530: 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) == TCL_OK) {..
3540: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
3550: 72 20 2a 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 r *data = Tcl_Ge
3560: 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 tByteArrayFromOb
3570: 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 26 72 65 j(resultObj, &re
3580: 61 64 29 3b 0a 09 20 20 20 20 6d 65 6d 63 70 79 ad);.. memcpy
3590: 28 62 75 66 2c 20 64 61 74 61 2c 20 72 65 61 64 (buf, data, read
35a0: 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 );.. Tcl_Decr
35b0: 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f RefCount(resultO
35c0: 62 6a 29 3b 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a bj);...} else {.
35d0: 09 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
35e0: 6e 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 nelError(statePt
35f0: 72 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a r->self, Tcl_Obj
3600: 50 72 69 6e 74 66 28 22 46 69 6e 61 6c 69 7a 65 Printf("Finalize
3610: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 52 45 failed: %s", RE
3620: 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 20 20 2a ASON()));.. *
3630: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
3640: 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 61 64 INVAL;.. read
3650: 20 3d 20 30 3b 0a 09 7d 0a 09 73 74 61 74 65 50 = 0;..}..stateP
3660: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 48 41 tr->flags |= CHA
3670: 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a 20 20 20 N_EOF;. }.
3680: 20 72 65 74 75 72 6e 20 72 65 61 64 3b 0a 7d 0a return read;.}.
3690: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
36a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
36e0: 20 2a 20 44 69 67 65 73 74 4f 75 74 70 75 74 50 * DigestOutputP
36f0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c roc --. *. *.Cal
3700: 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 led by the gener
3710: 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 ic IO system to
3720: 77 72 69 74 65 20 64 61 74 61 20 69 6e 20 62 75 write data in bu
3730: 66 20 74 6f 20 74 72 61 6e 73 66 6f 72 6d 2e 0a f to transform..
3740: 20 2a 09 54 68 65 20 74 72 61 6e 73 66 6f 72 6d *.The transform
3750: 20 77 72 69 74 65 73 20 74 68 65 20 72 65 73 75 writes the resu
3760: 6c 74 20 74 6f 20 74 68 65 20 75 6e 64 65 72 6c lt to the underl
3770: 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a ying channel.. *
3780: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
3790: 54 6f 74 61 6c 20 62 79 74 65 73 20 77 72 69 74 Total bytes writ
37a0: 74 65 6e 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e ten or -1 for an
37b0: 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 error along wit
37c0: 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 0a h a POSIX error.
37d0: 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 *.code in error
37e0: 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 47 CodePtr. Use EAG
37f0: 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b AIN for nonblock
3800: 69 6e 67 20 61 6e 64 20 63 61 6e 27 74 20 77 72 ing and can't wr
3810: 69 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 ite data.. *. *
3820: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
3830: 09 47 65 74 20 64 61 74 61 20 66 72 6f 6d 20 62 .Get data from b
3840: 75 66 20 61 6e 64 20 75 70 64 61 74 65 20 64 69 uf and update di
3850: 67 65 73 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d gest. *. *------
3860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38a0: 0a 20 2a 2f 0a 20 69 6e 74 20 44 69 67 65 73 74 . */. int Digest
38b0: 4f 75 74 70 75 74 50 72 6f 63 28 43 6c 69 65 6e OutputProc(Clien
38c0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
38d0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 75 , const char *bu
38e0: 66 2c 20 69 6e 74 20 74 6f 57 72 69 74 65 2c 20 f, int toWrite,
38f0: 69 6e 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 int *errorCodePt
3900: 72 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 r) {. DigestS
3910: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
3920: 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 (DigestState *)
3930: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
3940: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
3950: 20 30 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 0;.. /* Abor
3960: 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f 20 t if nothing to
3970: 70 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 69 process */. i
3980: 66 20 28 74 6f 57 72 69 74 65 20 3c 3d 20 30 20 f (toWrite <= 0
3990: 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c || statePtr->sel
39a0: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
39b0: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
39c0: 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 rn 0;. }..
39d0: 20 2f 2a 20 55 70 64 61 74 65 20 68 61 73 68 20 /* Update hash
39e0: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 function */.
39f0: 69 66 20 28 44 69 67 65 73 74 55 70 64 61 74 65 if (DigestUpdate
3a00: 28 73 74 61 74 65 50 74 72 2c 20 62 75 66 2c 20 (statePtr, buf,
3a10: 28 73 69 7a 65 5f 74 29 20 74 6f 57 72 69 74 65 (size_t) toWrite
3a20: 2c 20 30 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 , 0) != TCL_OK)
3a30: 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 {..Tcl_SetChanne
3a40: 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d lError(statePtr-
3a50: 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 >self, Tcl_ObjPr
3a60: 69 6e 74 66 28 22 55 70 64 61 74 65 20 66 61 69 intf("Update fai
3a70: 6c 65 64 3a 20 25 73 22 2c 20 52 45 41 53 4f 4e led: %s", REASON
3a80: 28 29 29 29 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 ()));..*errorCod
3a90: 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 ePtr = EINVAL;..
3aa0: 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a return 0;. }.
3ab0: 20 20 20 20 72 65 74 75 72 6e 20 74 6f 57 72 69 return toWri
3ac0: 74 65 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d te;.}../*. *----
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b10: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 53 --. *. * DigestS
3b20: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a etOptionProc --.
3b30: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
3b40: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 the generic IO s
3b50: 79 73 74 65 6d 20 74 6f 20 73 65 74 20 63 68 61 ystem to set cha
3b60: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 nnel option name
3b70: 20 74 6f 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a to value.. *. *
3b80: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
3b90: 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 _OK if successfu
3ba0: 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 l or TCL_ERROR i
3bb0: 66 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 f failed along w
3bc0: 69 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 ith an error. *.
3bd0: 6d 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 message in inter
3be0: 70 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 p and Tcl_SetErr
3bf0: 6e 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 no.. *. * Side e
3c00: 66 66 65 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 ffects:. *.Updat
3c10: 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f es channel optio
3c20: 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a n to new value..
3c30: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3c80: 73 74 61 74 69 63 20 69 6e 74 20 44 69 67 65 73 static int Diges
3c90: 74 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 tSetOptionProc(C
3ca0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
3cb0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
3cc0: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 *interp, const
3cd0: 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 char *optionName
3ce0: 2c 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f ,..const char *o
3cf0: 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 ptionValue) {.
3d00: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
3d10: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
3d20: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
3d30: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 Data;. Tcl_Ch
3d40: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 annel parent;.
3d50: 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 74 4f Tcl_DriverSetO
3d60: 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 ptionProc *setOp
3d70: 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 2f tionProc;.. /
3d80: 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 * Abort if no ch
3d90: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
3da0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 (statePtr->self
3db0: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
3dc0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
3dd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3de0: 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 67 61 }.. /* Delega
3df0: 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 6e 73 te options downs
3e00: 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 61 72 tream */. par
3e10: 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 ent = Tcl_GetSta
3e20: 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 ckedChannel(stat
3e30: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 ePtr->self);.
3e40: 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d setOptionProc =
3e50: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 65 74 4f Tcl_ChannelSetO
3e60: 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 ptionProc(Tcl_Ge
3e70: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 tChannelType(par
3e80: 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 28 73 ent));. if (s
3e90: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 etOptionProc !=
3ea0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
3eb0: 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 (*setOptionProc)
3ec0: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
3ed0: 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 nstanceData(pare
3ee0: 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 nt), interp, opt
3ef0: 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 ionName, optionV
3f00: 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 alue);. } els
3f10: 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e e {..Tcl_SetErrn
3f20: 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 74 75 o(EINVAL);..retu
3f30: 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 rn Tcl_BadChanne
3f40: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
3f50: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 4c 4c optionName, NULL
3f60: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 );. }.}../*.
3f70: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fb0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 -------. *. * Di
3fc0: 67 65 73 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f gestGetOptionPro
3fd0: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 c --. *. *.Calle
3fe0: 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 d by the generic
3ff0: 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 67 65 IO system to ge
4000: 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e t channel option
4010: 20 6e 61 6d 65 27 73 20 76 61 6c 75 65 2e 0a 20 name's value..
4020: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
4030: 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 .TCL_OK if succe
4040: 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 ssful or TCL_ERR
4050: 4f 52 20 69 66 20 66 61 69 6c 65 64 20 61 6c 6f OR if failed alo
4060: 6e 67 20 77 69 74 68 20 61 6e 20 65 72 72 6f 72 ng with an error
4070: 0a 20 2a 09 6d 65 73 73 61 67 65 20 69 6e 20 69 . *.message in i
4080: 6e 74 65 72 70 20 61 6e 64 20 54 63 6c 5f 53 65 nterp and Tcl_Se
4090: 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 2a 20 53 69 tErrno.. *. * Si
40a0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
40b0: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6f 70 ets result to op
40c0: 74 69 6f 6e 27 73 20 76 61 6c 75 65 0a 20 2a 0a tion's value. *.
40d0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4110: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
4120: 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 47 65 tic int DigestGe
4130: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 tOptionProc(Clie
4140: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
4150: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
4160: 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 nterp, const cha
4170: 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 r *optionName,..
4180: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 Tcl_DString *opt
4190: 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 20 20 ionValue) {.
41a0: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
41b0: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 tePtr = (DigestS
41c0: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
41d0: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ta;. Tcl_Chan
41e0: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 nel parent;.
41f0: 54 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 Tcl_DriverGetOpt
4200: 69 6f 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 ionProc *getOpti
4210: 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 onProc;.. /*
4220: 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 6e Abort if no chan
4230: 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 nel */. if (s
4240: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d tatePtr->self ==
4250: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
4260: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
4270: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
4280: 0a 20 20 20 20 2f 2a 20 44 65 6c 65 67 61 74 65 . /* Delegate
4290: 20 6f 70 74 69 6f 6e 73 20 64 6f 77 6e 73 74 72 options downstr
42a0: 65 61 6d 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e eam */. paren
42b0: 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b t = Tcl_GetStack
42c0: 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 edChannel(stateP
42d0: 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 67 tr->self);. g
42e0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 etOptionProc = T
42f0: 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 cl_ChannelGetOpt
4300: 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 ionProc(Tcl_GetC
4310: 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e hannelType(paren
4320: 74 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 t));. if (get
4330: 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 OptionProc != NU
4340: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a LL) {..return (*
4350: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 getOptionProc)(T
4360: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
4370: 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 tanceData(parent
4380: 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f ), interp, optio
4390: 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c nName, optionVal
43a0: 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ue);. } else
43b0: 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d if (optionName =
43c0: 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 20 = (char*) NULL)
43d0: 7b 0a 09 2f 2a 20 52 65 71 75 65 73 74 20 69 73 {../* Request is
43e0: 20 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f query for all o
43f0: 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 ptions, this is
4400: 6f 6b 2e 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 ok. */..return T
4410: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 CL_OK;. } els
4420: 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e e {..Tcl_SetErrn
4430: 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 74 75 o(EINVAL);..retu
4440: 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 rn Tcl_BadChanne
4450: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
4460: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 4c 4c optionName, NULL
4470: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 );. }.}../*.
4480: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 -------. *. * Di
44d0: 67 65 73 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 gestTimerHandler
44e0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 --. *. *.Called
44f0: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 by the notifier
4500: 20 76 69 61 20 74 69 6d 65 72 20 74 6f 20 66 6c via timer to fl
4510: 75 73 68 20 6f 75 74 20 70 65 6e 64 69 6e 67 20 ush out pending
4520: 69 6e 70 75 74 20 64 61 74 61 2e 0a 20 2a 0a 20 input data.. *.
4530: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f * Returns:. *.No
4540: 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 thing. *. * Side
4550: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 effects:. *.May
4560: 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 call Tcl_Notify
4570: 43 68 61 6e 6e 65 6c 0a 20 2a 0a 20 2a 2d 2d 2d Channel. *. *---
4580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45c0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 ---. */.static v
45d0: 6f 69 64 20 44 69 67 65 73 74 54 69 6d 65 72 48 oid DigestTimerH
45e0: 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 andler(ClientDat
45f0: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a a clientData) {.
4600: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
4610: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 *statePtr = (Dig
4620: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 estState *) clie
4630: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 ntData;.. /*
4640: 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 6e Abort if no chan
4650: 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 nel */. if (s
4660: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d tatePtr->self ==
4670: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
4680: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b 0a ULL) {..return;.
4690: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c }.. /* Cl
46a0: 65 61 72 20 74 69 6d 65 72 20 74 6f 6b 65 6e 20 ear timer token
46b0: 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d */. statePtr-
46c0: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
46d0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a merToken) NULL;.
46e0: 0a 20 20 20 20 2f 2a 20 46 69 72 65 20 65 76 65 . /* Fire eve
46f0: 6e 74 20 69 66 20 74 68 65 72 65 20 69 73 20 70 nt if there is p
4700: 65 6e 64 69 6e 67 20 64 61 74 61 2c 20 73 6b 69 ending data, ski
4710: 70 20 6f 74 68 65 72 77 69 73 65 20 2a 2f 0a 20 p otherwise */.
4720: 20 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 if ((statePtr
4730: 2d 3e 77 61 74 63 68 4d 61 73 6b 20 26 20 54 43 ->watchMask & TC
4740: 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 L_READABLE) && (
4750: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
4760: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
4770: 29 20 3e 20 30 29 29 20 7b 0a 09 54 63 6c 5f 4e ) > 0)) {..Tcl_N
4780: 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 otifyChannel(sta
4790: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 43 4c tePtr->self, TCL
47a0: 5f 52 45 41 44 41 42 4c 45 29 3b 0a 20 20 20 20 _READABLE);.
47b0: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
47c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
47f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4800: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 57 61 74 . *. * DigestWat
4810: 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 chProc --. *. *.
4820: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e Initialize the n
4830: 6f 74 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 otifier to watch
4840: 20 66 6f 72 20 65 76 65 6e 74 73 20 66 72 6f 6d for events from
4850: 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 this channel..
4860: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
4870: 09 4e 6f 74 68 69 6e 67 20 28 63 61 6e 27 74 20 .Nothing (can't
4880: 72 65 74 75 72 6e 20 65 72 72 6f 72 20 6d 65 73 return error mes
4890: 73 61 67 65 73 29 0a 20 2a 0a 20 2a 20 53 69 64 sages). *. * Sid
48a0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6f e effects:. *.Co
48b0: 6e 66 69 67 75 72 65 20 6e 6f 74 69 66 69 65 72 nfigure notifier
48c0: 20 73 6f 20 66 75 74 75 72 65 20 65 76 65 6e 74 so future event
48d0: 73 20 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c s on the channel
48e0: 20 77 69 6c 6c 20 62 65 20 73 65 65 6e 20 62 79 will be seen by
48f0: 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d Tcl.. *. *-----
4900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4940: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 44 69 67 65 73 -. */.void Diges
4950: 74 57 61 74 63 68 50 72 6f 63 28 43 6c 69 65 6e tWatchProc(Clien
4960: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
4970: 2c 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 20 , int mask) {.
4980: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
4990: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
49a0: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
49b0: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 Data;. Tcl_Ch
49c0: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 annel parent;.
49d0: 20 20 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 Tcl_DriverWatc
49e0: 68 50 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 hProc *watchProc
49f0: 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 ;.. /* Abort
4a00: 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f if no channel */
4a10: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4a20: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
4a30: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
4a40: 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a ..return;. }.
4a50: 0a 20 20 20 20 2f 2a 20 53 74 6f 72 65 20 4f 52 . /* Store OR
4a60: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
4a70: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c of TCL_READABLE,
4a80: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e TCL_WRITABLE an
4a90: 64 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 20 d TCL_EXCEPTION
4aa0: 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d */. statePtr-
4ab0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 >watchMask = mas
4ac0: 6b 3b 0a 0a 20 20 20 20 2f 2a 20 50 72 6f 70 61 k;.. /* Propa
4ad0: 67 61 74 65 20 6d 61 73 6b 20 69 6e 66 6f 20 74 gate mask info t
4ae0: 6f 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c o parent channel
4af0: 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d */. parent =
4b00: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
4b10: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
4b20: 3e 73 65 6c 66 29 3b 0a 20 20 20 20 77 61 74 63 >self);. watc
4b30: 68 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e hProc = Tcl_Chan
4b40: 6e 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c nelWatchProc(Tcl
4b50: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
4b60: 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 parent));. wa
4b70: 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 tchProc(Tcl_GetC
4b80: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
4b90: 74 61 28 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b ta(parent), mask
4ba0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 );.. /* Remov
4bb0: 65 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 e pending timer
4bc0: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
4bd0: 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 Ptr->timer != (T
4be0: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
4bf0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 ULL) {..Tcl_Dele
4c00: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
4c10: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
4c20: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
4c30: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
4c40: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d ken) NULL;. }
4c50: 0a 0a 20 20 20 20 2f 2a 20 49 66 20 74 68 65 72 .. /* If ther
4c60: 65 20 69 73 20 64 61 74 61 20 70 65 6e 64 69 6e e is data pendin
4c70: 67 2c 20 73 65 74 20 6e 65 77 20 74 69 6d 65 72 g, set new timer
4c80: 20 74 6f 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 to call Tcl_Not
4c90: 69 66 79 43 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 ifyChannel */.
4ca0: 20 20 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 if ((mask & TC
4cb0: 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 L_READABLE) && (
4cc0: 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 Tcl_InputBuffere
4cd0: 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 d(statePtr->self
4ce0: 29 20 3e 20 30 29 29 20 7b 0a 09 73 74 61 74 65 ) > 0)) {..state
4cf0: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c Ptr->timer = Tcl
4d00: 5f 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 _CreateTimerHand
4d10: 6c 65 72 28 52 45 41 44 5f 44 45 4c 41 59 2c 20 ler(READ_DELAY,
4d20: 44 69 67 65 73 74 54 69 6d 65 72 48 61 6e 64 6c DigestTimerHandl
4d30: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
4d40: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
4d50: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
4d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4da0: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 47 65 74 . *. * DigestGet
4db0: 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a HandleProc --. *
4dc0: 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 . *.Called from
4dd0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 Tcl_GetChannelHa
4de0: 6e 64 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 ndle to retrieve
4df0: 20 4f 53 20 73 70 65 63 69 66 69 63 20 66 69 6c OS specific fil
4e00: 65 20 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f 6d e handle. *.from
4e10: 20 69 6e 73 69 64 65 20 74 68 69 73 20 63 68 61 inside this cha
4e20: 6e 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 nnel. Not used f
4e30: 6f 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f or transformatio
4e40: 6e 73 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ns?. *. * Return
4e50: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f 72 s:. *.TCL_OK for
4e60: 20 73 75 63 63 65 73 73 20 6f 72 20 54 43 4c 5f success or TCL_
4e70: 45 52 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 20 ERROR for error
4e80: 6f 72 20 69 66 20 6e 6f 74 20 73 75 70 70 6f 72 or if not suppor
4e90: 74 65 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 63 ted. If. *.direc
4ea0: 74 69 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 tion is TCL_READ
4eb0: 41 42 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 6c ABLE, sets handl
4ec0: 65 50 74 72 20 74 6f 20 74 68 65 20 68 61 6e 64 ePtr to the hand
4ed0: 6c 65 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 69 le used for. *.i
4ee0: 6e 70 75 74 2c 20 6f 72 20 69 66 20 54 43 4c 5f nput, or if TCL_
4ef0: 57 52 49 54 41 42 4c 45 20 73 65 74 73 20 74 6f WRITABLE sets to
4f00: 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 the handle used
4f10: 20 66 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a 0a for output.. *.
4f20: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4f30: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d . *.None. *. *--
4f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f80: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
4f90: 65 73 74 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 estGetHandleProc
4fa0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
4fb0: 6e 74 44 61 74 61 2c 20 69 6e 74 20 64 69 72 65 ntData, int dire
4fc0: 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 74 ction, ClientDat
4fd0: 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b 0a a *handlePtr) {.
4fe0: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
4ff0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 *statePtr = (Dig
5000: 65 73 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 estState *) clie
5010: 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ntData;. Tcl_
5020: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a Channel parent;.
5030: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
5040: 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 no channel */.
5050: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
5060: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
5070: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
5080: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5090: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 61 72 ;. }.. par
50a0: 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 ent = Tcl_GetSta
50b0: 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 ckedChannel(stat
50c0: 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 ePtr->self);.
50d0: 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 65 74 43 return Tcl_GetC
50e0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 70 61 72 hannelHandle(par
50f0: 65 6e 74 2c 20 64 69 72 65 63 74 69 6f 6e 2c 20 ent, direction,
5100: 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d 0a 0a 2f handlePtr);.}../
5110: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
5160: 20 44 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f DigestNotifyPro
5170: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 c --. *. *.Calle
5180: 64 20 62 79 20 54 63 6c 20 74 6f 20 69 6e 66 6f d by Tcl to info
5190: 72 6d 20 75 73 20 6f 66 20 61 63 74 69 76 69 74 rm us of activit
51a0: 79 20 6f 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 y on the underly
51b0: 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a ing channel.. *.
51c0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 55 * Returns:. *.U
51d0: 6e 63 68 61 6e 67 65 64 20 69 6e 74 65 72 65 73 nchanged interes
51e0: 74 4d 61 73 6b 20 77 68 69 63 68 20 69 73 20 61 tMask which is a
51f0: 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 n OR-ed combinat
5200: 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 ion of TCL_READA
5210: 42 4c 45 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 BLE or TCL_WRITA
5220: 42 4c 45 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 BLE. *. * Side e
5230: 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6e 63 65 ffects:. *.Cance
5240: 6c 73 20 61 6e 79 20 70 65 6e 64 69 6e 67 20 74 ls any pending t
5250: 69 6d 65 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d imer.. *. *-----
5260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52a0: 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 -. */.int Digest
52b0: 4e 6f 74 69 66 79 50 72 6f 63 28 43 6c 69 65 6e NotifyProc(Clien
52c0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
52d0: 2c 20 69 6e 74 20 69 6e 74 65 72 65 73 74 4d 61 , int interestMa
52e0: 73 6b 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 sk) {. Digest
52f0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
5300: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
5310: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
5320: 20 20 20 2f 2a 20 53 6b 69 70 20 74 69 6d 65 72 /* Skip timer
5330: 20 65 76 65 6e 74 20 61 73 20 72 65 64 75 6e 64 event as redund
5340: 61 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ant */. if (s
5350: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
5360: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
5370: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
5380: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
5390: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
53a0: 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e er);..statePtr->
53b0: 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d timer = (Tcl_Tim
53c0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 erToken) NULL;.
53d0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
53e0: 69 6e 74 65 72 65 73 74 4d 61 73 6b 3b 0a 7d 0a interestMask;.}.
53f0: 0a 2f 2a 0a 20 2a 0a 20 2a 20 43 68 61 6e 6e 65 ./*. *. * Channe
5400: 6c 20 74 79 70 65 20 73 74 72 75 63 74 75 72 65 l type structure
5410: 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20 definition for
5420: 64 69 67 65 73 74 20 74 72 61 6e 73 66 6f 72 6d digest transform
5430: 61 74 69 6f 6e 73 2e 0a 20 2a 0a 20 2a 2f 0a 73 ations.. *. */.s
5440: 74 61 74 69 63 20 63 6f 6e 73 74 20 54 63 6c 5f tatic const Tcl_
5450: 43 68 61 6e 6e 65 6c 54 79 70 65 20 64 69 67 65 ChannelType dige
5460: 73 74 43 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 stChannelType =
5470: 7b 0a 20 20 20 20 22 64 69 67 65 73 74 22 2c 09 {. "digest",.
5480: 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a ../* Type name *
5490: 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 /. TCL_CHANNE
54a0: 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 L_VERSION_5,./*
54b0: 76 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 v5 channel */.
54c0: 20 20 44 69 67 65 73 74 43 6c 6f 73 65 50 72 6f DigestClosePro
54d0: 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f c,../* Close pro
54e0: 63 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 49 c */. DigestI
54f0: 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 6e nputProc,../* In
5500: 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 put proc */.
5510: 44 69 67 65 73 74 4f 75 74 70 75 74 50 72 6f 63 DigestOutputProc
5520: 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f ,../* Output pro
5530: 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 c */. NULL,..
5540: 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f ./* Seek proc */
5550: 0a 20 20 20 20 44 69 67 65 73 74 53 65 74 4f 70 . DigestSetOp
5560: 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 53 65 74 tionProc,./* Set
5570: 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a option proc */.
5580: 20 20 20 20 44 69 67 65 73 74 47 65 74 4f 70 74 DigestGetOpt
5590: 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 ionProc,./* Get
55a0: 6f 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 option proc */.
55b0: 20 20 20 44 69 67 65 73 74 57 61 74 63 68 50 72 DigestWatchPr
55c0: 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69 oc,../* Initiali
55d0: 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20 ze notifier */.
55e0: 20 20 20 44 69 67 65 73 74 47 65 74 48 61 6e 64 DigestGetHand
55f0: 6c 65 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 4f leProc,./* Get O
5600: 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 S handles out of
5610: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5620: 44 69 67 65 73 74 43 6c 6f 73 65 32 50 72 6f 63 DigestClose2Proc
5630: 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 ,../* close2proc
5640: 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 42 6c */. DigestBl
5650: 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a 20 ockModeProc,./*
5660: 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e Set blocking/non
5670: 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a blocking mode*/.
5680: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 NULL,.../* F
5690: 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 lush proc */.
56a0: 20 44 69 67 65 73 74 4e 6f 74 69 66 79 50 72 6f DigestNotifyPro
56b0: 63 2c 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 20 c,../* Handling
56c0: 6f 66 20 65 76 65 6e 74 73 20 62 75 62 62 6c 69 of events bubbli
56d0: 6e 67 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 4c ng up */. NUL
56e0: 4c 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 65 65 L,.../* Wide see
56f0: 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 k proc */. NU
5700: 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 20 LL,.../* Thread
5710: 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e 55 action */. NU
5720: 4c 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 65 LL.../* Truncate
5730: 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d */.};../*. *---
5740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5780: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
5790: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 20 2d ChannelHandler -
57a0: 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 61 -. *. *.Create a
57b0: 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c stacked channel
57c0: 20 66 6f 72 20 61 20 6d 65 73 73 61 67 65 20 64 for a message d
57d0: 69 67 65 73 74 20 74 72 61 6e 73 66 6f 72 6d 61 igest transforma
57e0: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 tion.. *. * Retu
57f0: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
5800: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
5810: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
5820: 20 2a 09 41 64 64 73 20 74 72 61 6e 73 66 6f 72 *.Adds transfor
5830: 6d 20 74 6f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 m to channel and
5840: 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 sets result to
5850: 63 68 61 6e 6e 65 6c 20 69 64 20 6f 72 20 65 72 channel id or er
5860: 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a ror message.. *.
5870: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
5880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58b0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
58c0: 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 43 68 tic int DigestCh
58d0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 54 63 6c annelHandler(Tcl
58e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
58f0: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 68 61 const char *cha
5900: 6e 6e 65 6c 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 nnel, Tcl_Obj *d
5910: 69 67 65 73 74 4f 62 6a 2c 0a 09 54 63 6c 5f 4f igestObj,..Tcl_O
5920: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 69 bj *cipherObj, i
5930: 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 6c 5f 4f nt format, Tcl_O
5940: 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f bj *keyObj, Tcl_
5950: 4f 62 6a 20 2a 6d 61 63 4f 62 6a 29 20 7b 0a 20 Obj *macObj) {.
5960: 20 20 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 int mode; /*
5970: 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f OR-ed combinatio
5980: 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c n of TCL_READABL
5990: 45 20 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 E and TCL_WRITAB
59a0: 4c 45 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 43 68 LE */. Tcl_Ch
59b0: 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 annel chan;.
59c0: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
59d0: 74 65 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 tePtr;.. dpri
59e0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
59f0: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
5a00: 61 72 67 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 args */. if (
5a10: 63 68 61 6e 6e 65 6c 20 3d 3d 20 28 63 6f 6e 73 channel == (cons
5a20: 74 20 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20 t char *) NULL)
5a30: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
5a40: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
5a50: 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 49 /* Get channel I
5a60: 64 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 d */. chan =
5a70: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
5a80: 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 2c 20 nterp, channel,
5a90: 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 &mode);. if (
5aa0: 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 chan == (Tcl_Cha
5ab0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
5ac0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5ad0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d . }.. /* M
5ae0: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
5af0: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
5b00: 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 st channel */.
5b10: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
5b20: 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 TopChannel(chan)
5b30: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 69 67 ;.. /* Config
5b40: 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ure channel */.
5b50: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 Tcl_SetChanne
5b60: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
5b70: 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 chan, "-translat
5b80: 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b ion", "binary");
5b90: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
5ba0: 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a ChannelBufferSiz
5bb0: 65 28 63 68 61 6e 29 20 3c 20 45 56 50 5f 4d 41 e(chan) < EVP_MA
5bc0: 58 5f 4d 44 5f 53 49 5a 45 20 2a 20 32 29 20 7b X_MD_SIZE * 2) {
5bd0: 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c ..Tcl_SetChannel
5be0: 42 75 66 66 65 72 53 69 7a 65 28 63 68 61 6e 2c BufferSize(chan,
5bf0: 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a 45 EVP_MAX_MD_SIZE
5c00: 20 2a 20 32 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 * 2);. }..
5c10: 20 20 2f 2a 20 43 72 65 61 74 65 20 73 74 61 74 /* Create stat
5c20: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
5c30: 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 74 61 */. if ((sta
5c40: 74 65 50 74 72 20 3d 20 44 69 67 65 73 74 53 74 tePtr = DigestSt
5c50: 61 74 65 4e 65 77 28 69 6e 74 65 72 70 2c 20 66 ateNew(interp, f
5c60: 6f 72 6d 61 74 29 29 20 3d 3d 20 4e 55 4c 4c 29 ormat)) == NULL)
5c70: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
5c80: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 sult(interp, "Me
5c90: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
5ca0: 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 error", (char *)
5cb0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
5cc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5cd0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 . statePtr->s
5ce0: 65 6c 66 20 3d 20 63 68 61 6e 3b 0a 20 20 20 20 elf = chan;.
5cf0: 73 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 20 3d statePtr->mode =
5d00: 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 2f 2a 20 49 mode;.. /* I
5d10: 6e 69 74 69 61 6c 69 7a 65 20 68 61 73 68 20 66 nitialize hash f
5d20: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
5d30: 66 20 28 44 69 67 65 73 74 49 6e 69 74 69 61 6c f (DigestInitial
5d40: 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 ize(interp, stat
5d50: 65 50 74 72 2c 20 64 69 67 65 73 74 4f 62 6a 2c ePtr, digestObj,
5d60: 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f cipherObj, keyO
5d70: 62 6a 2c 20 6d 61 63 4f 62 6a 29 20 21 3d 20 54 bj, macObj) != T
5d80: 43 4c 5f 4f 4b 29 20 7b 0a 09 44 69 67 65 73 74 CL_OK) {..Digest
5d90: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
5da0: 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c tr);..return TCL
5db0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5dc0: 20 20 20 2f 2a 20 53 74 61 63 6b 20 63 68 61 6e /* Stack chan
5dd0: 6e 65 6c 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 nel */. state
5de0: 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f Ptr->self = Tcl_
5df0: 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 StackChannel(int
5e00: 65 72 70 2c 20 26 64 69 67 65 73 74 43 68 61 6e erp, &digestChan
5e10: 6e 65 6c 54 79 70 65 2c 20 28 43 6c 69 65 6e 74 nelType, (Client
5e20: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 Data) statePtr,
5e30: 6d 6f 64 65 2c 20 63 68 61 6e 29 3b 0a 20 20 20 mode, chan);.
5e40: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
5e50: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
5e60: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 44 69 nel) NULL) {..Di
5e70: 67 65 73 74 53 74 61 74 65 46 72 65 65 28 73 74 gestStateFree(st
5e80: 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e atePtr);..return
5e90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5ea0: 7d 0a 0a 20 20 20 20 2f 2a 20 53 65 74 20 72 65 }.. /* Set re
5eb0: 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 sult to channel
5ec0: 49 64 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 Id */. Tcl_Se
5ed0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
5ee0: 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 (char *) Tcl_Get
5ef0: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
5f00: 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 ), TCL_VOLATILE)
5f10: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
5f20: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
5f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f70: 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 73 74 61 63 ---. *. * Unstac
5f80: 6b 20 43 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a k Channel --. *.
5f90: 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e *.This function
5fa0: 20 72 65 6d 6f 76 65 73 20 74 68 65 20 73 74 61 removes the sta
5fb0: 63 6b 65 64 20 63 68 61 6e 6e 65 6c 20 66 72 6f cked channel fro
5fc0: 6d 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 m the top of the
5fd0: 0a 20 2a 09 63 68 61 6e 6e 65 6c 20 73 74 61 63 . *.channel stac
5fe0: 6b 20 69 66 20 69 74 20 69 73 20 61 20 64 69 67 k if it is a dig
5ff0: 65 73 74 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a est channel.. *.
6000: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
6010: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
6020: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
6030: 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f 76 65 fects:. *.Remove
6040: 73 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f 6d s transform from
6050: 20 63 68 61 6e 6e 65 6c 20 6f 72 20 73 65 74 73 channel or sets
6060: 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 result to error
6070: 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d message.. *. *-
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60c0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
60d0: 20 69 6e 74 20 44 69 67 65 73 74 55 6e 73 74 61 int DigestUnsta
60e0: 63 6b 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 ckObjCmd(ClientD
60f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
6100: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
6110: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
6120: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
6130: 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 v[]) {. Tcl_C
6140: 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 hannel chan;.
6150: 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 int mode; /* OR
6160: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
6170: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 of TCL_READABLE
6180: 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 and TCL_WRITABLE
6190: 20 20 2a 2f 0a 0a 20 20 20 20 64 70 72 69 6e 74 */.. dprint
61a0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
61b0: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
61c0: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 g count */. i
61d0: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a f (objc != 2) {.
61e0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
61f0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
6200: 76 2c 20 22 63 68 61 6e 6e 65 6c 49 64 22 29 3b v, "channelId");
6210: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6220: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
6230: 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f * Get channel */
6240: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
6250: 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 GetChannel(inter
6260: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
6270: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c FromObj(objv[1],
6280: 20 4e 55 4c 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a NULL), &mode);.
6290: 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 if (chan ==
62a0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
62b0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
62c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
62d0: 20 20 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 /* Make sure
62e0: 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 to operate on t
62f0: 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e he topmost chann
6300: 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d el */. chan =
6310: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
6320: 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f el(chan);.. /
6330: 2a 20 43 68 65 63 6b 20 69 66 20 64 69 67 65 73 * Check if diges
6340: 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 t channel */.
6350: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
6360: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
6370: 20 26 64 69 67 65 73 74 43 68 61 6e 6e 65 6c 54 &digestChannelT
6380: 79 70 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ype) {..Tcl_Appe
6390: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
63a0: 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 "bad channel \"
63b0: 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 ", Tcl_GetChanne
63c0: 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 20 lName(chan),..
63d0: 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 64 69 67 "\": not a dig
63e0: 65 73 74 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 est channel", NU
63f0: 4c 4c 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 LL);..Tcl_SetErr
6400: 6f 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 orCode(interp, "
6410: 54 4c 53 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c TLS", "UNSTACK",
6420: 20 22 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 "CHANNEL", "INV
6430: 41 4c 49 44 22 2c 20 28 63 68 61 72 20 2a 29 20 ALID", (char *)
6440: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
6450: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
6460: 0a 20 20 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e . /* Pop tran
6470: 73 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e sform from chann
6480: 65 6c 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e el */. return
6490: 20 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e Tcl_UnstackChan
64a0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e nel(interp, chan
64b0: 29 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 );. .clientDa
64c0: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b ta = clientData;
64d0: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
64e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
64f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6500: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6510: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
6520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6560: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
6570: 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 20 2d InstanceObjCmd -
6580: 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 -. *. *.Handler
6590: 66 6f 72 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 for digest comma
65a0: 6e 64 20 69 6e 73 74 61 6e 63 65 73 2e 20 55 73 nd instances. Us
65b0: 65 64 20 74 6f 20 61 64 64 20 64 61 74 61 20 74 ed to add data t
65c0: 6f 20 68 61 73 68 0a 20 2a 09 66 75 6e 63 74 69 o hash. *.functi
65d0: 6f 6e 20 6f 72 20 72 65 74 72 69 65 76 65 20 6d on or retrieve m
65e0: 65 73 73 61 67 65 20 64 69 67 65 73 74 2e 0a 20 essage digest..
65f0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
6600: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
6610: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
6620: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
6630: 20 64 61 74 61 20 74 6f 20 68 61 73 68 20 6f 72 data to hash or
6640: 20 72 65 74 75 72 6e 73 20 6d 65 73 73 61 67 65 returns message
6650: 20 64 69 67 65 73 74 0a 20 2a 0a 20 2a 2d 2d 2d digest. *. *---
6660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66a0: 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 . */.int DigestI
66b0: 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 28 43 6c nstanceObjCmd(Cl
66c0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
66d0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
66e0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
66f0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
6700: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
6710: 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 DigestState *sta
6720: 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 74 53 tePtr = (DigestS
6730: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
6740: 74 61 3b 0a 20 20 20 20 69 6e 74 20 66 6e 2c 20 ta;. int fn,
6750: 64 61 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 data_len = 0;.
6760: 20 20 63 68 61 72 20 2a 64 61 74 61 20 3d 20 4e char *data = N
6770: 55 4c 4c 3b 0a 20 20 20 20 73 74 61 74 69 63 20 ULL;. static
6780: 63 6f 6e 73 74 20 63 68 61 72 20 2a 69 6e 73 74 const char *inst
6790: 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 3d 20 7b 20 ance_fns [] = {
67a0: 22 66 69 6e 61 6c 69 7a 65 22 2c 20 22 75 70 64 "finalize", "upd
67b0: 61 74 65 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 0a 20 ate", NULL };..
67c0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
67d0: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 ed");.. /* Va
67e0: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
67f0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
6800: 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 < 2 || objc > 3
6810: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
6820: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
6830: 20 6f 62 6a 76 2c 20 22 66 75 6e 63 74 69 6f 6e objv, "function
6840: 20 3f 64 61 74 61 3f 22 29 3b 0a 09 72 65 74 75 ?data?");..retu
6850: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6860: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
6870: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 function */.
6880: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 if (Tcl_GetIndex
6890: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
68a0: 6f 62 6a 76 5b 31 5d 2c 20 69 6e 73 74 61 6e 63 objv[1], instanc
68b0: 65 5f 66 6e 73 2c 20 22 66 75 6e 63 74 69 6f 6e e_fns, "function
68c0: 22 2c 20 30 2c 20 26 66 6e 29 20 21 3d 20 54 43 ", 0, &fn) != TC
68d0: 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 L_OK) {..return
68e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
68f0: 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 66 75 6e 63 .. /* Do func
6900: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 tion */. if (
6910: 66 6e 29 20 7b 0a 09 2f 2a 20 47 65 74 20 64 61 fn) {../* Get da
6920: 74 61 20 6f 72 20 72 65 74 75 72 6e 20 65 72 72 ta or return err
6930: 6f 72 20 69 66 20 6e 6f 6e 65 20 2a 2f 0a 09 69 or if none */..i
6940: 66 20 28 6f 62 6a 63 20 3d 3d 20 33 29 20 7b 0a f (objc == 3) {.
6950: 09 20 20 20 20 64 61 74 61 20 3d 20 54 63 6c 5f . data = Tcl_
6960: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
6970: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 26 64 61 Obj(objv[2], &da
6980: 74 61 5f 6c 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 ta_len);..} else
6990: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e {.. Tcl_Wron
69a0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
69b0: 20 31 2c 20 6f 62 6a 76 2c 20 22 75 70 64 61 74 1, objv, "updat
69c0: 65 20 64 61 74 61 22 29 3b 0a 09 20 20 20 20 72 e data");.. r
69d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
69e0: 0a 09 7d 0a 0a 09 2f 2a 20 55 70 64 61 74 65 20 ..}.../* Update
69f0: 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a 2f hash function */
6a00: 0a 09 69 66 20 28 44 69 67 65 73 74 55 70 64 61 ..if (DigestUpda
6a10: 74 65 28 73 74 61 74 65 50 74 72 2c 20 64 61 74 te(statePtr, dat
6a20: 61 2c 20 28 73 69 7a 65 5f 74 29 20 64 61 74 61 a, (size_t) data
6a30: 5f 6c 65 6e 2c 20 31 29 20 21 3d 20 54 43 4c 5f _len, 1) != TCL_
6a40: 4f 4b 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 OK) {.. retur
6a50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
6a60: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f . } else {../
6a70: 2a 20 46 69 6e 61 6c 69 7a 65 20 68 61 73 68 20 * Finalize hash
6a80: 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 63 61 6c function and cal
6a90: 63 75 6c 61 74 65 20 6d 65 73 73 61 67 65 20 64 culate message d
6aa0: 69 67 65 73 74 20 2a 2f 0a 09 69 66 20 28 44 69 igest */..if (Di
6ab0: 67 65 73 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 gestFinalize(int
6ac0: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 4e erp, statePtr, N
6ad0: 55 4c 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ULL) != TCL_OK)
6ae0: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 {.. return TC
6af0: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 54 63 L_ERROR;..}...Tc
6b00: 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 46 l_DeleteCommandF
6b10: 72 6f 6d 54 6f 6b 65 6e 28 69 6e 74 65 72 70 2c romToken(interp,
6b20: 20 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e statePtr->token
6b30: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
6b40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
6b50: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
6b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b90: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 -------. *. * Di
6ba0: 67 65 73 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 gestCommandDelet
6bb0: 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 eHandler --. *.
6bc0: 2a 09 20 43 61 6c 6c 62 61 63 6b 20 74 6f 20 63 *. Callback to c
6bd0: 6c 65 61 6e 2d 75 70 20 77 68 65 6e 20 64 69 67 lean-up when dig
6be0: 65 73 74 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d est instance com
6bf0: 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 65 64 2e mand is deleted.
6c00: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
6c10: 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a *.Nothing. *. *
6c20: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
6c30: 2a 09 44 65 73 74 72 6f 79 73 20 73 74 61 74 65 *.Destroys state
6c40: 20 69 6e 66 6f 20 73 74 72 75 63 74 75 72 65 0a info structure.
6c50: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c90: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 --------. */.voi
6ca0: 64 20 44 69 67 65 73 74 43 6f 6d 6d 61 6e 64 44 d DigestCommandD
6cb0: 65 6c 65 74 65 48 61 6e 64 6c 65 72 28 43 6c 69 eleteHandler(Cli
6cc0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
6cd0: 74 61 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 ta) {. Digest
6ce0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
6cf0: 3d 20 28 44 69 67 65 73 74 53 74 61 74 65 20 2a = (DigestState *
6d00: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
6d10: 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a /* Clean-up *
6d20: 2f 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 74 /. DigestStat
6d30: 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b eFree(statePtr);
6d40: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
6d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
6d90: 20 2a 20 44 69 67 65 73 74 43 6f 6d 6d 61 6e 64 * DigestCommand
6da0: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
6db0: 09 20 43 72 65 61 74 65 20 63 6f 6d 6d 61 6e 64 . Create command
6dc0: 20 74 6f 20 61 6c 6c 6f 77 20 75 73 65 72 20 74 to allow user t
6dd0: 6f 20 61 64 64 20 64 61 74 61 20 74 6f 20 68 61 o add data to ha
6de0: 73 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a sh function.. *.
6df0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
6e00: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
6e10: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
6e20: 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 fects:. *.Create
6e30: 73 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 65 72 72 s command or err
6e40: 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a or message. *. *
6e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e90: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 ---. */.int Dige
6ea0: 73 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 stCommandHandler
6eb0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
6ec0: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d erp, Tcl_Obj *cm
6ed0: 64 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 dObj, Tcl_Obj *d
6ee0: 69 67 65 73 74 4f 62 6a 2c 0a 09 54 63 6c 5f 4f igestObj,..Tcl_O
6ef0: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 69 bj *cipherObj, i
6f00: 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 6c 5f 4f nt format, Tcl_O
6f10: 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f bj *keyObj, Tcl_
6f20: 4f 62 6a 20 2a 6d 61 63 4f 62 6a 29 20 7b 0a 20 Obj *macObj) {.
6f30: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a DigestState *
6f40: 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 63 68 statePtr;. ch
6f50: 61 72 20 2a 63 6d 64 4e 61 6d 65 20 3d 20 54 63 ar *cmdName = Tc
6f60: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
6f70: 62 6a 28 63 6d 64 4f 62 6a 2c 20 4e 55 4c 4c 29 bj(cmdObj, NULL)
6f80: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
6f90: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
6fa0: 2a 20 43 72 65 61 74 65 20 73 74 61 74 65 20 64 * Create state d
6fb0: 61 74 61 20 73 74 72 75 63 74 75 72 65 20 2a 2f ata structure */
6fc0: 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 65 50 . if ((stateP
6fd0: 74 72 20 3d 20 44 69 67 65 73 74 53 74 61 74 65 tr = DigestState
6fe0: 4e 65 77 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d New(interp, form
6ff0: 61 74 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a at)) == NULL) {.
7000: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
7010: 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 t(interp, "Memor
7020: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 y allocation err
7030: 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 or", (char *) NU
7040: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
7050: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
7060: 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 /* Initialize
7070: 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a hash function *
7080: 2f 0a 20 20 20 20 69 66 20 28 44 69 67 65 73 74 /. if (Digest
7090: 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 Initialize(inter
70a0: 70 2c 20 73 74 61 74 65 50 74 72 2c 20 64 69 67 p, statePtr, dig
70b0: 65 73 74 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 estObj, cipherOb
70c0: 6a 2c 20 6b 65 79 4f 62 6a 2c 20 6d 61 63 4f 62 j, keyObj, macOb
70d0: 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a j) != TCL_OK) {.
70e0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
70f0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
7100: 20 43 72 65 61 74 65 20 69 6e 73 74 61 6e 63 65 Create instance
7110: 20 63 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 20 20 command */.
7120: 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 statePtr->token
7130: 3d 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 = Tcl_CreateObjC
7140: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 63 ommand(interp, c
7150: 6d 64 4e 61 6d 65 2c 20 44 69 67 65 73 74 49 6e mdName, DigestIn
7160: 73 74 61 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 28 stanceObjCmd,..(
7170: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
7180: 65 50 74 72 2c 20 44 69 67 65 73 74 43 6f 6d 6d ePtr, DigestComm
7190: 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 andDeleteHandler
71a0: 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 );. if (state
71b0: 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 3d 20 4e 55 Ptr->token == NU
71c0: 4c 4c 29 20 7b 0a 09 44 69 67 65 73 74 53 74 61 LL) {..DigestSta
71d0: 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 teFree(statePtr)
71e0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
71f0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7200: 2f 2a 20 52 65 74 75 72 6e 20 63 6f 6d 6d 61 6e /* Return comman
7210: 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 63 d name */. Tc
7220: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
7230: 6e 74 65 72 70 2c 20 63 6d 64 4f 62 6a 29 3b 0a nterp, cmdObj);.
7240: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
7250: 4b 3b 0a 7d 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a K;.}.../********
7260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
72a0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
72b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72e0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 ------. *. * Dig
72f0: 65 73 74 44 61 74 61 48 61 6e 64 6c 65 72 20 2d estDataHandler -
7300: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 6d -. *. *.Return m
7310: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 66 6f essage digest fo
7320: 72 20 64 61 74 61 20 75 73 69 6e 67 20 75 73 65 r data using use
7330: 72 20 73 70 65 63 69 66 69 65 64 20 68 61 73 68 r specified hash
7340: 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a function.. *. *
7350: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
7360: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 _OK or TCL_ERROR
7370: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
7380: 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 cts:. *.Sets res
7390: 75 6c 74 20 74 6f 20 6d 65 73 73 61 67 65 20 64 ult to message d
73a0: 69 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 6d igest or error m
73b0: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
73c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7400: 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 44 61 */.int DigestDa
7410: 74 61 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e taHandler(Tcl_In
7420: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 terp *interp, Tc
7430: 6c 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 l_Obj *dataObj,
7440: 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f Tcl_Obj *digestO
7450: 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 bj,..Tcl_Obj *ci
7460: 70 68 65 72 4f 62 6a 2c 20 69 6e 74 20 66 6f 72 pherObj, int for
7470: 6d 61 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 mat, Tcl_Obj *ke
7480: 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6d yObj, Tcl_Obj *m
7490: 61 63 4f 62 6a 29 20 7b 0a 20 20 20 20 63 68 61 acObj) {. cha
74a0: 72 20 2a 64 61 74 61 3b 0a 20 20 20 20 69 6e 74 r *data;. int
74b0: 20 64 61 74 61 5f 6c 65 6e 3b 0a 20 20 20 20 44 data_len;. D
74c0: 69 67 65 73 74 53 74 61 74 65 20 2a 73 74 61 74 igestState *stat
74d0: 65 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e ePtr;.. dprin
74e0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
74f0: 20 20 20 2f 2a 20 47 65 74 20 64 61 74 61 20 2a /* Get data *
7500: 2f 0a 20 20 20 20 64 61 74 61 20 3d 20 54 63 6c /. data = Tcl
7510: 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f _GetByteArrayFro
7520: 6d 4f 62 6a 28 64 61 74 61 4f 62 6a 2c 20 26 64 mObj(dataObj, &d
7530: 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 69 66 ata_len);. if
7540: 20 28 64 61 74 61 20 3d 3d 20 4e 55 4c 4c 29 20 (data == NULL)
7550: 7b 0a 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 {..Tcl_SetResult
7560: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 64 61 74 (interp, "No dat
7570: 61 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 a", NULL);..retu
7580: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7590: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 }.. /* Crea
75a0: 74 65 20 73 74 61 74 65 20 64 61 74 61 20 73 74 te state data st
75b0: 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 69 ructure */. i
75c0: 66 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 44 f ((statePtr = D
75d0: 69 67 65 73 74 53 74 61 74 65 4e 65 77 28 69 6e igestStateNew(in
75e0: 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 29 20 3d terp, format)) =
75f0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
7600: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7610: 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f rp, "Memory allo
7620: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 cation error", (
7630: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
7640: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7650: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
7660: 43 61 6c 63 20 44 69 67 65 73 74 20 2a 2f 0a 20 Calc Digest */.
7670: 20 20 20 69 66 20 28 44 69 67 65 73 74 49 6e 69 if (DigestIni
7680: 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 tialize(interp,
7690: 73 74 61 74 65 50 74 72 2c 20 64 69 67 65 73 74 statePtr, digest
76a0: 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 Obj, cipherObj,
76b0: 6b 65 79 4f 62 6a 2c 20 6d 61 63 4f 62 6a 29 20 keyObj, macObj)
76c0: 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 44 69 != TCL_OK ||..Di
76d0: 67 65 73 74 55 70 64 61 74 65 28 73 74 61 74 65 gestUpdate(state
76e0: 50 74 72 2c 20 64 61 74 61 2c 20 28 73 69 7a 65 Ptr, data, (size
76f0: 5f 74 29 20 64 61 74 61 5f 6c 65 6e 2c 20 31 29 _t) data_len, 1)
7700: 20 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 44 != TCL_OK ||..D
7710: 69 67 65 73 74 46 69 6e 61 6c 69 7a 65 28 69 6e igestFinalize(in
7720: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 terp, statePtr,
7730: 4e 55 4c 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 NULL) != TCL_OK)
7740: 20 7b 0a 09 44 69 67 65 73 74 53 74 61 74 65 46 {..DigestStateF
7750: 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 ree(statePtr);..
7760: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7770: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
7780: 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 Clean-up */.
7790: 44 69 67 65 73 74 53 74 61 74 65 46 72 65 65 28 DigestStateFree(
77a0: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 72 statePtr);. r
77b0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
77c0: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
77d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
77e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
77f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7800: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
7810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7850: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 46 69 6c . *. * DigestFil
7860: 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 eHandler --. *.
7870: 2a 09 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 *.Return message
7880: 20 64 69 67 65 73 74 20 66 6f 72 20 66 69 6c 65 digest for file
7890: 20 75 73 69 6e 67 20 75 73 65 72 20 73 70 65 63 using user spec
78a0: 69 66 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 ified hash funct
78b0: 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ion.. *. * Retur
78c0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
78d0: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
78e0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
78f0: 2a 09 52 65 73 75 6c 74 20 69 73 20 6d 65 73 73 *.Result is mess
7900: 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 65 72 age digest or er
7910: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 ror message. *.
7920: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
7930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7960: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 ----. */.int Dig
7970: 65 73 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 54 estFileHandler(T
7980: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
7990: 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 p, Tcl_Obj *inFi
79a0: 6c 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a leObj, Tcl_Obj *
79b0: 64 69 67 65 73 74 4f 62 6a 2c 0a 09 54 63 6c 5f digestObj,..Tcl_
79c0: 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 Obj *cipherObj,
79d0: 69 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 6c 5f int format, Tcl_
79e0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
79f0: 5f 4f 62 6a 20 2a 6d 61 63 4f 62 6a 29 20 7b 0a _Obj *macObj) {.
7a00: 20 20 20 20 44 69 67 65 73 74 53 74 61 74 65 20 DigestState
7a10: 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 54 *statePtr;. T
7a20: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 20 cl_Channel chan
7a30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 = NULL;. unsi
7a40: 67 6e 65 64 20 63 68 61 72 20 62 75 66 5b 42 55 gned char buf[BU
7a50: 46 46 45 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 20 FFER_SIZE];.
7a60: 69 6e 74 20 72 65 73 20 3d 20 54 43 4c 5f 4f 4b int res = TCL_OK
7a70: 2c 20 6c 65 6e 3b 0a 0a 20 20 20 20 64 70 72 69 , len;.. dpri
7a80: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
7a90: 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 73 74 /* Create st
7aa0: 61 74 65 20 64 61 74 61 20 73 74 72 75 63 74 75 ate data structu
7ab0: 72 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 re */. if ((s
7ac0: 74 61 74 65 50 74 72 20 3d 20 44 69 67 65 73 74 tatePtr = Digest
7ad0: 53 74 61 74 65 4e 65 77 28 69 6e 74 65 72 70 2c StateNew(interp,
7ae0: 20 66 6f 72 6d 61 74 29 29 20 3d 3d 20 4e 55 4c format)) == NUL
7af0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
7b00: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
7b10: 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f Memory allocatio
7b20: 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 n error", (char
7b30: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
7b40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7b50: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 }.. /* Open
7b60: 66 69 6c 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a file channel */.
7b70: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 46 chan = Tcl_F
7b80: 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c SOpenFileChannel
7b90: 28 69 6e 74 65 72 70 2c 20 69 6e 46 69 6c 65 4f (interp, inFileO
7ba0: 62 6a 2c 20 22 72 62 22 2c 20 30 34 34 34 29 3b bj, "rb", 0444);
7bb0: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d . if (chan ==
7bc0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
7bd0: 55 4c 4c 29 20 7b 0a 09 44 69 67 65 73 74 53 74 ULL) {..DigestSt
7be0: 61 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 ateFree(statePtr
7bf0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
7c00: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
7c10: 20 2f 2a 20 43 6f 6e 66 69 67 75 72 65 20 63 68 /* Configure ch
7c20: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
7c30: 28 28 72 65 73 20 3d 20 54 63 6c 5f 53 65 74 43 ((res = Tcl_SetC
7c40: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
7c50: 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 erp, chan, "-tra
7c60: 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 nslation", "bina
7c70: 72 79 22 29 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 ry")) != TCL_OK)
7c80: 20 7b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 {..goto done;.
7c90: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 }. Tcl_Set
7ca0: 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a ChannelBufferSiz
7cb0: 65 28 63 68 61 6e 2c 20 42 55 46 46 45 52 5f 53 e(chan, BUFFER_S
7cc0: 49 5a 45 29 3b 0a 0a 20 20 20 20 2f 2a 20 49 6e IZE);.. /* In
7cd0: 69 74 69 61 6c 69 7a 65 20 68 61 73 68 20 66 75 itialize hash fu
7ce0: 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 nction */. if
7cf0: 20 28 28 72 65 73 20 3d 20 44 69 67 65 73 74 49 ((res = DigestI
7d00: 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 nitialize(interp
7d10: 2c 20 73 74 61 74 65 50 74 72 2c 20 64 69 67 65 , statePtr, dige
7d20: 73 74 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a stObj, cipherObj
7d30: 2c 20 6b 65 79 4f 62 6a 2c 20 6d 61 63 4f 62 6a , keyObj, macObj
7d40: 29 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a )) != TCL_OK) {.
7d50: 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 .goto done;.
7d60: 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 61 64 20 66 }.. /* Read f
7d70: 69 6c 65 20 64 61 74 61 20 61 6e 64 20 75 70 64 ile data and upd
7d80: 61 74 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ate hash functio
7d90: 6e 20 2a 2f 0a 20 20 20 20 77 68 69 6c 65 20 28 n */. while (
7da0: 21 54 63 6c 5f 45 6f 66 28 63 68 61 6e 29 29 20 !Tcl_Eof(chan))
7db0: 7b 0a 09 6c 65 6e 20 3d 20 54 63 6c 5f 52 65 61 {..len = Tcl_Rea
7dc0: 64 52 61 77 28 63 68 61 6e 2c 20 28 63 68 61 72 dRaw(chan, (char
7dd0: 20 2a 29 20 62 75 66 2c 20 42 55 46 46 45 52 5f *) buf, BUFFER_
7de0: 53 49 5a 45 29 3b 0a 09 69 66 20 28 6c 65 6e 20 SIZE);..if (len
7df0: 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 28 > 0) {.. if (
7e00: 28 72 65 73 20 3d 20 44 69 67 65 73 74 55 70 64 (res = DigestUpd
7e10: 61 74 65 28 73 74 61 74 65 50 74 72 2c 20 26 62 ate(statePtr, &b
7e20: 75 66 5b 30 5d 2c 20 28 73 69 7a 65 5f 74 29 20 uf[0], (size_t)
7e30: 6c 65 6e 2c 20 31 29 29 20 21 3d 20 54 43 4c 5f len, 1)) != TCL_
7e40: 4f 4b 29 20 7b 0a 09 09 67 6f 74 6f 20 64 6f 6e OK) {...goto don
7e50: 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 e;.. }..}.
7e60: 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c }.. /* Final
7e70: 69 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f ize hash functio
7e80: 6e 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 n and calculate
7e90: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a message digest *
7ea0: 2f 0a 20 20 20 20 72 65 73 20 3d 20 44 69 67 65 /. res = Dige
7eb0: 73 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 stFinalize(inter
7ec0: 70 2c 20 73 74 61 74 65 50 74 72 2c 20 4e 55 4c p, statePtr, NUL
7ed0: 4c 29 3b 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f L);..done:. /
7ee0: 2a 20 43 6c 6f 73 65 20 63 68 61 6e 6e 65 6c 20 * Close channel
7ef0: 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 43 */. if (Tcl_C
7f00: 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 63 68 61 lose(interp, cha
7f10: 6e 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 n) == TCL_ERROR)
7f20: 20 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 {..res = TCL_ER
7f30: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7f40: 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 /* Clean-up */.
7f50: 20 20 20 44 69 67 65 73 74 53 74 61 74 65 46 72 DigestStateFr
7f60: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 ee(statePtr);.
7f70: 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a return res;.}.
7f80: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
7f90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7fa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7fb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7fc0: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
7fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8010: 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4d 61 69 . *. * DigestMai
8020: 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 n --. *. *.Retur
8030: 6e 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 n message digest
8040: 20 6f 72 20 4d 65 73 73 61 67 65 20 41 75 74 68 or Message Auth
8050: 65 6e 74 69 63 61 74 69 6f 6e 20 43 6f 64 65 20 entication Code
8060: 28 4d 41 43 29 20 6f 66 0a 20 2a 09 64 61 74 61 (MAC) of. *.data
8070: 20 75 73 69 6e 67 20 75 73 65 72 20 73 70 65 63 using user spec
8080: 69 66 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 ified hash funct
8090: 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ion.. *. * Retur
80a0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
80b0: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
80c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
80d0: 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f *.Sets result to
80e0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
80f0: 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 or error message
8100: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
8110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
8150: 61 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 4d atic int DigestM
8160: 61 69 6e 28 69 6e 74 20 74 79 70 65 2c 20 54 63 ain(int type, Tc
8170: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
8180: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
8190: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
81a0: 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 69 64 78 ]) {. int idx
81b0: 2c 20 73 74 61 72 74 20 3d 20 31 2c 20 66 6f 72 , start = 1, for
81c0: 6d 61 74 20 3d 20 48 45 58 5f 46 4f 52 4d 41 54 mat = HEX_FORMAT
81d0: 2c 20 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a , res = TCL_OK;.
81e0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 Tcl_Obj *cip
81f0: 68 65 72 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a herObj = NULL, *
8200: 63 6d 64 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a cmdObj = NULL, *
8210: 64 61 74 61 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 dataObj = NULL,
8220: 2a 64 69 67 65 73 74 4f 62 6a 20 3d 20 4e 55 4c *digestObj = NUL
8230: 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a L;. Tcl_Obj *
8240: 66 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 fileObj = NULL,
8250: 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 *keyObj = NULL,
8260: 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a *macObj = NULL;.
8270: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
8280: 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c 20 channel = NULL,
8290: 2a 6f 70 74 3b 0a 0a 20 20 20 20 64 70 72 69 6e *opt;.. dprin
82a0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
82b0: 20 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 /* Clear inte
82c0: 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 rp result */.
82d0: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
82e0: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f (interp);.. /
82f0: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
8300: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
8310: 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 objc < 3 || objc
8320: 20 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 > 12) {..Tcl_Wr
8330: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
8340: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 62 p, 1, objv, "?-b
8350: 69 6e 7c 2d 68 65 78 3f 20 3f 2d 63 69 70 68 65 in|-hex? ?-ciphe
8360: 72 20 6e 61 6d 65 3f 20 3f 2d 64 69 67 65 73 74 r name? ?-digest
8370: 20 6e 61 6d 65 3f 20 3f 2d 6b 65 79 20 6b 65 79 name? ?-key key
8380: 3f 20 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d ? ?-mac name? [-
8390: 63 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d channel chan | -
83a0: 63 6f 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 20 command cmdName
83b0: 7c 20 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 | -file filename
83c0: 20 7c 20 3f 2d 64 61 74 61 3f 20 64 61 74 61 5d | ?-data? data]
83d0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
83e0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
83f0: 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63 61 73 /* Special cas
8400: 65 20 6f 66 20 66 69 72 73 74 20 61 72 67 20 69 e of first arg i
8410: 73 20 64 69 67 65 73 74 2c 20 63 69 70 68 65 72 s digest, cipher
8420: 2c 20 6f 72 20 6d 61 63 20 2a 2f 0a 20 20 20 20 , or mac */.
8430: 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 opt = Tcl_GetStr
8440: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
8450: 73 74 61 72 74 5d 2c 20 4e 55 4c 4c 29 3b 0a 20 start], NULL);.
8460: 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d if (opt[0] !=
8470: 20 27 2d 27 29 20 7b 0a 09 69 66 20 28 74 79 70 '-') {..if (typ
8480: 65 20 3d 3d 20 54 59 50 45 5f 4d 44 20 7c 7c 20 e == TYPE_MD ||
8490: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 48 4d 41 type == TYPE_HMA
84a0: 43 29 20 7b 0a 09 20 20 20 20 64 69 67 65 73 74 C) {.. digest
84b0: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 73 74 61 72 74 Obj = objv[start
84c0: 5d 3b 0a 09 20 20 20 20 73 74 61 72 74 2b 2b 3b ];.. start++;
84d0: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 74 79 70 ..} else if (typ
84e0: 65 20 3d 3d 20 54 59 50 45 5f 43 4d 41 43 29 20 e == TYPE_CMAC)
84f0: 7b 0a 09 20 20 20 20 63 69 70 68 65 72 4f 62 6a {.. cipherObj
8500: 20 3d 20 6f 62 6a 76 5b 73 74 61 72 74 5d 3b 0a = objv[start];.
8510: 09 20 20 20 20 73 74 61 72 74 2b 2b 3b 0a 09 7d . start++;..}
8520: 20 65 6c 73 65 20 69 66 20 28 74 79 70 65 20 3d else if (type =
8530: 3d 20 54 59 50 45 5f 4d 41 43 29 20 7b 0a 09 20 = TYPE_MAC) {..
8540: 20 20 20 6d 61 63 4f 62 6a 20 3d 20 6f 62 6a 76 macObj = objv
8550: 5b 73 74 61 72 74 5d 3b 0a 09 20 20 20 20 73 74 [start];.. st
8560: 61 72 74 2b 2b 3b 0a 09 7d 0a 20 20 20 20 7d 0a art++;..}. }.
8570: 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f 70 74 69 . /* Get opti
8580: 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 6f 72 20 28 ons */. for (
8590: 69 64 78 20 3d 20 73 74 61 72 74 3b 20 69 64 78 idx = start; idx
85a0: 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 < objc; idx++)
85b0: 7b 0a 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 {..opt = Tcl_Get
85c0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
85d0: 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a jv[idx], NULL);.
85e0: 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 ..if (opt[0] !=
85f0: 27 2d 27 29 20 7b 0a 09 20 20 20 20 62 72 65 61 '-') {.. brea
8600: 6b 3b 0a 09 7d 0a 0a 09 4f 50 54 46 4c 41 47 28 k;..}...OPTFLAG(
8610: 22 2d 62 69 6e 22 2c 20 66 6f 72 6d 61 74 2c 20 "-bin", format,
8620: 42 49 4e 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 BIN_FORMAT);..OP
8630: 54 46 4c 41 47 28 22 2d 62 69 6e 61 72 79 22 2c TFLAG("-binary",
8640: 20 66 6f 72 6d 61 74 2c 20 42 49 4e 5f 46 4f 52 format, BIN_FOR
8650: 4d 41 54 29 3b 0a 09 4f 50 54 46 4c 41 47 28 22 MAT);..OPTFLAG("
8660: 2d 68 65 78 22 2c 20 66 6f 72 6d 61 74 2c 20 48 -hex", format, H
8670: 45 58 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 54 EX_FORMAT);..OPT
8680: 46 4c 41 47 28 22 2d 68 65 78 61 64 65 63 69 6d FLAG("-hexadecim
8690: 61 6c 22 2c 20 66 6f 72 6d 61 74 2c 20 48 45 58 al", format, HEX
86a0: 5f 46 4f 52 4d 41 54 29 3b 0a 09 4f 50 54 53 54 _FORMAT);..OPTST
86b0: 52 28 22 2d 63 68 61 6e 22 2c 20 63 68 61 6e 6e R("-chan", chann
86c0: 65 6c 29 3b 0a 09 4f 50 54 53 54 52 28 22 2d 63 el);..OPTSTR("-c
86d0: 68 61 6e 6e 65 6c 22 2c 20 63 68 61 6e 6e 65 6c hannel", channel
86e0: 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 63 69 70 );..OPTOBJ("-cip
86f0: 68 65 72 22 2c 20 63 69 70 68 65 72 4f 62 6a 29 her", cipherObj)
8700: 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 63 6f 6d 6d ;..OPTOBJ("-comm
8710: 61 6e 64 22 2c 20 63 6d 64 4f 62 6a 29 3b 0a 09 and", cmdObj);..
8720: 4f 50 54 4f 42 4a 28 22 2d 64 61 74 61 22 2c 20 OPTOBJ("-data",
8730: 64 61 74 61 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 dataObj);..OPTOB
8740: 4a 28 22 2d 64 69 67 65 73 74 22 2c 20 64 69 67 J("-digest", dig
8750: 65 73 74 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a estObj);..OPTOBJ
8760: 28 22 2d 66 69 6c 65 22 2c 20 66 69 6c 65 4f 62 ("-file", fileOb
8770: 6a 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 66 69 j);..OPTOBJ("-fi
8780: 6c 65 6e 61 6d 65 22 2c 20 66 69 6c 65 4f 62 6a lename", fileObj
8790: 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 6b 65 79 );..OPTOBJ("-key
87a0: 22 2c 20 6b 65 79 4f 62 6a 29 3b 0a 09 4f 50 54 ", keyObj);..OPT
87b0: 4f 42 4a 28 22 2d 6d 61 63 22 2c 20 6d 61 63 4f OBJ("-mac", macO
87c0: 62 6a 29 3b 0a 0a 09 4f 50 54 42 41 44 28 22 6f bj);...OPTBAD("o
87d0: 70 74 69 6f 6e 22 2c 20 22 2d 62 69 6e 2c 20 2d ption", "-bin, -
87e0: 63 68 61 6e 6e 65 6c 2c 20 2d 63 69 70 68 65 72 channel, -cipher
87f0: 2c 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 61 74 , -command, -dat
8800: 61 2c 20 2d 64 69 67 65 73 74 2c 20 2d 66 69 6c a, -digest, -fil
8810: 65 2c 20 2d 66 69 6c 65 6e 61 6d 65 2c 20 2d 68 e, -filename, -h
8820: 65 78 2c 20 2d 6b 65 79 2c 20 6f 72 20 2d 6d 61 ex, -key, or -ma
8830: 63 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c c");..return TCL
8840: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
8850: 20 20 20 2f 2a 20 49 66 20 6f 6e 6c 79 20 31 20 /* If only 1
8860: 61 72 67 20 6c 65 66 74 2c 20 69 74 27 73 20 74 arg left, it's t
8870: 68 65 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 he data */. i
8880: 66 20 28 69 64 78 20 3c 20 6f 62 6a 63 20 26 26 f (idx < objc &&
8890: 20 64 61 74 61 4f 62 6a 20 3d 3d 20 4e 55 4c 4c dataObj == NULL
88a0: 29 20 7b 0a 09 64 61 74 61 4f 62 6a 20 3d 20 6f ) {..dataObj = o
88b0: 62 6a 76 5b 69 64 78 5d 3b 0a 20 20 20 20 7d 0a bjv[idx];. }.
88c0: 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 74 79 . /* Check ty
88d0: 70 65 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 pes */. if (t
88e0: 79 70 65 20 3d 3d 20 54 59 50 45 5f 4d 44 20 26 ype == TYPE_MD &
88f0: 26 20 63 69 70 68 65 72 4f 62 6a 20 21 3d 20 4e & cipherObj != N
8900: 55 4c 4c 29 20 7b 0a 09 74 79 70 65 20 3d 20 54 ULL) {..type = T
8910: 59 50 45 5f 43 4d 41 43 3b 0a 20 20 20 20 7d 20 YPE_CMAC;. }
8920: 65 6c 73 65 20 69 66 20 28 74 79 70 65 20 3d 3d else if (type ==
8930: 20 54 59 50 45 5f 4d 44 20 26 26 20 6b 65 79 4f TYPE_MD && keyO
8940: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 74 bj != NULL) {..t
8950: 79 70 65 20 3d 20 54 59 50 45 5f 48 4d 41 43 3b ype = TYPE_HMAC;
8960: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
8970: 61 6c 63 20 64 69 67 65 73 74 20 6f 6e 20 66 69 alc digest on fi
8980: 6c 65 2c 20 73 74 61 63 6b 65 64 20 63 68 61 6e le, stacked chan
8990: 6e 65 6c 2c 20 75 73 69 6e 67 20 69 6e 73 74 61 nel, using insta
89a0: 6e 63 65 20 63 6f 6d 6d 61 6e 64 2c 20 6f 72 20 nce command, or
89b0: 64 61 74 61 20 62 6c 6f 62 20 2a 2f 0a 20 20 20 data blob */.
89c0: 20 69 66 20 28 66 69 6c 65 4f 62 6a 20 21 3d 20 if (fileObj !=
89d0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 44 NULL) {..res = D
89e0: 69 67 65 73 74 46 69 6c 65 48 61 6e 64 6c 65 72 igestFileHandler
89f0: 28 69 6e 74 65 72 70 2c 20 66 69 6c 65 4f 62 6a (interp, fileObj
8a00: 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 63 69 70 , digestObj, cip
8a10: 68 65 72 4f 62 6a 2c 20 66 6f 72 6d 61 74 20 7c herObj, format |
8a20: 20 74 79 70 65 2c 20 6b 65 79 4f 62 6a 2c 20 6d type, keyObj, m
8a30: 61 63 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c acObj);. } el
8a40: 73 65 20 69 66 20 28 63 68 61 6e 6e 65 6c 20 21 se if (channel !
8a50: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d = NULL) {..res =
8a60: 20 44 69 67 65 73 74 43 68 61 6e 6e 65 6c 48 61 DigestChannelHa
8a70: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 63 68 ndler(interp, ch
8a80: 61 6e 6e 65 6c 2c 20 64 69 67 65 73 74 4f 62 6a annel, digestObj
8a90: 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 66 6f 72 , cipherObj, for
8aa0: 6d 61 74 20 7c 20 74 79 70 65 2c 20 6b 65 79 4f mat | type, keyO
8ab0: 62 6a 2c 20 6d 61 63 4f 62 6a 29 3b 0a 20 20 20 bj, macObj);.
8ac0: 20 7d 20 65 6c 73 65 20 69 66 20 28 63 6d 64 4f } else if (cmdO
8ad0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 bj != NULL) {..r
8ae0: 65 73 20 3d 20 44 69 67 65 73 74 43 6f 6d 6d 61 es = DigestComma
8af0: 6e 64 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 ndHandler(interp
8b00: 2c 20 63 6d 64 4f 62 6a 2c 20 64 69 67 65 73 74 , cmdObj, digest
8b10: 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 Obj, cipherObj,
8b20: 66 6f 72 6d 61 74 20 7c 20 74 79 70 65 2c 20 6b format | type, k
8b30: 65 79 4f 62 6a 2c 20 6d 61 63 4f 62 6a 29 3b 0a eyObj, macObj);.
8b40: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 64 } else if (d
8b50: 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 ataObj != NULL)
8b60: 7b 0a 09 72 65 73 20 3d 20 44 69 67 65 73 74 44 {..res = DigestD
8b70: 61 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 ataHandler(inter
8b80: 70 2c 20 64 61 74 61 4f 62 6a 2c 20 64 69 67 65 p, dataObj, dige
8b90: 73 74 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a stObj, cipherObj
8ba0: 2c 20 66 6f 72 6d 61 74 20 7c 20 74 79 70 65 2c , format | type,
8bb0: 20 6b 65 79 4f 62 6a 2c 20 6d 61 63 4f 62 6a 29 keyObj, macObj)
8bc0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
8bd0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
8be0: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6f 70 65 (interp, "No ope
8bf0: 72 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 64 ration specified
8c00: 3a 20 55 73 65 20 2d 63 68 61 6e 6e 65 6c 2c 20 : Use -channel,
8c10: 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 61 74 61 2c -command, -data,
8c20: 20 6f 72 20 2d 66 69 6c 65 20 6f 70 74 69 6f 6e or -file option
8c30: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 73 20 3d ", NULL);..res =
8c40: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
8c50: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 }. return res
8c60: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
8c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
8cb0: 0a 20 2a 20 4d 65 73 73 61 67 65 20 44 69 67 65 . * Message Dige
8cc0: 73 74 20 61 6e 64 20 4d 65 73 73 61 67 65 20 41 st and Message A
8cd0: 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 43 6f uthentication Co
8ce0: 64 65 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 de Commands --.
8cf0: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 4d 65 73 73 *. *.Return Mess
8d00: 61 67 65 20 44 69 67 65 73 74 20 28 4d 44 29 20 age Digest (MD)
8d10: 6f 72 20 4d 65 73 73 61 67 65 20 41 75 74 68 65 or Message Authe
8d20: 6e 74 69 63 61 74 69 6f 6e 20 43 6f 64 65 20 28 ntication Code (
8d30: 4d 41 43 29 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 MAC).. *. * Retu
8d40: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
8d50: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
8d60: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
8d70: 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 *.Sets result t
8d80: 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 o message digest
8d90: 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 or error messag
8da0: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
8db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 73 ----------. */.s
8df0: 74 61 74 69 63 20 69 6e 74 20 4d 64 4f 62 6a 43 tatic int MdObjC
8e00: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
8e10: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
8e20: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
8e30: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
8e40: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
8e50: 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69 67 65 . return Dige
8e60: 73 74 4d 61 69 6e 28 54 59 50 45 5f 4d 44 2c 20 stMain(TYPE_MD,
8e70: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
8e80: 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 jv);.}..static i
8e90: 6e 74 20 43 4d 41 43 4f 62 6a 43 6d 64 28 43 6c nt CMACObjCmd(Cl
8ea0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
8eb0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
8ec0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
8ed0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
8ee0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
8ef0: 72 65 74 75 72 6e 20 44 69 67 65 73 74 4d 61 69 return DigestMai
8f00: 6e 28 54 59 50 45 5f 43 4d 41 43 2c 20 69 6e 74 n(TYPE_CMAC, int
8f10: 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 erp, objc, objv)
8f20: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
8f30: 48 4d 41 43 4f 62 6a 43 6d 64 28 43 6c 69 65 6e HMACObjCmd(Clien
8f40: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
8f50: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
8f60: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
8f70: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
8f80: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 bjv[]) {. ret
8f90: 75 72 6e 20 44 69 67 65 73 74 4d 61 69 6e 28 54 urn DigestMain(T
8fa0: 59 50 45 5f 48 4d 41 43 2c 20 69 6e 74 65 72 70 YPE_HMAC, interp
8fb0: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d , objc, objv);.}
8fc0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 4d 41 43 ..static int MAC
8fd0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
8fe0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
8ff0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9000: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
9010: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
9020: 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ]) {. return
9030: 44 69 67 65 73 74 4d 61 69 6e 28 54 59 50 45 5f DigestMain(TYPE_
9040: 4d 41 43 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a MAC, interp, obj
9050: 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a 0a c, objv);.}../*.
9060: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
9070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90a0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 65 73 73 -----. *. * Mess
90b0: 61 67 65 20 44 69 67 65 73 74 20 43 6f 6e 76 65 age Digest Conve
90c0: 6e 69 65 6e 63 65 20 43 6f 6d 6d 61 6e 64 73 20 nience Commands
90d0: 2d 2d 0a 20 2a 0a 20 2a 09 43 6f 6e 76 65 6e 69 --. *. *.Conveni
90e0: 65 6e 63 65 20 63 6f 6d 6d 61 6e 64 73 20 66 6f ence commands fo
90f0: 72 20 73 65 6c 65 63 74 20 6d 65 73 73 61 67 65 r select message
9100: 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 digests.. *. *
9110: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
9120: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
9130: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
9140: 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 ts:. *.Sets resu
9150: 6c 74 20 74 6f 20 6d 65 73 73 61 67 65 20 64 69 lt to message di
9160: 67 65 73 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 gest or error me
9170: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
9180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
91c0: 2a 2f 0a 20 23 64 65 66 69 6e 65 20 56 41 4c 49 */. #define VALI
91d0: 44 41 54 45 5f 41 52 47 43 28 6f 62 6a 63 2c 20 DATE_ARGC(objc,
91e0: 6f 62 6a 76 29 20 7b 20 5c 0a 20 20 20 20 69 66 objv) { \. if
91f0: 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 20 5c (objc != 2) { \
9200: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
9210: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
9220: 6a 76 2c 20 22 64 61 74 61 22 29 3b 20 5c 0a 09 jv, "data"); \..
9230: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
9240: 3b 20 5c 0a 20 20 20 20 7d 20 5c 0a 7d 0a 20 0a ; \. } \.}. .
9250: 69 6e 74 20 4d 44 34 4f 62 6a 43 6d 64 28 43 6c int MD4ObjCmd(Cl
9260: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
9270: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
9280: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
9290: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
92a0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
92b0: 56 41 4c 49 44 41 54 45 5f 41 52 47 43 28 6f 62 VALIDATE_ARGC(ob
92c0: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 20 20 20 72 jc, objv);. r
92d0: 65 74 75 72 6e 20 44 69 67 65 73 74 44 61 74 61 eturn DigestData
92e0: 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 Handler(interp,
92f0: 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 5f 6d 64 34 objv[1], EVP_md4
9300: 28 29 2c 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f (), NULL, HEX_FO
9310: 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 RMAT | TYPE_MD,
9320: 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a NULL, NULL);.}..
9330: 69 6e 74 20 4d 44 35 4f 62 6a 43 6d 64 28 43 6c int MD5ObjCmd(Cl
9340: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
9350: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
9360: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
9370: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
9380: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
9390: 56 41 4c 49 44 41 54 45 5f 41 52 47 43 28 6f 62 VALIDATE_ARGC(ob
93a0: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 20 20 20 72 jc, objv);. r
93b0: 65 74 75 72 6e 20 44 69 67 65 73 74 44 61 74 61 eturn DigestData
93c0: 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 Handler(interp,
93d0: 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 5f 6d 64 35 objv[1], EVP_md5
93e0: 28 29 2c 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f (), NULL, HEX_FO
93f0: 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 RMAT | TYPE_MD,
9400: 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a NULL, NULL);.}..
9410: 69 6e 74 20 53 48 41 31 4f 62 6a 43 6d 64 28 43 int SHA1ObjCmd(C
9420: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
9430: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
9440: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
9450: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
9460: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
9470: 20 56 41 4c 49 44 41 54 45 5f 41 52 47 43 28 6f VALIDATE_ARGC(o
9480: 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 20 20 20 20 bjc, objv);.
9490: 72 65 74 75 72 6e 20 44 69 67 65 73 74 44 61 74 return DigestDat
94a0: 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c aHandler(interp,
94b0: 20 6f 62 6a 76 5b 31 5d 2c 20 45 56 50 5f 73 68 objv[1], EVP_sh
94c0: 61 31 28 29 2c 20 4e 55 4c 4c 2c 20 48 45 58 5f a1(), NULL, HEX_
94d0: 46 4f 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 FORMAT | TYPE_MD
94e0: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 7d , NULL, NULL);.}
94f0: 0a 0a 69 6e 74 20 53 48 41 32 35 36 4f 62 6a 43 ..int SHA256ObjC
9500: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
9510: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
9520: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
9530: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
9540: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
9550: 0a 20 20 20 20 56 41 4c 49 44 41 54 45 5f 41 52 . VALIDATE_AR
9560: 47 43 28 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a GC(objc, objv);.
9570: 20 20 20 20 72 65 74 75 72 6e 20 44 69 67 65 73 return Diges
9580: 74 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 tDataHandler(int
9590: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 45 56 erp, objv[1], EV
95a0: 50 5f 73 68 61 32 35 36 28 29 2c 20 4e 55 4c 4c P_sha256(), NULL
95b0: 2c 20 48 45 58 5f 46 4f 52 4d 41 54 20 7c 20 54 , HEX_FORMAT | T
95c0: 59 50 45 5f 4d 44 2c 20 4e 55 4c 4c 2c 20 4e 55 YPE_MD, NULL, NU
95d0: 4c 4c 29 3b 0a 7d 0a 0a 69 6e 74 20 53 48 41 35 LL);.}..int SHA5
95e0: 31 32 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 12ObjCmd(ClientD
95f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
9600: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
9610: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
9620: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
9630: 76 5b 5d 29 20 7b 0a 20 20 20 20 56 41 4c 49 44 v[]) {. VALID
9640: 41 54 45 5f 41 52 47 43 28 6f 62 6a 63 2c 20 6f ATE_ARGC(objc, o
9650: 62 6a 76 29 3b 0a 20 20 20 20 72 65 74 75 72 6e bjv);. return
9660: 20 44 69 67 65 73 74 44 61 74 61 48 61 6e 64 6c DigestDataHandl
9670: 65 72 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b er(interp, objv[
9680: 31 5d 2c 20 45 56 50 5f 73 68 61 35 31 32 28 29 1], EVP_sha512()
9690: 2c 20 4e 55 4c 4c 2c 20 48 45 58 5f 46 4f 52 4d , NULL, HEX_FORM
96a0: 41 54 20 7c 20 54 59 50 45 5f 4d 44 2c 20 4e 55 AT | TYPE_MD, NU
96b0: 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 7d 0a 0a 2f 2a LL, NULL);.}../*
96c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
96d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9700: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
9710: 5f 44 69 67 65 73 74 43 6f 6d 6d 61 6e 64 73 20 _DigestCommands
9720: 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 --. *. *.Create
9730: 64 69 67 65 73 74 20 63 6f 6d 6d 61 6e 64 73 0a digest commands.
9740: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
9750: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
9760: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
9770: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 effects:. *.Cre
9780: 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a ates commands. *
9790: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
97a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
97b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
97c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
97d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 ------. */.int T
97e0: 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d 61 6e 64 ls_DigestCommand
97f0: 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e s(Tcl_Interp *in
9800: 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f terp) {. Tcl_
9810: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
9820: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 64 (interp, "tls::d
9830: 69 67 65 73 74 22 2c 20 4d 64 4f 62 6a 43 6d 64 igest", MdObjCmd
9840: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
9850: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
9860: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
9870: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
9880: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
9890: 22 74 6c 73 3a 3a 6d 64 22 2c 20 4d 64 4f 62 6a "tls::md", MdObj
98a0: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
98b0: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
98c0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
98d0: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
98e0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
98f0: 70 2c 20 22 74 6c 73 3a 3a 63 6d 61 63 22 2c 20 p, "tls::cmac",
9900: 43 4d 41 43 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 CMACObjCmd, (Cli
9910: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
9920: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
9930: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
9940: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
9950: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
9960: 68 6d 61 63 22 2c 20 48 4d 41 43 4f 62 6a 43 6d hmac", HMACObjCm
9970: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
9980: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
9990: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
99a0: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
99b0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
99c0: 20 22 74 6c 73 3a 3a 6d 61 63 22 2c 20 4d 41 43 "tls::mac", MAC
99d0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
99e0: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
99f0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
9a00: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
9a10: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
9a20: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 64 34 22 terp, "tls::md4"
9a30: 2c 20 4d 44 34 4f 62 6a 43 6d 64 2c 20 28 43 6c , MD4ObjCmd, (Cl
9a40: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
9a50: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
9a60: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
9a70: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
9a80: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
9a90: 3a 6d 64 35 22 2c 20 4d 44 35 4f 62 6a 43 6d 64 :md5", MD5ObjCmd
9aa0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
9ab0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
9ac0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
9ad0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
9ae0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
9af0: 22 74 6c 73 3a 3a 73 68 61 31 22 2c 20 53 48 41 "tls::sha1", SHA
9b00: 31 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 1ObjCmd, (Client
9b10: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
9b20: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
9b30: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
9b40: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
9b50: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 68 61 nterp, "tls::sha
9b60: 32 35 36 22 2c 20 53 48 41 32 35 36 4f 62 6a 43 256", SHA256ObjC
9b70: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
9b80: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
9b90: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
9ba0: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
9bb0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
9bc0: 2c 20 22 74 6c 73 3a 3a 73 68 61 35 31 32 22 2c , "tls::sha512",
9bd0: 20 53 48 41 35 31 32 4f 62 6a 43 6d 64 2c 20 28 SHA512ObjCmd, (
9be0: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
9bf0: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
9c00: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
9c10: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
9c20: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
9c30: 73 3a 3a 75 6e 73 74 61 63 6b 22 2c 20 44 69 67 s::unstack", Dig
9c40: 65 73 74 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 estUnstackObjCmd
9c50: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
9c60: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
9c70: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
9c80: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
9c90: 3b 0a 7d 0a 0a ;.}..