X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;ds=sidebyside;f=hbytes%2Fhook.c;h=d6d96d9ce1a406ff4b34b4199415abc0b3fa1040;hb=bc4e7d2673e44826dd768ad7f91c393349da24de;hp=08e055d6426379687d01c580a3e8caf6e099c121;hpb=9b7d11070d3e9dc1eb61cbccd5155f47a27047c3;p=chiark-tcl.git

diff --git a/hbytes/hook.c b/hbytes/hook.c
index 08e055d..d6d96d9 100644
--- a/hbytes/hook.c
+++ b/hbytes/hook.c
@@ -119,33 +119,11 @@ int do_hbytes_h2raw(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
 
-#if 0
-HC_DEFINE(pkcs5) {
-  static const PadKindInfo padkindinfos[0]= {
-    { "pa", 1, 1 },
-    { "pn", 1, 0 },
-    { "ua", 0, 1 },
-    { "un", 0, 0 },
-    { 0 }
-  };
-
-  HC_DECLS_HBV;
-  Tcl_Obj *v;
-  int blocksize;
-  const PadKindInfo *pk;
-  const BlockCipherInfo *bc;
-
-  HC_ARG_ENUM(pk, padkindinfos);
-  HC_ARG_HBV;
-  if (!pk->algname) HC_ARG_INTRANGE(blocksize, 1,255);
-  else { HC_ARG_ENUM(bc, blockciphers); blocksize= bc->blocksize; }
-  HC_ARGS_E;
-
-  /* do nothing :-) */
-
-  HC_FINI_HBV;
+int do_hbytes_length(ClientData cd, Tcl_Interp *ip,
+		     HBytes_Value v, int *result) {
+  *result= hbytes_len(&v);
+  return TCL_OK;
 }
-#endif
 
 int do__hbytes(ClientData cd, Tcl_Interp *ip,
 	       const HBytes_SubCommand *subcmd,