0000: 2f 2a 0a 20 2a 20 43 72 79 70 74 6f 67 72 61 70 /*. * Cryptograp
0010: 68 69 63 20 55 74 69 6c 69 74 79 20 46 75 6e 63 hic Utility Func
0020: 74 69 6f 6e 73 0a 20 2a 0a 20 2a 20 50 72 6f 76 tions. *. * Prov
0030: 69 64 65 73 20 63 6f 6d 6d 61 6e 64 73 20 74 6f ides commands to
0040: 20 64 65 72 69 76 65 20 6b 65 79 73 2e 0a 20 2a derive keys.. *
0050: 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 28 43 . * Copyright (C
0060: 29 20 32 30 32 33 20 42 72 69 61 6e 20 4f 27 48 ) 2023 Brian O'H
0070: 61 67 61 6e 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e agan. *. */..#in
0080: 63 6c 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 clude "tlsInt.h"
0090: 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f 70 .#include "tclOp
00a0: 74 73 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c ts.h".#include <
00b0: 6f 70 65 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 0a openssl/evp.h>..
00c0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
00d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
0110: 55 74 69 6c 5f 47 65 74 43 69 70 68 65 72 20 2d Util_GetCipher -
0120: 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 73 79 6d 6d -. *. *.Get symm
0130: 65 74 72 69 63 20 63 69 70 68 65 72 20 66 72 6f etric cipher fro
0140: 6d 20 54 63 6c 4f 62 6a 0a 20 2a 0a 20 2a 20 52 m TclObj. *. * R
0150: 65 74 75 72 6e 73 3a 0a 20 2a 09 50 6f 69 6e 74 eturns:. *.Point
0160: 65 72 20 74 6f 20 74 79 70 65 20 6f 72 20 4e 55 er to type or NU
0170: 4c 4c 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 LL. *. * Side ef
0180: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 fects:. *.None.
0190: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
01a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01d0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 45 56 50 5f -------. */.EVP_
01e0: 43 49 50 48 45 52 20 2a 55 74 69 6c 5f 47 65 74 CIPHER *Util_Get
01f0: 43 69 70 68 65 72 28 54 63 6c 5f 49 6e 74 65 72 Cipher(Tcl_Inter
0200: 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p *interp, Tcl_O
0210: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 69 bj *cipherObj, i
0220: 6e 74 20 6e 6f 5f 6e 75 6c 6c 29 20 7b 0a 20 20 nt no_null) {.
0230: 20 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63 69 EVP_CIPHER *ci
0240: 70 68 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 pher = NULL;.
0250: 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 4e 55 char *name = NU
0260: 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 70 LL;.. if (cip
0270: 68 65 72 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 herObj != NULL)
0280: 7b 0a 09 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 {..name = Tcl_Ge
0290: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 tStringFromObj(c
02a0: 69 70 68 65 72 4f 62 6a 2c 20 4e 55 4c 4c 29 3b ipherObj, NULL);
02b0: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
02c0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
02d0: 33 30 30 30 30 30 30 30 4c 0a 09 63 69 70 68 65 30000000L..ciphe
02e0: 72 20 3d 20 45 56 50 5f 67 65 74 5f 63 69 70 68 r = EVP_get_ciph
02f0: 65 72 62 79 6e 61 6d 65 28 6e 61 6d 65 29 3b 0a erbyname(name);.
0300: 23 65 6c 73 65 0a 09 63 69 70 68 65 72 20 3d 20 #else..cipher =
0310: 45 56 50 5f 43 49 50 48 45 52 5f 66 65 74 63 68 EVP_CIPHER_fetch
0320: 28 4e 55 4c 4c 2c 20 6e 61 6d 65 2c 20 4e 55 4c (NULL, name, NUL
0330: 4c 29 3b 0a 23 65 6e 64 69 66 0a 09 69 66 20 28 L);.#endif..if (
0340: 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 cipher == NULL)
0350: 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e {.. Tcl_Appen
0360: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
0370: 22 69 6e 76 61 6c 69 64 20 63 69 70 68 65 72 20 "invalid cipher
0380: 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c \"", name, "\"",
0390: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
03a0: 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 ..}. } else i
03b0: 66 20 28 6e 6f 5f 6e 75 6c 6c 29 20 7b 0a 09 54 f (no_null) {..T
03c0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
03d0: 69 6e 74 65 72 70 2c 20 22 6e 6f 20 63 69 70 68 interp, "no ciph
03e0: 65 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 er", (char *) NU
03f0: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 LL);. }. r
0400: 65 74 75 72 6e 20 63 69 70 68 65 72 3b 0a 7d 0a eturn cipher;.}.
0410: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
0460: 55 74 69 6c 5f 47 65 74 44 69 67 65 73 74 20 2d Util_GetDigest -
0470: 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 6d 65 73 73 -. *. *.Get mess
0480: 61 67 65 20 64 69 67 65 73 74 20 28 4d 44 29 20 age digest (MD)
0490: 6f 72 20 68 61 73 68 20 66 72 6f 6d 20 54 63 6c or hash from Tcl
04a0: 4f 62 6a 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e Obj. *. * Return
04b0: 73 3a 0a 20 2a 09 50 6f 69 6e 74 65 72 20 74 6f s:. *.Pointer to
04c0: 20 74 79 70 65 20 6f 72 20 4e 55 4c 4c 0a 20 2a type or NULL. *
04d0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
04e0: 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d :. *.None. *. *-
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 0a 20 2a 2f 0a 45 56 50 5f 4d 44 20 2a 55 --. */.EVP_MD *U
0540: 74 69 6c 5f 47 65 74 44 69 67 65 73 74 28 54 63 til_GetDigest(Tc
0550: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0560: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 , Tcl_Obj *diges
0570: 74 4f 62 6a 2c 20 69 6e 74 20 6e 6f 5f 6e 75 6c tObj, int no_nul
0580: 6c 29 20 7b 0a 20 20 20 20 45 56 50 5f 4d 44 20 l) {. EVP_MD
0590: 2a 6d 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 *md = NULL;.
05a0: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 4e 55 4c char *name = NUL
05b0: 4c 3b 0a 0a 20 20 20 20 69 66 20 28 64 69 67 65 L;.. if (dige
05c0: 73 74 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b stObj != NULL) {
05d0: 0a 09 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 ..name = Tcl_Get
05e0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 64 69 StringFromObj(di
05f0: 67 65 73 74 4f 62 6a 2c 20 4e 55 4c 4c 29 3b 0a gestObj, NULL);.
0600: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 #if OPENSSL_VERS
0610: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 ION_NUMBER < 0x3
0620: 30 30 30 30 30 30 30 4c 0a 09 6d 64 20 3d 20 45 0000000L..md = E
0630: 56 50 5f 67 65 74 5f 64 69 67 65 73 74 62 79 6e VP_get_digestbyn
0640: 61 6d 65 28 6e 61 6d 65 29 3b 0a 23 65 6c 73 65 ame(name);.#else
0650: 0a 09 6d 64 20 3d 20 45 56 50 5f 4d 44 5f 66 65 ..md = EVP_MD_fe
0660: 74 63 68 28 4e 55 4c 4c 2c 20 6e 61 6d 65 2c 20 tch(NULL, name,
0670: 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 09 69 NULL);.#endif..i
0680: 66 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b f (md == NULL) {
0690: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
06a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
06b0: 69 6e 76 61 6c 69 64 20 64 69 67 65 73 74 20 5c invalid digest \
06c0: 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 "", name, "\"",
06d0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
06e0: 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 .}. } else if
06f0: 20 28 6e 6f 5f 6e 75 6c 6c 29 20 7b 0a 09 54 63 (no_null) {..Tc
0700: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
0710: 6e 74 65 72 70 2c 20 22 6e 6f 20 64 69 67 65 73 nterp, "no diges
0720: 74 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c t", (char *) NUL
0730: 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 L);. }. re
0740: 74 75 72 6e 20 6d 64 3b 0a 7d 0a 0a 2f 2a 0a 20 turn md;.}../*.
0750: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0790: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 74 69 6c 5f ----. *. * Util_
07a0: 47 65 74 49 56 20 2d 2d 0a 20 2a 0a 20 2a 09 47 GetIV --. *. *.G
07b0: 65 74 20 65 6e 63 72 79 70 74 69 6f 6e 20 69 6e et encryption in
07c0: 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 76 65 63 itialization vec
07d0: 74 6f 72 20 6f 72 20 73 65 65 64 20 66 72 6f 6d tor or seed from
07e0: 20 54 63 6c 4f 62 6a 0a 20 2a 0a 20 2a 20 52 65 TclObj. *. * Re
07f0: 74 75 72 6e 73 3a 0a 20 2a 09 50 6f 69 6e 74 65 turns:. *.Pointe
0800: 72 20 74 6f 20 74 79 70 65 20 6f 72 20 4e 55 4c r to type or NUL
0810: 4c 2c 20 61 6e 64 20 73 69 7a 65 0a 20 2a 0a 20 L, and size. *.
0820: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0830: 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d *.None. *. *---
0840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0880: 0a 20 2a 2f 0a 75 6e 73 69 67 6e 65 64 20 63 68 . */.unsigned ch
0890: 61 72 20 2a 55 74 69 6c 5f 47 65 74 49 56 28 54 ar *Util_GetIV(T
08a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
08b0: 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 p, Tcl_Obj *ivOb
08c0: 6a 2c 20 69 6e 74 20 2a 6c 65 6e 2c 20 69 6e 74 j, int *len, int
08d0: 20 6d 61 78 2c 20 69 6e 74 20 6e 6f 5f 6e 75 6c max, int no_nul
08e0: 6c 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 l) {. unsigne
08f0: 64 20 63 68 61 72 20 2a 69 76 20 3d 20 4e 55 4c d char *iv = NUL
0900: 4c 3b 0a 20 20 20 20 2a 6c 65 6e 20 3d 20 30 3b L;. *len = 0;
0910: 0a 0a 20 20 20 20 69 66 20 28 69 76 4f 62 6a 20 .. if (ivObj
0920: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 76 20 3d != NULL) {..iv =
0930: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
0940: 79 46 72 6f 6d 4f 62 6a 28 69 76 4f 62 6a 2c 20 yFromObj(ivObj,
0950: 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 len);. } else
0960: 20 69 66 20 28 6e 6f 5f 6e 75 6c 6c 29 20 7b 0a if (no_null) {.
0970: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
0980: 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 69 6e t(interp, "no in
0990: 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 76 65 63 itialization vec
09a0: 74 6f 72 20 28 49 56 29 22 2c 20 28 63 68 61 72 tor (IV)", (char
09b0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 *) NULL);..retu
09c0: 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a rn NULL;. }..
09d0: 20 20 20 20 69 66 20 28 6d 61 78 20 3e 20 30 20 if (max > 0
09e0: 26 26 20 2a 6c 65 6e 20 3e 20 6d 61 78 29 20 7b && *len > max) {
09f0: 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 ..Tcl_SetObjResu
0a00: 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f lt(interp, Tcl_O
0a10: 62 6a 50 72 69 6e 74 66 28 22 49 56 20 74 6f 6f bjPrintf("IV too
0a20: 20 6c 6f 6e 67 2e 20 4d 75 73 74 20 62 65 20 3c long. Must be <
0a30: 3d 20 25 64 20 62 79 74 65 73 22 2c 20 6d 61 78 = %d bytes", max
0a40: 29 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c ));..return NULL
0a50: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
0a60: 72 6e 20 69 76 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d rn iv;.}../*. *-
0a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ab0: 2d 2d 0a 20 2a 0a 20 2a 20 55 74 69 6c 5f 47 65 --. *. * Util_Ge
0ac0: 74 4b 65 79 20 2d 2d 0a 20 2a 0a 20 2a 09 47 65 tKey --. *. *.Ge
0ad0: 74 20 65 6e 63 72 79 70 74 69 6f 6e 20 6b 65 79 t encryption key
0ae0: 20 6f 72 20 70 61 73 73 77 6f 72 64 20 66 72 6f or password fro
0af0: 6d 20 54 63 6c 4f 62 6a 0a 20 2a 0a 20 2a 20 52 m TclObj. *. * R
0b00: 65 74 75 72 6e 73 3a 0a 20 2a 09 50 6f 69 6e 74 eturns:. *.Point
0b10: 65 72 20 74 6f 20 74 79 70 65 20 6f 72 20 4e 55 er to type or NU
0b20: 4c 4c 2c 20 61 6e 64 20 73 69 7a 65 0a 20 2a 0a LL, and size. *.
0b30: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0b40: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d . *.None. *. *--
0b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b90: 2d 0a 20 2a 2f 0a 75 6e 73 69 67 6e 65 64 20 63 -. */.unsigned c
0ba0: 68 61 72 20 2a 55 74 69 6c 5f 47 65 74 4b 65 79 har *Util_GetKey
0bb0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
0bc0: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 erp, Tcl_Obj *ke
0bd0: 79 4f 62 6a 2c 20 69 6e 74 20 2a 6c 65 6e 2c 20 yObj, int *len,
0be0: 63 68 61 72 20 2a 6e 61 6d 65 2c 20 69 6e 74 20 char *name, int
0bf0: 6d 61 78 2c 20 69 6e 74 20 6e 6f 5f 6e 75 6c 6c max, int no_null
0c00: 29 20 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 ) {. unsigned
0c10: 20 63 68 61 72 20 2a 6b 65 79 20 3d 20 4e 55 4c char *key = NUL
0c20: 4c 3b 0a 20 20 20 20 2a 6c 65 6e 20 3d 20 30 3b L;. *len = 0;
0c30: 0a 0a 20 20 20 20 69 66 20 28 6b 65 79 4f 62 6a .. if (keyObj
0c40: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6b 65 79 != NULL) {..key
0c50: 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 = Tcl_GetByteAr
0c60: 72 61 79 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 rayFromObj(keyOb
0c70: 6a 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 j, len);. } e
0c80: 6c 73 65 20 69 66 20 28 6e 6f 5f 6e 75 6c 6c 29 lse if (no_null)
0c90: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
0ca0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f sult(interp, "no
0cb0: 20 22 2c 20 6e 61 6d 65 2c 20 28 63 68 61 72 20 ", name, (char
0cc0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
0cd0: 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 n NULL;. }..
0ce0: 20 20 20 69 66 20 28 6d 61 78 20 3e 20 30 20 26 if (max > 0 &
0cf0: 26 20 2a 6c 65 6e 20 3e 20 6d 61 78 29 20 7b 0a & *len > max) {.
0d00: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c .Tcl_SetObjResul
0d10: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 t(interp, Tcl_Ob
0d20: 6a 50 72 69 6e 74 66 28 22 49 6e 76 61 6c 69 64 jPrintf("Invalid
0d30: 20 25 73 20 6c 65 6e 67 74 68 2e 20 4d 75 73 74 %s length. Must
0d40: 20 62 65 20 3c 3d 20 25 64 20 62 79 74 65 73 22 be <= %d bytes"
0d50: 2c 20 6e 61 6d 65 2c 20 6d 61 78 29 29 3b 0a 09 , name, max));..
0d60: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 return NULL;.
0d70: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 6b 65 }. return ke
0d80: 79 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d y;.}../*. *-----
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 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0dd0: 2a 0a 20 2a 20 55 74 69 6c 5f 47 65 74 4d 41 43 *. * Util_GetMAC
0de0: 20 2d 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 4d 65 --. *. *.Get Me
0df0: 73 73 61 67 65 20 41 75 74 68 65 6e 74 69 63 61 ssage Authentica
0e00: 74 69 6f 6e 20 43 6f 64 65 20 28 4d 41 43 29 20 tion Code (MAC)
0e10: 66 72 6f 6d 20 54 63 6c 4f 62 6a 0a 20 2a 0a 20 from TclObj. *.
0e20: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 50 6f * Returns:. *.Po
0e30: 69 6e 74 65 72 20 74 6f 20 74 79 70 65 20 6f 72 inter to type or
0e40: 20 4e 55 4c 4c 0a 20 2a 0a 20 2a 20 53 69 64 65 NULL. *. * Side
0e50: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
0e60: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 ----------. */.#
0eb0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
0ec0: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 ON_NUMBER >= 0x3
0ed0: 30 30 30 30 30 30 30 4c 0a 45 56 50 5f 4d 41 43 0000000L.EVP_MAC
0ee0: 20 2a 55 74 69 6c 5f 47 65 74 4d 41 43 28 54 63 *Util_GetMAC(Tc
0ef0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0f00: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 4d 61 63 4f 62 , Tcl_Obj *MacOb
0f10: 6a 2c 20 69 6e 74 20 6e 6f 5f 6e 75 6c 6c 29 20 j, int no_null)
0f20: 7b 0a 20 20 20 20 45 56 50 5f 4d 41 43 20 2a 6d {. EVP_MAC *m
0f30: 61 63 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 ac = NULL;. c
0f40: 68 61 72 20 2a 6e 61 6d 65 20 3d 20 4e 55 4c 4c har *name = NULL
0f50: 3b 0a 0a 20 20 20 20 69 66 20 28 4d 61 63 4f 62 ;.. if (MacOb
0f60: 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6e 61 j != NULL) {..na
0f70: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
0f80: 6e 67 46 72 6f 6d 4f 62 6a 28 4d 61 63 4f 62 6a ngFromObj(MacObj
0f90: 2c 20 4e 55 4c 4c 29 3b 0a 09 6d 61 63 20 3d 20 , NULL);..mac =
0fa0: 45 56 50 5f 4d 41 43 5f 66 65 74 63 68 28 4e 55 EVP_MAC_fetch(NU
0fb0: 4c 4c 2c 20 6e 61 6d 65 2c 20 4e 55 4c 4c 29 3b LL, name, NULL);
0fc0: 0a 09 69 66 20 28 6d 61 63 20 3d 3d 20 4e 55 4c ..if (mac == NUL
0fd0: 4c 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 L) {.. Tcl_Ap
0fe0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
0ff0: 70 2c 20 22 69 6e 76 61 6c 69 64 20 4d 41 43 20 p, "invalid MAC
1000: 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c \"", name, "\"",
1010: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
1020: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c .. return NUL
1030: 4c 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 L;..}. } else
1040: 20 69 66 20 28 6e 6f 5f 6e 75 6c 6c 29 20 7b 0a if (no_null) {.
1050: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1060: 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 4d 41 t(interp, "no MA
1070: 43 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c C", (char *) NUL
1080: 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 L);. }. re
1090: 74 75 72 6e 20 6d 61 63 3b 0a 7d 0a 23 65 6e 64 turn mac;.}.#end
10a0: 69 66 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d if../*. *-------
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
10f0: 20 2a 20 55 74 69 6c 5f 47 65 74 53 61 6c 74 20 * Util_GetSalt
1100: 2d 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 65 6e 63 --. *. *.Get enc
1110: 72 79 70 74 69 6f 6e 20 73 61 6c 74 20 66 72 6f ryption salt fro
1120: 6d 20 54 63 6c 4f 62 6a 0a 20 2a 0a 20 2a 20 52 m TclObj. *. * R
1130: 65 74 75 72 6e 73 3a 0a 20 2a 09 50 6f 69 6e 74 eturns:. *.Point
1140: 65 72 20 74 6f 20 74 79 70 65 20 6f 72 20 4e 55 er to type or NU
1150: 4c 4c 2c 20 61 6e 64 20 73 69 7a 65 0a 20 2a 0a LL, and size. *.
1160: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
1170: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d . *.None. *. *--
1180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 0a 20 2a 2f 0a 75 6e 73 69 67 6e 65 64 20 63 -. */.unsigned c
11d0: 68 61 72 20 2a 55 74 69 6c 5f 47 65 74 53 61 6c har *Util_GetSal
11e0: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e t(Tcl_Interp *in
11f0: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 73 terp, Tcl_Obj *s
1200: 61 6c 74 4f 62 6a 2c 20 69 6e 74 20 2a 6c 65 6e altObj, int *len
1210: 2c 20 69 6e 74 20 6d 61 78 2c 20 69 6e 74 20 6e , int max, int n
1220: 6f 5f 6e 75 6c 6c 29 20 7b 0a 20 20 20 20 75 6e o_null) {. un
1230: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 73 61 6c signed char *sal
1240: 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 2a 6c t = NULL;. *l
1250: 65 6e 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66 20 en = 0;.. if
1260: 28 73 61 6c 74 4f 62 6a 20 21 3d 20 4e 55 4c 4c (saltObj != NULL
1270: 29 20 7b 0a 09 73 61 6c 74 20 3d 20 54 63 6c 5f ) {..salt = Tcl_
1280: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
1290: 4f 62 6a 28 73 61 6c 74 4f 62 6a 2c 20 6c 65 6e Obj(saltObj, len
12a0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 );. } else if
12b0: 20 28 6e 6f 5f 6e 75 6c 6c 29 20 7b 0a 09 54 63 (no_null) {..Tc
12c0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
12d0: 6e 74 65 72 70 2c 20 22 6e 6f 20 73 61 6c 74 22 nterp, "no salt"
12e0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
12f0: 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a ;..return NULL;.
1300: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d }.. if (m
1310: 61 78 20 3e 20 30 20 26 26 20 2a 6c 65 6e 20 3e ax > 0 && *len >
1320: 20 6d 61 78 29 20 7b 0a 09 54 63 6c 5f 53 65 74 max) {..Tcl_Set
1330: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1340: 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 , Tcl_ObjPrintf(
1350: 22 53 61 6c 74 20 74 6f 6f 20 6c 6f 6e 67 2e 20 "Salt too long.
1360: 4d 75 73 74 20 62 65 20 3c 3d 20 25 64 20 62 79 Must be <= %d by
1370: 74 65 73 22 2c 20 6d 61 78 29 29 3b 0a 09 72 65 tes", max));..re
1380: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d turn NULL;. }
1390: 0a 20 20 20 20 72 65 74 75 72 6e 20 73 61 6c 74 . return salt
13a0: 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.}../**********
13b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
13e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
13f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1430: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 74 69 6c 5f ----. *. * Util_
1440: 47 65 74 42 69 6e 61 72 79 41 72 72 61 79 20 2d GetBinaryArray -
1450: 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 62 69 6e 61 -. *. *.Get bina
1460: 72 79 20 61 72 72 61 79 20 66 72 6f 6d 20 54 63 ry array from Tc
1470: 6c 4f 62 6a 0a 20 2a 0a 20 2a 20 52 65 74 75 72 lObj. *. * Retur
1480: 6e 73 3a 0a 20 2a 09 50 6f 69 6e 74 65 72 20 74 ns:. *.Pointer t
1490: 6f 20 74 79 70 65 20 6f 72 20 4e 55 4c 4c 2c 20 o type or NULL,
14a0: 61 6e 64 20 73 69 7a 65 0a 20 2a 0a 20 2a 20 53 and size. *. * S
14b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
14c0: 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d None. *. *------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1510: 2f 0a 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 /.unsigned char
1520: 2a 55 74 69 6c 5f 47 65 74 42 69 6e 61 72 79 41 *Util_GetBinaryA
1530: 72 72 61 79 28 54 63 6c 5f 49 6e 74 65 72 70 20 rray(Tcl_Interp
1540: 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a *interp, Tcl_Obj
1550: 20 2a 64 61 74 61 4f 62 6a 2c 20 69 6e 74 20 2a *dataObj, int *
1560: 6c 65 6e 2c 20 63 68 61 72 20 2a 6e 61 6d 65 2c len, char *name,
1570: 20 69 6e 74 20 6d 69 6e 2c 20 69 6e 74 20 6d 61 int min, int ma
1580: 78 2c 20 69 6e 74 20 6e 6f 5f 6e 75 6c 6c 29 20 x, int no_null)
1590: 7b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 {. unsigned c
15a0: 68 61 72 20 2a 64 61 74 61 20 3d 20 4e 55 4c 4c har *data = NULL
15b0: 3b 0a 20 20 20 20 2a 6c 65 6e 20 3d 20 30 3b 0a ;. *len = 0;.
15c0: 0a 20 20 20 20 69 66 20 28 64 61 74 61 4f 62 6a . if (dataObj
15d0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 64 61 74 != NULL) {..dat
15e0: 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 a = Tcl_GetByteA
15f0: 72 72 61 79 46 72 6f 6d 4f 62 6a 28 64 61 74 61 rrayFromObj(data
1600: 4f 62 6a 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 7d Obj, len);. }
1610: 20 65 6c 73 65 20 69 66 20 28 6e 6f 5f 6e 75 6c else if (no_nul
1620: 6c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 l) {..Tcl_Append
1630: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
1640: 6e 6f 20 22 2c 20 6e 61 6d 65 2c 20 28 63 68 61 no ", name, (cha
1650: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
1660: 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a urn NULL;. }.
1670: 0a 20 20 20 20 69 66 20 28 2a 6c 65 6e 20 3c 20 . if (*len <
1680: 6d 69 6e 29 20 7b 0a 09 54 63 6c 5f 53 65 74 4f min) {..Tcl_SetO
1690: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
16a0: 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 Tcl_ObjPrintf("
16b0: 49 6e 76 61 6c 69 64 20 6c 65 6e 67 74 68 20 66 Invalid length f
16c0: 6f 72 20 5c 22 25 73 5c 22 3a 20 6d 75 73 74 20 or \"%s\": must
16d0: 62 65 20 3e 3d 20 25 64 22 2c 20 6e 61 6d 65 2c be >= %d", name,
16e0: 20 6d 69 6e 29 29 3b 0a 09 72 65 74 75 72 6e 20 min));..return
16f0: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 20 65 6c 73 65 NULL;. } else
1700: 20 69 66 20 28 6d 61 78 20 3e 20 30 20 26 26 20 if (max > 0 &&
1710: 2a 6c 65 6e 20 3e 20 6d 61 78 29 20 7b 0a 09 54 *len > max) {..T
1720: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
1730: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 50 interp, Tcl_ObjP
1740: 72 69 6e 74 66 28 22 49 6e 76 61 6c 69 64 20 6c rintf("Invalid l
1750: 65 6e 67 74 68 20 66 6f 72 20 5c 22 25 73 5c 22 ength for \"%s\"
1760: 3a 20 6d 75 73 74 20 62 65 20 3c 3d 20 25 64 22 : must be <= %d"
1770: 2c 20 6e 61 6d 65 2c 20 6d 61 78 29 29 3b 0a 09 , name, max));..
1780: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 return NULL;.
1790: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 64 61 }. return da
17a0: 74 61 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ta;.}../*. *----
17b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
17f0: 20 2a 0a 20 2a 20 55 74 69 6c 5f 47 65 74 49 6e *. * Util_GetIn
1800: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 47 65 74 20 69 t --. *. *.Get i
1810: 6e 74 65 67 65 72 20 76 61 6c 75 65 20 66 72 6f nteger value fro
1820: 6d 20 54 63 6c 4f 62 6a 0a 20 2a 0a 20 2a 20 52 m TclObj. *. * R
1830: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
1840: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
1850: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
1860: 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.None. *. *
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 20 55 74 69 ---. */..int Uti
18c0: 6c 5f 47 65 74 49 6e 74 28 54 63 6c 5f 49 6e 74 l_GetInt(Tcl_Int
18d0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c erp *interp, Tcl
18e0: 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 69 _Obj *dataObj, i
18f0: 6e 74 20 2a 76 61 6c 75 65 2c 20 63 68 61 72 20 nt *value, char
1900: 2a 6e 61 6d 65 2c 20 69 6e 74 20 6d 69 6e 2c 20 *name, int min,
1910: 69 6e 74 20 6d 61 78 29 20 7b 0a 0a 20 20 20 20 int max) {..
1920: 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e if (dataObj != N
1930: 55 4c 4c 29 20 7b 0a 09 69 66 20 28 54 63 6c 5f ULL) {..if (Tcl_
1940: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
1950: 74 65 72 70 2c 20 64 61 74 61 4f 62 6a 2c 20 76 terp, dataObj, v
1960: 61 6c 75 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 alue) != TCL_OK)
1970: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 {.. return T
1980: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 CL_ERROR;..}.
1990: 20 7d 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 }.. /* Valid
19a0: 61 74 65 20 72 61 6e 67 65 20 2a 2f 0a 20 20 20 ate range */.
19b0: 20 69 66 20 28 2a 76 61 6c 75 65 20 3c 20 6d 69 if (*value < mi
19c0: 6e 29 20 7b 0a 09 54 63 6c 5f 53 65 74 4f 62 6a n) {..Tcl_SetObj
19d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 Result(interp, T
19e0: 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 69 6e cl_ObjPrintf("in
19f0: 76 61 6c 69 64 20 76 61 6c 75 65 20 5c 22 25 64 valid value \"%d
1a00: 5c 22 20 66 6f 72 20 6f 70 74 69 6f 6e 20 5c 22 \" for option \"
1a10: 25 73 5c 22 3a 20 6d 75 73 74 20 62 65 20 3e 3d %s\": must be >=
1a20: 20 25 64 22 2c 20 2a 76 61 6c 75 65 2c 20 6e 61 %d", *value, na
1a30: 6d 65 2c 20 6d 69 6e 29 29 3b 0a 09 72 65 74 75 me, min));..retu
1a40: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1a50: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6d 61 78 } else if (max
1a60: 20 3e 20 30 20 26 26 20 2a 76 61 6c 75 65 20 3e > 0 && *value >
1a70: 20 6d 61 78 29 20 7b 0a 09 54 63 6c 5f 53 65 74 max) {..Tcl_Set
1a80: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
1a90: 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 , Tcl_ObjPrintf(
1aa0: 22 69 6e 76 61 6c 69 64 20 76 61 6c 75 65 20 5c "invalid value \
1ab0: 22 25 64 5c 22 20 66 6f 72 20 6f 70 74 69 6f 6e "%d\" for option
1ac0: 20 5c 22 25 73 5c 22 3a 20 6d 75 73 74 20 62 65 \"%s\": must be
1ad0: 20 3c 3d 20 25 64 22 2c 20 2a 76 61 6c 75 65 2c <= %d", *value,
1ae0: 20 6e 61 6d 65 2c 20 6d 61 78 29 29 3b 0a 09 72 name, max));..r
1af0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1b00: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
1b10: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a n TCL_OK;.}..