X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=crypto%2Fcrypto.c;h=9b79881941eaa6418495489830a3546df09b58a6;hp=1fc1f8336bfe65cf14b5934987ac11c0f7d1ba93;hb=9af88eb2e41e2b6a73643948e31262eee08c5400;hpb=f9ddca2f19d966e0d64d5bc6de023dbc3764552c

diff --git a/crypto/crypto.c b/crypto/crypto.c
index 1fc1f83..9b79881 100644
--- a/crypto/crypto.c
+++ b/crypto/crypto.c
@@ -359,3 +359,17 @@ int do_hbytes_hmac(ClientData cd, Tcl_Interp *ip, const HashAlgInfo *alg,
 
   return TCL_OK;
 }
+
+int do_blockcipherop_prop(ClientData cd, Tcl_Interp *ip,
+			  const BlockCipherPropInfo *prop,
+			  const BlockCipherAlgInfo *alg, int *result) {
+  *result= *(const int*)((const char*)alg + prop->int_offset);
+  return TCL_OK;
+}
+
+int do_hbytes_hash_prop(ClientData cd, Tcl_Interp *ip,
+			const HashAlgPropInfo *prop,
+			const HashAlgInfo *alg, int *result) {
+  *result= *(const int*)((const char*)alg + prop->int_offset);
+  return TCL_OK;
+}