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 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
5a40: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
5a50: 63 68 61 6e 6e 65 6c 22 2c 20 28 63 68 61 72 20 channel", (char
5a60: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
5a70: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5a80: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 }.. /* Get c
5a90: 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 hannel Id */.
5aa0: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 chan = Tcl_GetC
5ab0: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 hannel(interp, c
5ac0: 68 61 6e 6e 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a hannel, &mode);.
5ad0: 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 if (chan ==
5ae0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
5af0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
5b00: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5b10: 20 20 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 /* Make sure
5b20: 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 to operate on t
5b30: 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e he topmost chann
5b40: 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d el */. chan =
5b50: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
5b60: 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f el(chan);.. /
5b70: 2a 20 43 6f 6e 66 69 67 75 72 65 20 63 68 61 6e * Configure chan
5b80: 6e 65 6c 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 nel */. Tcl_S
5b90: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
5ba0: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
5bb0: 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 translation", "b
5bc0: 69 6e 61 72 79 22 29 3b 0a 20 20 20 20 69 66 20 inary");. if
5bd0: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 42 (Tcl_GetChannelB
5be0: 75 66 66 65 72 53 69 7a 65 28 63 68 61 6e 29 20 ufferSize(chan)
5bf0: 3c 20 45 56 50 5f 4d 41 58 5f 4d 44 5f 53 49 5a < EVP_MAX_MD_SIZ
5c00: 45 20 2a 20 32 29 20 7b 0a 09 54 63 6c 5f 53 65 E * 2) {..Tcl_Se
5c10: 74 43 68 61 6e 6e 65 6c 42 75 66 66 65 72 53 69 tChannelBufferSi
5c20: 7a 65 28 63 68 61 6e 2c 20 45 56 50 5f 4d 41 58 ze(chan, EVP_MAX
5c30: 5f 4d 44 5f 53 49 5a 45 20 2a 20 32 29 3b 0a 20 _MD_SIZE * 2);.
5c40: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 }.. /* Cre
5c50: 61 74 65 20 73 74 61 74 65 20 64 61 74 61 20 73 ate state data s
5c60: 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 tructure */.
5c70: 69 66 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 if ((statePtr =
5c80: 44 69 67 65 73 74 53 74 61 74 65 4e 65 77 28 69 DigestStateNew(i
5c90: 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 29 20 nterp, format))
5ca0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
5cb0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
5cc0: 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c erp, "Memory all
5cd0: 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 ocation error",
5ce0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
5cf0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5d00: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 R;. }. sta
5d10: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 63 68 tePtr->self = ch
5d20: 61 6e 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 an;. statePtr
5d30: 2d 3e 6d 6f 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a ->mode = mode;..
5d40: 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a /* Initializ
5d50: 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 e hash function
5d60: 2a 2f 0a 20 20 20 20 69 66 20 28 44 69 67 65 73 */. if (Diges
5d70: 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 tInitialize(inte
5d80: 72 70 2c 20 73 74 61 74 65 50 74 72 2c 20 64 69 rp, statePtr, di
5d90: 67 65 73 74 4f 62 6a 2c 20 63 69 70 68 65 72 4f gestObj, cipherO
5da0: 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 6d 61 63 4f bj, keyObj, macO
5db0: 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b bj) != TCL_OK) {
5dc0: 0a 09 44 69 67 65 73 74 53 74 61 74 65 46 72 65 ..DigestStateFre
5dd0: 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 e(statePtr);..re
5de0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5df0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 }.. /* St
5e00: 61 63 6b 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 ack channel */.
5e10: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c statePtr->sel
5e20: 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 f = Tcl_StackCha
5e30: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 26 64 69 nnel(interp, &di
5e40: 67 65 73 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c gestChannelType,
5e50: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
5e60: 61 74 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 atePtr, mode, ch
5e70: 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 an);. if (sta
5e80: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
5e90: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
5ea0: 4c 29 20 7b 0a 09 44 69 67 65 73 74 53 74 61 74 L) {..DigestStat
5eb0: 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b eFree(statePtr);
5ec0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5ed0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5ee0: 2a 20 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 * Set result to
5ef0: 63 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 channel Id */.
5f00: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
5f10: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
5f20: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
5f30: 61 6d 65 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 ame(chan), TCL_V
5f40: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 OLATILE);. re
5f50: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
5f60: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
5f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5fb0: 2a 20 55 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 * Unstack Channe
5fc0: 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 l --. *. *.This
5fd0: 66 75 6e 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 function removes
5fe0: 20 74 68 65 20 73 74 61 63 6b 65 64 20 63 68 61 the stacked cha
5ff0: 6e 6e 65 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f nnel from the to
6000: 70 20 6f 66 20 74 68 65 0a 20 2a 09 63 68 61 6e p of the. *.chan
6010: 6e 65 6c 20 73 74 61 63 6b 20 69 66 20 69 74 20 nel stack if it
6020: 69 73 20 61 20 64 69 67 65 73 74 20 63 68 61 6e is a digest chan
6030: 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 nel.. *. * Retur
6040: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
6050: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
6060: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
6070: 2a 09 52 65 6d 6f 76 65 73 20 74 72 61 6e 73 66 *.Removes transf
6080: 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c orm from channel
6090: 20 6f 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 or sets result
60a0: 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 to error message
60b0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
60c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
6100: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 44 69 67 /.static int Dig
6110: 65 73 74 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 estUnstackObjCmd
6120: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
6130: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
6140: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
6150: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
6160: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
6170: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 Tcl_Channel c
6180: 68 61 6e 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 han;. int mod
6190: 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 e; /* OR-ed comb
61a0: 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 ination of TCL_R
61b0: 45 41 44 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f EADABLE and TCL_
61c0: 57 52 49 54 41 42 4c 45 20 20 2a 2f 0a 0a 20 20 WRITABLE */..
61d0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
61e0: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c d");.. /* Val
61f0: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
6200: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
6210: 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 2) {..Tcl_Wro
6220: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
6230: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e , 1, objv, "chan
6240: 6e 65 6c 49 64 22 29 3b 0a 09 72 65 74 75 72 6e nelId");..return
6250: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
6260: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 }.. /* Get ch
6270: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 annel */. cha
6280: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
6290: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
62a0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
62b0: 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 objv[1], NULL),
62c0: 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 &mode);. if (
62d0: 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 chan == (Tcl_Cha
62e0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
62f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6300: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d . }.. /* M
6310: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
6320: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
6330: 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 st channel */.
6340: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
6350: 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 TopChannel(chan)
6360: 3b 0a 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 ;.. /* Check
6370: 69 66 20 64 69 67 65 73 74 20 63 68 61 6e 6e 65 if digest channe
6380: 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c l */. if (Tcl
6390: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
63a0: 63 68 61 6e 29 20 21 3d 20 26 64 69 67 65 73 74 chan) != &digest
63b0: 43 68 61 6e 6e 65 6c 54 79 70 65 29 20 7b 0a 09 ChannelType) {..
63c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
63d0: 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 (interp, "bad ch
63e0: 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 annel \"", Tcl_G
63f0: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 etChannelName(ch
6400: 61 6e 29 2c 0a 09 20 20 20 20 22 5c 22 3a 20 6e an),.. "\": n
6410: 6f 74 20 61 20 64 69 67 65 73 74 20 63 68 61 6e ot a digest chan
6420: 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 nel", NULL);..Tc
6430: 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 69 l_SetErrorCode(i
6440: 6e 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 55 nterp, "TLS", "U
6450: 4e 53 54 41 43 4b 22 2c 20 22 43 48 41 4e 4e 45 NSTACK", "CHANNE
6460: 4c 22 2c 20 22 49 4e 56 41 4c 49 44 22 2c 20 28 L", "INVALID", (
6470: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
6480: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6490: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
64a0: 50 6f 70 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 Pop transform fr
64b0: 6f 6d 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 om channel */.
64c0: 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 55 6e 73 return Tcl_Uns
64d0: 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 tackChannel(inte
64e0: 72 70 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 09 rp, chan);. .
64f0: 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 clientData = cli
6500: 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a entData;.}../***
6510: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6520: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6530: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6540: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6550: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
65a0: 2a 20 44 69 67 65 73 74 49 6e 73 74 61 6e 63 65 * DigestInstance
65b0: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 ObjCmd --. *. *.
65c0: 48 61 6e 64 6c 65 72 20 66 6f 72 20 64 69 67 65 Handler for dige
65d0: 73 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 73 74 61 st command insta
65e0: 6e 63 65 73 2e 20 55 73 65 64 20 74 6f 20 61 64 nces. Used to ad
65f0: 64 20 64 61 74 61 20 74 6f 20 68 61 73 68 0a 20 d data to hash.
6600: 2a 09 66 75 6e 63 74 69 6f 6e 20 6f 72 20 72 65 *.function or re
6610: 74 72 69 65 76 65 20 6d 65 73 73 61 67 65 20 64 trieve message d
6620: 69 67 65 73 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 igest.. *. * Ret
6630: 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 urns:. *.TCL_OK
6640: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a or TCL_ERROR. *.
6650: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
6660: 0a 20 2a 09 41 64 64 73 20 64 61 74 61 20 74 6f . *.Adds data to
6670: 20 68 61 73 68 20 6f 72 20 72 65 74 75 72 6e 73 hash or returns
6680: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 0a message digest.
6690: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
66a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
66d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
66e0: 20 44 69 67 65 73 74 49 6e 73 74 61 6e 63 65 4f DigestInstanceO
66f0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
6700: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
6710: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
6720: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
6730: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
6740: 29 20 7b 0a 20 20 20 20 44 69 67 65 73 74 53 74 ) {. DigestSt
6750: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
6760: 28 44 69 67 65 73 74 53 74 61 74 65 20 2a 29 20 (DigestState *)
6770: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
6780: 69 6e 74 20 66 6e 2c 20 64 61 74 61 5f 6c 65 6e int fn, data_len
6790: 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 20 2a = 0;. char *
67a0: 64 61 74 61 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 data = NULL;.
67b0: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 static const ch
67c0: 61 72 20 2a 69 6e 73 74 61 6e 63 65 5f 66 6e 73 ar *instance_fns
67d0: 20 5b 5d 20 3d 20 7b 20 22 66 69 6e 61 6c 69 7a [] = { "finaliz
67e0: 65 22 2c 20 22 75 70 64 61 74 65 22 2c 20 4e 55 e", "update", NU
67f0: 4c 4c 20 7d 3b 0a 0a 20 20 20 20 64 70 72 69 6e LL };.. dprin
6800: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
6810: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
6820: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
6830: 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 if (objc < 2 ||
6840: 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 54 63 6c objc > 3) {..Tcl
6850: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
6860: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
6870: 66 75 6e 63 74 69 6f 6e 20 3f 64 61 74 61 3f 22 function ?data?"
6880: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
6890: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
68a0: 20 2f 2a 20 47 65 74 20 66 75 6e 63 74 69 6f 6e /* Get function
68b0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f */. if (Tcl_
68c0: 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 GetIndexFromObj(
68d0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
68e0: 20 69 6e 73 74 61 6e 63 65 5f 66 6e 73 2c 20 22 instance_fns, "
68f0: 66 75 6e 63 74 69 6f 6e 22 2c 20 30 2c 20 26 66 function", 0, &f
6900: 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a n) != TCL_OK) {.
6910: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
6920: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
6930: 20 44 6f 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a Do function */.
6940: 20 20 20 20 69 66 20 28 66 6e 29 20 7b 0a 09 2f if (fn) {../
6950: 2a 20 47 65 74 20 64 61 74 61 20 6f 72 20 72 65 * Get data or re
6960: 74 75 72 6e 20 65 72 72 6f 72 20 69 66 20 6e 6f turn error if no
6970: 6e 65 20 2a 2f 0a 09 69 66 20 28 6f 62 6a 63 20 ne */..if (objc
6980: 3d 3d 20 33 29 20 7b 0a 09 20 20 20 20 64 61 74 == 3) {.. dat
6990: 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 a = Tcl_GetByteA
69a0: 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 rrayFromObj(objv
69b0: 5b 32 5d 2c 20 26 64 61 74 61 5f 6c 65 6e 29 3b [2], &data_len);
69c0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
69d0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
69e0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
69f0: 2c 20 22 75 70 64 61 74 65 20 64 61 74 61 22 29 , "update data")
6a00: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
6a10: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a L_ERROR;..}.../*
6a20: 20 55 70 64 61 74 65 20 68 61 73 68 20 66 75 6e Update hash fun
6a30: 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 44 69 ction */..if (Di
6a40: 67 65 73 74 55 70 64 61 74 65 28 73 74 61 74 65 gestUpdate(state
6a50: 50 74 72 2c 20 64 61 74 61 2c 20 28 73 69 7a 65 Ptr, data, (size
6a60: 5f 74 29 20 64 61 74 61 5f 6c 65 6e 2c 20 31 29 _t) data_len, 1)
6a70: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 != TCL_OK) {..
6a80: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
6a90: 52 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 ROR;..}.. } e
6aa0: 6c 73 65 20 7b 0a 09 2f 2a 20 46 69 6e 61 6c 69 lse {../* Finali
6ab0: 7a 65 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e ze hash function
6ac0: 20 61 6e 64 20 63 61 6c 63 75 6c 61 74 65 20 6d and calculate m
6ad0: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f essage digest */
6ae0: 0a 09 69 66 20 28 44 69 67 65 73 74 46 69 6e 61 ..if (DigestFina
6af0: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 lize(interp, sta
6b00: 74 65 50 74 72 2c 20 4e 55 4c 4c 29 20 21 3d 20 tePtr, NULL) !=
6b10: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 72 TCL_OK) {.. r
6b20: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6b30: 0a 09 7d 0a 0a 09 54 63 6c 5f 44 65 6c 65 74 65 ..}...Tcl_Delete
6b40: 43 6f 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e CommandFromToken
6b50: 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 (interp, statePt
6b60: 72 2d 3e 74 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d r->token);. }
6b70: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6b80: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
6b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6bd0: 20 2a 0a 20 2a 20 44 69 67 65 73 74 43 6f 6d 6d *. * DigestComm
6be0: 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 andDeleteHandler
6bf0: 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c 62 --. *. *. Callb
6c00: 61 63 6b 20 74 6f 20 63 6c 65 61 6e 2d 75 70 20 ack to clean-up
6c10: 77 68 65 6e 20 64 69 67 65 73 74 20 69 6e 73 74 when digest inst
6c20: 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 20 69 73 20 ance command is
6c30: 64 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 deleted.. *. * R
6c40: 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 eturns:. *.Nothi
6c50: 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ng. *. * Side ef
6c60: 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f fects:. *.Destro
6c70: 79 73 20 73 74 61 74 65 20 69 6e 66 6f 20 73 74 ys state info st
6c80: 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d ructure. *. *---
6c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cd0: 0a 20 2a 2f 0a 76 6f 69 64 20 44 69 67 65 73 74 . */.void Digest
6ce0: 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e CommandDeleteHan
6cf0: 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 dler(ClientData
6d00: 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 20 clientData) {.
6d10: 20 20 44 69 67 65 73 74 53 74 61 74 65 20 2a 73 DigestState *s
6d20: 74 61 74 65 50 74 72 20 3d 20 28 44 69 67 65 73 tatePtr = (Diges
6d30: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
6d40: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c Data;.. /* Cl
6d50: 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 44 69 ean-up */. Di
6d60: 67 65 73 74 53 74 61 74 65 46 72 65 65 28 73 74 gestStateFree(st
6d70: 61 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 atePtr);.}../*.
6d80: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6dc0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
6dd0: 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 tCommandHandler
6de0: 2d 2d 0a 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 --. *. *. Create
6df0: 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 61 6c 6c 6f command to allo
6e00: 77 20 75 73 65 72 20 74 6f 20 61 64 64 20 64 61 w user to add da
6e10: 74 61 20 74 6f 20 68 61 73 68 20 66 75 6e 63 74 ta to hash funct
6e20: 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ion.. *. * Retur
6e30: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
6e40: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
6e50: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
6e60: 2a 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e *.Creates comman
6e70: 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 d or error messa
6e80: 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ge. *. *--------
6e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
6ed0: 69 6e 74 20 44 69 67 65 73 74 43 6f 6d 6d 61 6e int DigestComman
6ee0: 64 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 dHandler(Tcl_Int
6ef0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c erp *interp, Tcl
6f00: 5f 4f 62 6a 20 2a 63 6d 64 4f 62 6a 2c 20 54 63 _Obj *cmdObj, Tc
6f10: 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a l_Obj *digestObj
6f20: 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 ,..Tcl_Obj *ciph
6f30: 65 72 4f 62 6a 2c 20 69 6e 74 20 66 6f 72 6d 61 erObj, int forma
6f40: 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f t, Tcl_Obj *keyO
6f50: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6d 61 63 bj, Tcl_Obj *mac
6f60: 4f 62 6a 29 20 7b 0a 20 20 20 20 44 69 67 65 73 Obj) {. Diges
6f70: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
6f80: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 6d 64 4e ;. char *cmdN
6f90: 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ame = Tcl_GetStr
6fa0: 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 6d 64 4f 62 ingFromObj(cmdOb
6fb0: 6a 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 64 j, NULL);.. d
6fc0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
6fd0: 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 ;.. /* Create
6fe0: 20 73 74 61 74 65 20 64 61 74 61 20 73 74 72 75 state data stru
6ff0: 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 69 66 20 cture */. if
7000: 28 28 73 74 61 74 65 50 74 72 20 3d 20 44 69 67 ((statePtr = Dig
7010: 65 73 74 53 74 61 74 65 4e 65 77 28 69 6e 74 65 estStateNew(inte
7020: 72 70 2c 20 66 6f 72 6d 61 74 29 29 20 3d 3d 20 rp, format)) ==
7030: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
7040: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7050: 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 , "Memory alloca
7060: 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 tion error", (ch
7070: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
7080: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7090: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e }.. /* In
70a0: 69 74 69 61 6c 69 7a 65 20 68 61 73 68 20 66 75 itialize hash fu
70b0: 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 nction */. if
70c0: 20 28 44 69 67 65 73 74 49 6e 69 74 69 61 6c 69 (DigestInitiali
70d0: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
70e0: 50 74 72 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 Ptr, digestObj,
70f0: 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 cipherObj, keyOb
7100: 6a 2c 20 6d 61 63 4f 62 6a 29 20 21 3d 20 54 43 j, macObj) != TC
7110: 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 L_OK) {..return
7120: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
7130: 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 .. /* Create
7140: 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 instance command
7150: 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 */. statePtr
7160: 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c 5f 43 72 ->token = Tcl_Cr
7170: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
7180: 6e 74 65 72 70 2c 20 63 6d 64 4e 61 6d 65 2c 20 nterp, cmdName,
7190: 44 69 67 65 73 74 49 6e 73 74 61 6e 63 65 4f 62 DigestInstanceOb
71a0: 6a 43 6d 64 2c 0a 09 28 43 6c 69 65 6e 74 44 61 jCmd,..(ClientDa
71b0: 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 44 69 ta) statePtr, Di
71c0: 67 65 73 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 gestCommandDelet
71d0: 65 48 61 6e 64 6c 65 72 29 3b 0a 20 20 20 20 69 eHandler);. i
71e0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b f (statePtr->tok
71f0: 65 6e 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 44 en == NULL) {..D
7200: 69 67 65 73 74 53 74 61 74 65 46 72 65 65 28 73 igestStateFree(s
7210: 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 tatePtr);..retur
7220: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7230: 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 72 }.. /* Retur
7240: 6e 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a n command name *
7250: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a /. Tcl_SetObj
7260: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 63 Result(interp, c
7270: 6d 64 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 mdObj);. retu
7280: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 0a 2f rn TCL_OK;.}.../
7290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72d0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
72e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
7320: 2a 0a 20 2a 20 44 69 67 65 73 74 44 61 74 61 48 *. * DigestDataH
7330: 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 andler --. *. *.
7340: 52 65 74 75 72 6e 20 6d 65 73 73 61 67 65 20 64 Return message d
7350: 69 67 65 73 74 20 66 6f 72 20 64 61 74 61 20 75 igest for data u
7360: 73 69 6e 67 20 75 73 65 72 20 73 70 65 63 69 66 sing user specif
7370: 69 65 64 20 68 61 73 68 20 66 75 6e 63 74 69 6f ied hash functio
7380: 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 n.. *. * Returns
7390: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
73a0: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
73b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
73c0: 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6d Sets result to m
73d0: 65 73 73 61 67 65 20 64 69 67 65 73 74 20 6f 72 essage digest or
73e0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
73f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7430: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
7440: 44 69 67 65 73 74 44 61 74 61 48 61 6e 64 6c 65 DigestDataHandle
7450: 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e r(Tcl_Interp *in
7460: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 terp, Tcl_Obj *d
7470: 61 74 61 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 ataObj, Tcl_Obj
7480: 2a 64 69 67 65 73 74 4f 62 6a 2c 0a 09 54 63 6c *digestObj,..Tcl
7490: 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c _Obj *cipherObj,
74a0: 20 69 6e 74 20 66 6f 72 6d 61 74 2c 20 54 63 6c int format, Tcl
74b0: 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 _Obj *keyObj, Tc
74c0: 6c 5f 4f 62 6a 20 2a 6d 61 63 4f 62 6a 29 20 7b l_Obj *macObj) {
74d0: 0a 20 20 20 20 63 68 61 72 20 2a 64 61 74 61 3b . char *data;
74e0: 0a 20 20 20 20 69 6e 74 20 64 61 74 61 5f 6c 65 . int data_le
74f0: 6e 3b 0a 20 20 20 20 44 69 67 65 73 74 53 74 61 n;. DigestSta
7500: 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 0a 20 te *statePtr;..
7510: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
7520: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 ed");.. /* Ge
7530: 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 64 61 t data */. da
7540: 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 ta = Tcl_GetByte
7550: 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 64 61 74 ArrayFromObj(dat
7560: 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c 65 6e 29 aObj, &data_len)
7570: 3b 0a 20 20 20 20 69 66 20 28 64 61 74 61 20 3d ;. if (data =
7580: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 53 = NULL) {..Tcl_S
7590: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
75a0: 20 22 4e 6f 20 64 61 74 61 22 2c 20 4e 55 4c 4c "No data", NULL
75b0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
75c0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
75d0: 20 2f 2a 20 43 72 65 61 74 65 20 73 74 61 74 65 /* Create state
75e0: 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 data structure
75f0: 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 */. if ((stat
7600: 65 50 74 72 20 3d 20 44 69 67 65 73 74 53 74 61 ePtr = DigestSta
7610: 74 65 4e 65 77 28 69 6e 74 65 72 70 2c 20 66 6f teNew(interp, fo
7620: 72 6d 61 74 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 rmat)) == NULL)
7630: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
7640: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d ult(interp, "Mem
7650: 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 ory allocation e
7660: 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 rror", (char *)
7670: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
7680: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
7690: 0a 20 20 20 20 2f 2a 20 43 61 6c 63 20 44 69 67 . /* Calc Dig
76a0: 65 73 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 44 est */. if (D
76b0: 69 67 65 73 74 49 6e 69 74 69 61 6c 69 7a 65 28 igestInitialize(
76c0: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
76d0: 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 63 69 70 , digestObj, cip
76e0: 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 herObj, keyObj,
76f0: 6d 61 63 4f 62 6a 29 20 21 3d 20 54 43 4c 5f 4f macObj) != TCL_O
7700: 4b 20 7c 7c 0a 09 44 69 67 65 73 74 55 70 64 61 K ||..DigestUpda
7710: 74 65 28 73 74 61 74 65 50 74 72 2c 20 64 61 74 te(statePtr, dat
7720: 61 2c 20 28 73 69 7a 65 5f 74 29 20 64 61 74 61 a, (size_t) data
7730: 5f 6c 65 6e 2c 20 31 29 20 21 3d 20 54 43 4c 5f _len, 1) != TCL_
7740: 4f 4b 20 7c 7c 0a 09 44 69 67 65 73 74 46 69 6e OK ||..DigestFin
7750: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 alize(interp, st
7760: 61 74 65 50 74 72 2c 20 4e 55 4c 4c 29 20 21 3d atePtr, NULL) !=
7770: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 44 69 67 65 TCL_OK) {..Dige
7780: 73 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 stStateFree(stat
7790: 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 ePtr);..return T
77a0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
77b0: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 70 . /* Clean-up
77c0: 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 74 53 74 */. DigestSt
77d0: 61 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 ateFree(statePtr
77e0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
77f0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a L_OK;.}../******
7800: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7810: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7820: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7830: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
7840: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
7850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7880: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
7890: 69 67 65 73 74 46 69 6c 65 48 61 6e 64 6c 65 72 igestFileHandler
78a0: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
78b0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
78c0: 66 6f 72 20 66 69 6c 65 20 75 73 69 6e 67 20 75 for file using u
78d0: 73 65 72 20 73 70 65 63 69 66 69 65 64 20 68 61 ser specified ha
78e0: 73 68 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a sh function.. *.
78f0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
7900: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
7910: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
7920: 66 65 63 74 73 3a 0a 20 2a 09 52 65 73 75 6c 74 fects:. *.Result
7930: 20 69 73 20 6d 65 73 73 61 67 65 20 64 69 67 65 is message dige
7940: 73 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 st or error mess
7950: 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d age. *. *-------
7960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
79a0: 0a 69 6e 74 20 44 69 67 65 73 74 46 69 6c 65 48 .int DigestFileH
79b0: 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 andler(Tcl_Inter
79c0: 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p *interp, Tcl_O
79d0: 62 6a 20 2a 69 6e 46 69 6c 65 4f 62 6a 2c 20 54 bj *inFileObj, T
79e0: 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 cl_Obj *digestOb
79f0: 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 j,..Tcl_Obj *cip
7a00: 68 65 72 4f 62 6a 2c 20 69 6e 74 20 66 6f 72 6d herObj, int form
7a10: 61 74 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 at, Tcl_Obj *key
7a20: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6d 61 Obj, Tcl_Obj *ma
7a30: 63 4f 62 6a 29 20 7b 0a 20 20 20 20 44 69 67 65 cObj) {. Dige
7a40: 73 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 stState *statePt
7a50: 72 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e r;. Tcl_Chann
7a60: 65 6c 20 63 68 61 6e 20 3d 20 4e 55 4c 4c 3b 0a el chan = NULL;.
7a70: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
7a80: 72 20 62 75 66 5b 42 55 46 46 45 52 5f 53 49 5a r buf[BUFFER_SIZ
7a90: 45 5d 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 E];. int res
7aa0: 3d 20 54 43 4c 5f 4f 4b 2c 20 6c 65 6e 3b 0a 0a = TCL_OK, len;..
7ab0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
7ac0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 led");.. /* C
7ad0: 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 61 reate state data
7ae0: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 structure */.
7af0: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 if ((statePtr
7b00: 3d 20 44 69 67 65 73 74 53 74 61 74 65 4e 65 77 = DigestStateNew
7b10: 28 69 6e 74 65 72 70 2c 20 66 6f 72 6d 61 74 29 (interp, format)
7b20: 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ) == NULL) {..Tc
7b30: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7b40: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
7b50: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
7b60: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7b70: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
7b80: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7b90: 2f 2a 20 4f 70 65 6e 20 66 69 6c 65 20 63 68 61 /* Open file cha
7ba0: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e nnel */. chan
7bb0: 20 3d 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c = Tcl_FSOpenFil
7bc0: 65 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c eChannel(interp,
7bd0: 20 69 6e 46 69 6c 65 4f 62 6a 2c 20 22 72 62 22 inFileObj, "rb"
7be0: 2c 20 30 34 34 34 29 3b 0a 20 20 20 20 69 66 20 , 0444);. if
7bf0: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 (chan == (Tcl_Ch
7c00: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
7c10: 44 69 67 65 73 74 53 74 61 74 65 46 72 65 65 28 DigestStateFree(
7c20: 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 statePtr);..retu
7c30: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7c40: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 }.. /* Conf
7c50: 69 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f igure channel */
7c60: 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 . if ((res =
7c70: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_SetChannelOp
7c80: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 tion(interp, cha
7c90: 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e n, "-translation
7ca0: 22 2c 20 22 62 69 6e 61 72 79 22 29 29 20 21 3d ", "binary")) !=
7cb0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f TCL_OK) {..goto
7cc0: 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 20 20 20 done;. }.
7cd0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 42 Tcl_SetChannelB
7ce0: 75 66 66 65 72 53 69 7a 65 28 63 68 61 6e 2c 20 ufferSize(chan,
7cf0: 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a 0a 20 BUFFER_SIZE);..
7d00: 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 /* Initialize
7d10: 20 68 61 73 68 20 66 75 6e 63 74 69 6f 6e 20 2a hash function *
7d20: 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d /. if ((res =
7d30: 20 44 69 67 65 73 74 49 6e 69 74 69 61 6c 69 7a DigestInitializ
7d40: 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 e(interp, stateP
7d50: 74 72 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 63 tr, digestObj, c
7d60: 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a ipherObj, keyObj
7d70: 2c 20 6d 61 63 4f 62 6a 29 29 20 21 3d 20 54 43 , macObj)) != TC
7d80: 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 6f L_OK) {..goto do
7d90: 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ne;. }.. /
7da0: 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 61 * Read file data
7db0: 20 61 6e 64 20 75 70 64 61 74 65 20 68 61 73 68 and update hash
7dc0: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
7dd0: 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f 66 while (!Tcl_Eof
7de0: 28 63 68 61 6e 29 29 20 7b 0a 09 6c 65 6e 20 3d (chan)) {..len =
7df0: 20 54 63 6c 5f 52 65 61 64 52 61 77 28 63 68 61 Tcl_ReadRaw(cha
7e00: 6e 2c 20 28 63 68 61 72 20 2a 29 20 62 75 66 2c n, (char *) buf,
7e10: 20 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a 09 BUFFER_SIZE);..
7e20: 69 66 20 28 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 if (len > 0) {..
7e30: 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 44 if ((res = D
7e40: 69 67 65 73 74 55 70 64 61 74 65 28 73 74 61 74 igestUpdate(stat
7e50: 65 50 74 72 2c 20 26 62 75 66 5b 30 5d 2c 20 28 ePtr, &buf[0], (
7e60: 73 69 7a 65 5f 74 29 20 6c 65 6e 2c 20 31 29 29 size_t) len, 1))
7e70: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 != TCL_OK) {...
7e80: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 goto done;..
7e90: 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 }..}. }..
7ea0: 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 68 61 73 68 /* Finalize hash
7eb0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 63 61 function and ca
7ec0: 6c 63 75 6c 61 74 65 20 6d 65 73 73 61 67 65 20 lculate message
7ed0: 64 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 72 65 digest */. re
7ee0: 73 20 3d 20 44 69 67 65 73 74 46 69 6e 61 6c 69 s = DigestFinali
7ef0: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
7f00: 50 74 72 2c 20 4e 55 4c 4c 29 3b 0a 0a 64 6f 6e Ptr, NULL);..don
7f10: 65 3a 0a 20 20 20 20 2f 2a 20 43 6c 6f 73 65 20 e:. /* Close
7f20: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
7f30: 66 20 28 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 f (Tcl_Close(int
7f40: 65 72 70 2c 20 63 68 61 6e 29 20 3d 3d 20 54 43 erp, chan) == TC
7f50: 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72 65 73 20 L_ERROR) {..res
7f60: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 = TCL_ERROR;.
7f70: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e }.. /* Clean
7f80: 2d 75 70 20 2a 2f 0a 20 20 20 20 44 69 67 65 73 -up */. Diges
7f90: 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 tStateFree(state
7fa0: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Ptr);. return
7fb0: 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a res;.}../******
7fc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7fd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7fe0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7ff0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
8000: 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 static const cha
8010: 72 20 2a 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 20 r *command_opts
8020: 5b 5d 20 3d 20 7b 20 22 2d 62 69 6e 22 2c 20 22 [] = { "-bin", "
8030: 2d 62 69 6e 61 72 79 22 2c 20 22 2d 68 65 78 22 -binary", "-hex"
8040: 2c 20 22 2d 68 65 78 61 64 65 63 69 6d 61 6c 22 , "-hexadecimal"
8050: 2c 0a 20 20 20 20 22 2d 63 68 61 6e 22 2c 20 22 ,. "-chan", "
8060: 2d 63 68 61 6e 6e 65 6c 22 2c 20 22 2d 63 69 70 -channel", "-cip
8070: 68 65 72 22 2c 20 22 2d 63 6f 6d 6d 61 6e 64 22 her", "-command"
8080: 2c 20 22 2d 64 61 74 61 22 2c 20 22 2d 64 69 67 , "-data", "-dig
8090: 65 73 74 22 2c 20 22 2d 66 69 6c 65 22 2c 20 22 est", "-file", "
80a0: 2d 66 69 6c 65 6e 61 6d 65 22 2c 0a 20 20 20 20 -filename",.
80b0: 22 2d 68 61 73 68 22 2c 20 22 2d 6b 65 79 22 2c "-hash", "-key",
80c0: 20 22 2d 6d 61 63 22 2c 20 4e 55 4c 4c 7d 3b 0a "-mac", NULL};.
80d0: 0a 65 6e 75 6d 20 5f 63 6f 6d 6d 61 6e 64 5f 6f .enum _command_o
80e0: 70 74 73 20 7b 0a 20 20 20 20 5f 6f 70 74 5f 62 pts {. _opt_b
80f0: 69 6e 2c 20 5f 6f 70 74 5f 62 69 6e 61 72 79 2c in, _opt_binary,
8100: 20 5f 6f 70 74 5f 68 65 78 2c 20 5f 6f 70 74 5f _opt_hex, _opt_
8110: 68 65 78 61 64 65 63 69 6d 61 6c 2c 20 5f 6f 70 hexadecimal, _op
8120: 74 5f 63 68 61 6e 2c 20 5f 6f 70 74 5f 63 68 61 t_chan, _opt_cha
8130: 6e 6e 65 6c 2c 20 5f 6f 70 74 5f 63 69 70 68 65 nnel, _opt_ciphe
8140: 72 2c 0a 20 20 20 20 5f 6f 70 74 5f 63 6f 6d 6d r,. _opt_comm
8150: 61 6e 64 2c 20 5f 6f 70 74 5f 64 61 74 61 2c 20 and, _opt_data,
8160: 5f 6f 70 74 5f 64 69 67 65 73 74 2c 20 5f 6f 70 _opt_digest, _op
8170: 74 5f 66 69 6c 65 2c 20 5f 6f 70 74 5f 66 69 6c t_file, _opt_fil
8180: 65 6e 61 6d 65 2c 20 5f 6f 70 74 5f 68 61 73 68 ename, _opt_hash
8190: 2c 20 5f 6f 70 74 5f 6b 65 79 2c 20 5f 6f 70 74 , _opt_key, _opt
81a0: 5f 6d 61 63 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d _mac.};../*. *--
81b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
81f0: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4d 61 -. *. * DigestMa
8200: 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 in --. *. *.Retu
8210: 72 6e 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 rn message diges
8220: 74 20 6f 72 20 4d 65 73 73 61 67 65 20 41 75 74 t or Message Aut
8230: 68 65 6e 74 69 63 61 74 69 6f 6e 20 43 6f 64 65 hentication Code
8240: 20 28 4d 41 43 29 20 6f 66 0a 20 2a 09 64 61 74 (MAC) of. *.dat
8250: 61 20 75 73 69 6e 67 20 75 73 65 72 20 73 70 65 a using user spe
8260: 63 69 66 69 65 64 20 68 61 73 68 20 66 75 6e 63 cified hash func
8270: 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 tion.. *. * Retu
8280: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
8290: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
82a0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
82b0: 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 *.Sets result t
82c0: 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 o message digest
82d0: 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 or error messag
82e0: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
82f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
8330: 74 61 74 69 63 20 69 6e 74 20 44 69 67 65 73 74 tatic int Digest
8340: 4d 61 69 6e 28 69 6e 74 20 74 79 70 65 2c 20 54 Main(int type, T
8350: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
8360: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
8370: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
8380: 5b 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 73 74 []) {. int st
8390: 61 72 74 20 3d 20 31 2c 20 66 6f 72 6d 61 74 20 art = 1, format
83a0: 3d 20 48 45 58 5f 46 4f 52 4d 41 54 2c 20 72 65 = HEX_FORMAT, re
83b0: 73 20 3d 20 54 43 4c 5f 4f 4b 2c 20 66 6e 3b 0a s = TCL_OK, fn;.
83c0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 Tcl_Obj *cip
83d0: 68 65 72 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a herObj = NULL, *
83e0: 63 6d 64 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a cmdObj = NULL, *
83f0: 64 61 74 61 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 dataObj = NULL,
8400: 2a 64 69 67 65 73 74 4f 62 6a 20 3d 20 4e 55 4c *digestObj = NUL
8410: 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a L;. Tcl_Obj *
8420: 66 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 fileObj = NULL,
8430: 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 *keyObj = NULL,
8440: 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a *macObj = NULL;.
8450: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
8460: 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c 20 channel = NULL,
8470: 2a 6f 70 74 3b 0a 0a 20 20 20 20 64 70 72 69 6e *opt;.. dprin
8480: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
8490: 20 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 /* Clear inte
84a0: 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 rp result */.
84b0: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
84c0: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f (interp);.. /
84d0: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
84e0: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
84f0: 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 objc < 3 || objc
8500: 20 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 > 12) {..Tcl_Wr
8510: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
8520: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 62 p, 1, objv, "?-b
8530: 69 6e 7c 2d 68 65 78 3f 20 3f 2d 63 69 70 68 65 in|-hex? ?-ciphe
8540: 72 20 6e 61 6d 65 3f 20 3f 2d 64 69 67 65 73 74 r name? ?-digest
8550: 20 6e 61 6d 65 3f 20 3f 2d 6b 65 79 20 6b 65 79 name? ?-key key
8560: 3f 20 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d ? ?-mac name? [-
8570: 63 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d channel chan | -
8580: 63 6f 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 20 command cmdName
8590: 7c 20 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 | -file filename
85a0: 20 7c 20 3f 2d 64 61 74 61 3f 20 64 61 74 61 5d | ?-data? data]
85b0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
85c0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
85d0: 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63 61 73 /* Special cas
85e0: 65 20 6f 66 20 66 69 72 73 74 20 61 72 67 20 69 e of first arg i
85f0: 73 20 64 69 67 65 73 74 2c 20 63 69 70 68 65 72 s digest, cipher
8600: 2c 20 6f 72 20 6d 61 63 20 2a 2f 0a 20 20 20 20 , or mac */.
8610: 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 opt = Tcl_GetStr
8620: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
8630: 73 74 61 72 74 5d 2c 20 4e 55 4c 4c 29 3b 0a 20 start], NULL);.
8640: 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d if (opt[0] !=
8650: 20 27 2d 27 29 20 7b 0a 09 73 77 69 74 63 68 28 '-') {..switch(
8660: 74 79 70 65 29 20 7b 0a 09 63 61 73 65 20 54 59 type) {..case TY
8670: 50 45 5f 4d 44 3a 0a 09 63 61 73 65 20 54 59 50 PE_MD:..case TYP
8680: 45 5f 48 4d 41 43 3a 0a 09 20 20 20 20 64 69 67 E_HMAC:.. dig
8690: 65 73 74 4f 62 6a 20 3d 20 6f 62 6a 76 5b 73 74 estObj = objv[st
86a0: 61 72 74 2b 2b 5d 3b 0a 09 20 20 20 20 62 72 65 art++];.. bre
86b0: 61 6b 3b 0a 09 63 61 73 65 20 54 59 50 45 5f 43 ak;..case TYPE_C
86c0: 4d 41 43 3a 0a 09 20 20 20 20 63 69 70 68 65 72 MAC:.. cipher
86d0: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 73 74 61 72 74 Obj = objv[start
86e0: 2b 2b 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ++];.. break;
86f0: 0a 09 63 61 73 65 20 54 59 50 45 5f 4d 41 43 3a ..case TYPE_MAC:
8700: 0a 09 20 20 20 20 6d 61 63 4f 62 6a 20 3d 20 6f .. macObj = o
8710: 62 6a 76 5b 73 74 61 72 74 2b 2b 5d 3b 0a 09 20 bjv[start++];..
8720: 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 break;..}.
8730: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f }.. /* Get o
8740: 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 6f ptions */. fo
8750: 72 20 28 69 6e 74 20 69 64 78 20 3d 20 73 74 61 r (int idx = sta
8760: 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 rt; idx < objc;
8770: 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a 20 53 70 65 idx++) {../* Spe
8780: 63 69 61 6c 20 63 61 73 65 20 66 6f 72 20 77 68 cial case for wh
8790: 65 6e 20 6c 61 73 74 20 61 72 67 20 69 73 20 64 en last arg is d
87a0: 61 74 61 20 2a 2f 0a 09 69 66 20 28 69 64 78 20 ata */..if (idx
87b0: 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 20 7b 0a 09 == objc - 1) {..
87c0: 20 20 20 20 6f 70 74 20 3d 20 54 63 6c 5f 47 65 opt = Tcl_Ge
87d0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
87e0: 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b bjv[idx], NULL);
87f0: 0a 09 20 20 20 20 69 66 20 28 6f 70 74 5b 30 5d .. if (opt[0]
8800: 20 21 3d 20 27 2d 27 20 26 26 20 64 61 74 61 4f != '-' && dataO
8810: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 bj == NULL) {...
8820: 64 61 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 dataObj = objv[i
8830: 64 78 5d 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 dx];...break;..
8840: 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 47 65 74 }..}.../* Get
8850: 20 6f 70 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 option */..if (
8860: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d Tcl_GetIndexFrom
8870: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
8880: 5b 69 64 78 5d 2c 20 63 6f 6d 6d 61 6e 64 5f 6f [idx], command_o
8890: 70 74 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 pts, "option", 0
88a0: 2c 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b , &fn) != TCL_OK
88b0: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
88c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 TCL_ERROR;..}...
88d0: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
88e0: 68 61 73 20 61 20 76 61 6c 75 65 20 2a 2f 0a 09 has a value */..
88f0: 69 66 20 28 66 6e 20 3e 20 5f 6f 70 74 5f 68 65 if (fn > _opt_he
8900: 78 61 64 65 63 69 6d 61 6c 29 20 7b 0a 09 20 20 xadecimal) {..
8910: 20 20 69 66 20 28 2b 2b 69 64 78 20 3e 3d 20 6f if (++idx >= o
8920: 62 6a 63 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 bjc) {...Tcl_App
8930: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8940: 2c 20 22 4e 6f 20 76 61 6c 75 65 20 66 6f 72 20 , "No value for
8950: 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 63 6f 6d 6d option \"", comm
8960: 61 6e 64 5f 6f 70 74 73 5b 66 6e 5d 2c 20 22 5c and_opts[fn], "\
8970: 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c "", (char *) NUL
8980: 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c L);...return TCL
8990: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 _ERROR;.. }..
89a0: 7d 0a 0a 09 73 77 69 74 63 68 28 66 6e 29 20 7b }...switch(fn) {
89b0: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 62 69 6e 3a ..case _opt_bin:
89c0: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 62 69 6e 61 ..case _opt_bina
89d0: 72 79 3a 0a 09 20 20 20 20 66 6f 72 6d 61 74 20 ry:.. format
89e0: 3d 20 42 49 4e 5f 46 4f 52 4d 41 54 3b 0a 09 20 = BIN_FORMAT;..
89f0: 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 break;..case
8a00: 5f 6f 70 74 5f 68 65 78 3a 0a 09 63 61 73 65 20 _opt_hex:..case
8a10: 5f 6f 70 74 5f 68 65 78 61 64 65 63 69 6d 61 6c _opt_hexadecimal
8a20: 3a 0a 09 20 20 20 20 66 6f 72 6d 61 74 20 3d 20 :.. format =
8a30: 48 45 58 5f 46 4f 52 4d 41 54 3b 0a 09 20 20 20 HEX_FORMAT;..
8a40: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8a50: 70 74 5f 63 68 61 6e 3a 0a 09 63 61 73 65 20 5f pt_chan:..case _
8a60: 6f 70 74 5f 63 68 61 6e 6e 65 6c 3a 0a 20 20 20 opt_channel:.
8a70: 20 09 20 20 20 20 47 45 54 5f 4f 50 54 5f 53 54 . GET_OPT_ST
8a80: 52 49 4e 47 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 RING(objv[idx],
8a90: 63 68 61 6e 6e 65 6c 2c 20 4e 55 4c 4c 29 3b 0a channel, NULL);.
8aa0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8ab0: 65 20 5f 6f 70 74 5f 63 69 70 68 65 72 3a 0a 09 e _opt_cipher:..
8ac0: 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 cipherObj =
8ad0: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8ae0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8af0: 74 5f 63 6f 6d 6d 61 6e 64 3a 0a 09 20 20 20 20 t_command:..
8b00: 63 6d 64 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 cmdObj = objv[id
8b10: 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a x];.. break;.
8b20: 09 63 61 73 65 20 5f 6f 70 74 5f 64 61 74 61 3a .case _opt_data:
8b30: 0a 09 20 20 20 20 64 61 74 61 4f 62 6a 20 3d 20 .. dataObj =
8b40: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8b50: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8b60: 74 5f 64 69 67 65 73 74 3a 0a 09 63 61 73 65 20 t_digest:..case
8b70: 5f 6f 70 74 5f 68 61 73 68 3a 0a 09 20 20 20 20 _opt_hash:..
8b80: 64 69 67 65 73 74 4f 62 6a 20 3d 20 6f 62 6a 76 digestObj = objv
8b90: 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 [idx];.. brea
8ba0: 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 66 69 k;..case _opt_fi
8bb0: 6c 65 3a 0a 09 63 61 73 65 20 5f 6f 70 74 5f 66 le:..case _opt_f
8bc0: 69 6c 65 6e 61 6d 65 3a 0a 09 20 20 20 20 66 69 ilename:.. fi
8bd0: 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 leObj = objv[idx
8be0: 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 ];.. break;..
8bf0: 63 61 73 65 20 5f 6f 70 74 5f 6b 65 79 3a 0a 09 case _opt_key:..
8c00: 20 20 20 20 6b 65 79 4f 62 6a 20 3d 20 6f 62 6a keyObj = obj
8c10: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8c20: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6d ak;..case _opt_m
8c30: 61 63 3a 0a 09 20 20 20 20 6d 61 63 4f 62 6a 20 ac:.. macObj
8c40: 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 = objv[idx];..
8c50: 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 20 break;..}.
8c60: 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 }.. /* Check
8c70: 74 79 70 65 73 20 2a 2f 0a 20 20 20 20 69 66 20 types */. if
8c80: 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 4d 44 (type == TYPE_MD
8c90: 29 20 7b 0a 09 20 69 66 20 28 6d 61 63 4f 62 6a ) {.. if (macObj
8ca0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 != NULL) {..
8cb0: 20 74 79 70 65 20 3d 20 54 59 50 45 5f 4d 41 43 type = TYPE_MAC
8cc0: 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 63 69 ;..} else if (ci
8cd0: 70 68 65 72 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 pherObj != NULL)
8ce0: 20 7b 0a 09 20 20 20 20 74 79 70 65 20 3d 20 54 {.. type = T
8cf0: 59 50 45 5f 43 4d 41 43 3b 0a 09 7d 20 65 6c 73 YPE_CMAC;..} els
8d00: 65 20 69 66 20 28 6b 65 79 4f 62 6a 20 21 3d 20 e if (keyObj !=
8d10: 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 74 79 70 NULL) {.. typ
8d20: 65 20 3d 20 54 59 50 45 5f 48 4d 41 43 3b 0a 09 e = TYPE_HMAC;..
8d30: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 }. }.. if
8d40: 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 4d 41 (type == TYPE_MA
8d50: 43 29 20 7b 0a 09 69 66 20 28 6d 61 63 4f 62 6a C) {..if (macObj
8d60: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 != NULL) {..
8d70: 20 63 68 61 72 20 2a 6d 61 63 4e 61 6d 65 20 3d char *macName =
8d80: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
8d90: 6f 6d 4f 62 6a 28 6d 61 63 4f 62 6a 2c 20 4e 55 omObj(macObj, NU
8da0: 4c 4c 29 3b 0a 09 20 20 20 20 69 66 20 28 73 74 LL);.. if (st
8db0: 72 63 6d 70 28 6d 61 63 4e 61 6d 65 2c 22 63 6d rcmp(macName,"cm
8dc0: 61 63 22 29 20 3d 3d 20 30 29 20 7b 0a 09 09 74 ac") == 0) {...t
8dd0: 79 70 65 20 3d 20 54 59 50 45 5f 43 4d 41 43 3b ype = TYPE_CMAC;
8de0: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
8df0: 28 73 74 72 63 6d 70 28 6d 61 63 4e 61 6d 65 2c (strcmp(macName,
8e00: 22 68 6d 61 63 22 29 20 3d 3d 20 30 29 20 7b 0a "hmac") == 0) {.
8e10: 09 09 74 79 70 65 20 3d 20 54 59 50 45 5f 48 4d ..type = TYPE_HM
8e20: 41 43 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 AC;.. } else
8e30: 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {...Tcl_AppendRe
8e40: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e sult(interp, "In
8e50: 76 61 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 6d valid MAC \"", m
8e60: 61 63 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 acName, "\"", NU
8e70: 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 LL);...return TC
8e80: 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a L_ERROR;.. }.
8e90: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 .} else {.. T
8ea0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8eb0: 69 6e 74 65 72 70 2c 20 22 4e 6f 20 4d 41 43 20 interp, "No MAC
8ec0: 73 70 65 63 69 66 69 65 64 22 2c 20 4e 55 4c 4c specified", NULL
8ed0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
8ee0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 CL_ERROR;..}.
8ef0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 61 6c 63 20 }.. /* Calc
8f00: 64 69 67 65 73 74 20 6f 6e 20 66 69 6c 65 2c 20 digest on file,
8f10: 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2c stacked channel,
8f20: 20 75 73 69 6e 67 20 69 6e 73 74 61 6e 63 65 20 using instance
8f30: 63 6f 6d 6d 61 6e 64 2c 20 6f 72 20 64 61 74 61 command, or data
8f40: 20 62 6c 6f 62 20 2a 2f 0a 20 20 20 20 69 66 20 blob */. if
8f50: 28 66 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c (fileObj != NULL
8f60: 29 20 7b 0a 09 72 65 73 20 3d 20 44 69 67 65 73 ) {..res = Diges
8f70: 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 69 6e 74 tFileHandler(int
8f80: 65 72 70 2c 20 66 69 6c 65 4f 62 6a 2c 20 64 69 erp, fileObj, di
8f90: 67 65 73 74 4f 62 6a 2c 20 63 69 70 68 65 72 4f gestObj, cipherO
8fa0: 62 6a 2c 20 66 6f 72 6d 61 74 20 7c 20 74 79 70 bj, format | typ
8fb0: 65 2c 20 6b 65 79 4f 62 6a 2c 20 6d 61 63 4f 62 e, keyObj, macOb
8fc0: 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 j);. } else i
8fd0: 66 20 28 63 68 61 6e 6e 65 6c 20 21 3d 20 4e 55 f (channel != NU
8fe0: 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 44 69 67 LL) {..res = Dig
8ff0: 65 73 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 estChannelHandle
9000: 72 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 r(interp, channe
9010: 6c 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 63 69 l, digestObj, ci
9020: 70 68 65 72 4f 62 6a 2c 20 66 6f 72 6d 61 74 20 pherObj, format
9030: 7c 20 74 79 70 65 2c 20 6b 65 79 4f 62 6a 2c 20 | type, keyObj,
9040: 6d 61 63 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 macObj);. } e
9050: 6c 73 65 20 69 66 20 28 63 6d 64 4f 62 6a 20 21 lse if (cmdObj !
9060: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d = NULL) {..res =
9070: 20 44 69 67 65 73 74 43 6f 6d 6d 61 6e 64 48 61 DigestCommandHa
9080: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 63 6d ndler(interp, cm
9090: 64 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c dObj, digestObj,
90a0: 20 63 69 70 68 65 72 4f 62 6a 2c 20 66 6f 72 6d cipherObj, form
90b0: 61 74 20 7c 20 74 79 70 65 2c 20 6b 65 79 4f 62 at | type, keyOb
90c0: 6a 2c 20 6d 61 63 4f 62 6a 29 3b 0a 20 20 20 20 j, macObj);.
90d0: 7d 20 65 6c 73 65 20 69 66 20 28 64 61 74 61 4f } else if (dataO
90e0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 bj != NULL) {..r
90f0: 65 73 20 3d 20 44 69 67 65 73 74 44 61 74 61 48 es = DigestDataH
9100: 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 64 andler(interp, d
9110: 61 74 61 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 ataObj, digestOb
9120: 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 66 6f j, cipherObj, fo
9130: 72 6d 61 74 20 7c 20 74 79 70 65 2c 20 6b 65 79 rmat | type, key
9140: 4f 62 6a 2c 20 6d 61 63 4f 62 6a 29 3b 0a 20 20 Obj, macObj);.
9150: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
9160: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
9170: 65 72 70 2c 20 22 4e 6f 20 6f 70 65 72 61 74 69 erp, "No operati
9180: 6f 6e 20 73 70 65 63 69 66 69 65 64 3a 20 55 73 on specified: Us
9190: 65 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d e -channel, -com
91a0: 6d 61 6e 64 2c 20 2d 64 61 74 61 2c 20 6f 72 20 mand, -data, or
91b0: 2d 66 69 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 4e -file option", N
91c0: 55 4c 4c 29 3b 0a 09 72 65 73 20 3d 20 54 43 4c ULL);..res = TCL
91d0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
91e0: 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a return res;.}.
91f0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
9200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
9240: 4d 65 73 73 61 67 65 20 44 69 67 65 73 74 20 61 Message Digest a
9250: 6e 64 20 4d 65 73 73 61 67 65 20 41 75 74 68 65 nd Message Authe
9260: 6e 74 69 63 61 74 69 6f 6e 20 43 6f 64 65 20 43 ntication Code C
9270: 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a ommands --. *. *
9280: 09 52 65 74 75 72 6e 20 4d 65 73 73 61 67 65 20 .Return Message
9290: 44 69 67 65 73 74 20 28 4d 44 29 20 6f 72 20 4d Digest (MD) or M
92a0: 65 73 73 61 67 65 20 41 75 74 68 65 6e 74 69 63 essage Authentic
92b0: 61 74 69 6f 6e 20 43 6f 64 65 20 28 4d 41 43 29 ation Code (MAC)
92c0: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
92d0: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
92e0: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
92f0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
9300: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 6d 65 ets result to me
9310: 73 73 61 67 65 20 64 69 67 65 73 74 20 6f 72 20 ssage digest or
9320: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a error message. *
9330: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
9340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9370: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
9380: 63 20 69 6e 74 20 4d 64 4f 62 6a 43 6d 64 28 43 c int MdObjCmd(C
9390: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
93a0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
93b0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
93c0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
93d0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
93e0: 20 72 65 74 75 72 6e 20 44 69 67 65 73 74 4d 61 return DigestMa
93f0: 69 6e 28 54 59 50 45 5f 4d 44 2c 20 69 6e 74 65 in(TYPE_MD, inte
9400: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b rp, objc, objv);
9410: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 43 .}..static int C
9420: 4d 41 43 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 MACObjCmd(Client
9430: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
9440: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
9450: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
9460: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
9470: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 jv[]) {. retu
9480: 72 6e 20 44 69 67 65 73 74 4d 61 69 6e 28 54 59 rn DigestMain(TY
9490: 50 45 5f 43 4d 41 43 2c 20 69 6e 74 65 72 70 2c PE_CMAC, interp,
94a0: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a objc, objv);.}.
94b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 48 4d 41 43 .static int HMAC
94c0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
94d0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
94e0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
94f0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
9500: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
9510: 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ]) {. return
9520: 44 69 67 65 73 74 4d 61 69 6e 28 54 59 50 45 5f DigestMain(TYPE_
9530: 48 4d 41 43 2c 20 69 6e 74 65 72 70 2c 20 6f 62 HMAC, interp, ob
9540: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 jc, objv);.}..st
9550: 61 74 69 63 20 69 6e 74 20 4d 41 43 4f 62 6a 43 atic int MACObjC
9560: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
9570: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
9580: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
9590: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
95a0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
95b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 44 69 67 65 . return Dige
95c0: 73 74 4d 61 69 6e 28 54 59 50 45 5f 4d 41 43 2c stMain(TYPE_MAC,
95d0: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f interp, objc, o
95e0: 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d bjv);.}../*. *--
95f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9630: 2d 0a 20 2a 0a 20 2a 20 4d 65 73 73 61 67 65 20 -. *. * Message
9640: 44 69 67 65 73 74 20 43 6f 6e 76 65 6e 69 65 6e Digest Convenien
9650: 63 65 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 ce Commands --.
9660: 2a 0a 20 2a 09 43 6f 6e 76 65 6e 69 65 6e 63 65 *. *.Convenience
9670: 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 73 65 commands for se
9680: 6c 65 63 74 20 6d 65 73 73 61 67 65 20 64 69 67 lect message dig
9690: 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 ests.. *. * Retu
96a0: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
96b0: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
96c0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
96d0: 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 *.Sets result t
96e0: 6f 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 o message digest
96f0: 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 or error messag
9700: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
9710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 20 ----------. */.
9750: 69 6e 74 20 54 65 6d 70 6c 61 74 65 43 6d 64 28 int TemplateCmd(
9760: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
9770: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
9780: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
9790: 76 5b 5d 2c 20 63 68 61 72 20 2a 64 69 67 65 73 v[], char *diges
97a0: 74 4e 61 6d 65 2c 20 69 6e 74 20 66 6f 72 6d 61 tName, int forma
97b0: 74 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a t) {. Tcl_Obj
97c0: 20 2a 64 61 74 61 4f 62 6a 2c 20 2a 64 69 67 65 *dataObj, *dige
97d0: 73 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 stObj;. int r
97e0: 65 73 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a es;.. if (obj
97f0: 63 20 3d 3d 20 32 29 20 7b 0a 09 64 61 74 61 4f c == 2) {..dataO
9800: 62 6a 20 3d 20 6f 62 6a 76 5b 31 5d 3b 0a 20 20 bj = objv[1];.
9810: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
9820: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
9830: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 64 erp, 1, objv, "d
9840: 61 74 61 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ata");..return T
9850: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
9860: 0a 20 20 20 20 64 69 67 65 73 74 4f 62 6a 20 3d . digestObj =
9870: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
9880: 6a 28 64 69 67 65 73 74 4e 61 6d 65 2c 20 2d 31 j(digestName, -1
9890: 29 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 );. Tcl_IncrR
98a0: 65 66 43 6f 75 6e 74 28 64 69 67 65 73 74 4f 62 efCount(digestOb
98b0: 6a 29 3b 0a 20 20 20 20 72 65 73 20 3d 20 44 69 j);. res = Di
98c0: 67 65 73 74 44 61 74 61 48 61 6e 64 6c 65 72 28 gestDataHandler(
98d0: 69 6e 74 65 72 70 2c 20 64 61 74 61 4f 62 6a 2c interp, dataObj,
98e0: 20 64 69 67 65 73 74 4f 62 6a 2c 20 4e 55 4c 4c digestObj, NULL
98f0: 2c 20 66 6f 72 6d 61 74 2c 20 4e 55 4c 4c 2c 20 , format, NULL,
9900: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 44 NULL);. Tcl_D
9910: 65 63 72 52 65 66 43 6f 75 6e 74 28 64 69 67 65 ecrRefCount(dige
9920: 73 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 stObj);. retu
9930: 72 6e 20 72 65 73 3b 0a 7d 0a 20 0a 69 6e 74 20 rn res;.}. .int
9940: 4d 44 34 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 MD4ObjCmd(Client
9950: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
9960: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
9970: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
9980: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
9990: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 jv[]) {. retu
99a0: 72 6e 20 54 65 6d 70 6c 61 74 65 43 6d 64 28 69 rn TemplateCmd(i
99b0: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
99c0: 76 2c 20 22 6d 64 34 22 2c 20 48 45 58 5f 46 4f v, "md4", HEX_FO
99d0: 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 29 3b RMAT | TYPE_MD);
99e0: 0a 7d 0a 0a 69 6e 74 20 4d 44 35 4f 62 6a 43 6d .}..int MD5ObjCm
99f0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
9a00: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
9a10: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
9a20: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
9a30: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
9a40: 20 20 20 20 72 65 74 75 72 6e 20 54 65 6d 70 6c return Templ
9a50: 61 74 65 43 6d 64 28 69 6e 74 65 72 70 2c 20 6f ateCmd(interp, o
9a60: 62 6a 63 2c 20 6f 62 6a 76 2c 20 22 6d 64 35 22 bjc, objv, "md5"
9a70: 2c 20 48 45 58 5f 46 4f 52 4d 41 54 20 7c 20 54 , HEX_FORMAT | T
9a80: 59 50 45 5f 4d 44 29 3b 0a 7d 0a 0a 69 6e 74 20 YPE_MD);.}..int
9a90: 53 48 41 31 4f 62 6a 43 6d 64 28 43 6c 69 65 6e SHA1ObjCmd(Clien
9aa0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
9ab0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
9ac0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
9ad0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
9ae0: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 74 bjv[]) {. ret
9af0: 75 72 6e 20 54 65 6d 70 6c 61 74 65 43 6d 64 28 urn TemplateCmd(
9b00: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
9b10: 6a 76 2c 20 22 73 68 61 31 22 2c 20 48 45 58 5f jv, "sha1", HEX_
9b20: 46 4f 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 FORMAT | TYPE_MD
9b30: 29 3b 0a 7d 0a 0a 69 6e 74 20 53 48 41 32 35 36 );.}..int SHA256
9b40: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
9b50: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
9b60: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9b70: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
9b80: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
9b90: 5d 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 ]) {. return
9ba0: 54 65 6d 70 6c 61 74 65 43 6d 64 28 69 6e 74 65 TemplateCmd(inte
9bb0: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 rp, objc, objv,
9bc0: 22 73 68 61 32 35 36 22 2c 20 48 45 58 5f 46 4f "sha256", HEX_FO
9bd0: 52 4d 41 54 20 7c 20 54 59 50 45 5f 4d 44 29 3b RMAT | TYPE_MD);
9be0: 0a 7d 0a 0a 69 6e 74 20 53 48 41 35 31 32 4f 62 .}..int SHA512Ob
9bf0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
9c00: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
9c10: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
9c20: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
9c30: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
9c40: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 65 {. return Te
9c50: 6d 70 6c 61 74 65 43 6d 64 28 69 6e 74 65 72 70 mplateCmd(interp
9c60: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 2c 20 22 73 , objc, objv, "s
9c70: 68 61 35 31 32 22 2c 20 48 45 58 5f 46 4f 52 4d ha512", HEX_FORM
9c80: 41 54 20 7c 20 54 59 50 45 5f 4d 44 29 3b 0a 7d AT | TYPE_MD);.}
9c90: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
9ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
9ce0: 20 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d 6d 61 Tls_DigestComma
9cf0: 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 nds --. *. *.Cre
9d00: 61 74 65 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 ate digest comma
9d10: 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e nds. *. * Return
9d20: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
9d30: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
9d40: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
9d50: 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 .Creates command
9d60: 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d s. *. *---------
9d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
9db0: 6e 74 20 54 6c 73 5f 44 69 67 65 73 74 43 6f 6d nt Tls_DigestCom
9dc0: 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 mands(Tcl_Interp
9dd0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 *interp) {.
9de0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
9df0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
9e00: 73 3a 3a 64 69 67 65 73 74 22 2c 20 4d 64 4f 62 s::digest", MdOb
9e10: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
9e20: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
9e30: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
9e40: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
9e50: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
9e60: 72 70 2c 20 22 74 6c 73 3a 3a 6d 64 22 2c 20 4d rp, "tls::md", M
9e70: 64 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 dObjCmd, (Client
9e80: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
9e90: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
9ea0: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
9eb0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
9ec0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 6d 61 nterp, "tls::cma
9ed0: 63 22 2c 20 43 4d 41 43 4f 62 6a 43 6d 64 2c 20 c", CMACObjCmd,
9ee0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
9ef0: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
9f00: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
9f10: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
9f20: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
9f30: 6c 73 3a 3a 68 6d 61 63 22 2c 20 48 4d 41 43 4f ls::hmac", HMACO
9f40: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
9f50: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
9f60: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
9f70: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
9f80: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
9f90: 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 61 63 22 2c erp, "tls::mac",
9fa0: 20 4d 41 43 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 MACObjCmd, (Cli
9fb0: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
9fc0: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
9fd0: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
9fe0: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
9ff0: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
a000: 6d 64 34 22 2c 20 4d 44 34 4f 62 6a 43 6d 64 2c md4", MD4ObjCmd,
a010: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
a020: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
a030: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
a040: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
a050: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
a060: 74 6c 73 3a 3a 6d 64 35 22 2c 20 4d 44 35 4f 62 tls::md5", MD5Ob
a070: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
a080: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
a090: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
a0a0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
a0b0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
a0c0: 72 70 2c 20 22 74 6c 73 3a 3a 73 68 61 31 22 2c rp, "tls::sha1",
a0d0: 20 53 48 41 31 4f 62 6a 43 6d 64 2c 20 28 43 6c SHA1ObjCmd, (Cl
a0e0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
a0f0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
a100: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
a110: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
a120: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
a130: 3a 73 68 61 32 35 36 22 2c 20 53 48 41 32 35 36 :sha256", SHA256
a140: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
a150: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
a160: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
a170: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
a180: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
a190: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 68 61 35 terp, "tls::sha5
a1a0: 31 32 22 2c 20 53 48 41 35 31 32 4f 62 6a 43 6d 12", SHA512ObjCm
a1b0: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
a1c0: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
a1d0: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
a1e0: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
a1f0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
a200: 20 22 74 6c 73 3a 3a 75 6e 73 74 61 63 6b 22 2c "tls::unstack",
a210: 20 44 69 67 65 73 74 55 6e 73 74 61 63 6b 4f 62 DigestUnstackOb
a220: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
a230: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
a240: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
a250: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
a260: 4c 5f 4f 4b 3b 0a 7d 0a 0a L_OK;.}..