X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Fchiark-tcl.h;h=06c98fce518d12654e61912823671b0c2ce58034;hp=383eb53582076f6e8f52ef2d5b2e94112843d368;hb=9af88eb2e41e2b6a73643948e31262eee08c5400;hpb=68fbf82ca3551b8c9f51937f481f6b3dcd50b4f5

diff --git a/base/chiark-tcl.h b/base/chiark-tcl.h
index 383eb53..06c98fc 100644
--- a/base/chiark-tcl.h
+++ b/base/chiark-tcl.h
@@ -32,9 +32,11 @@
  *  hbytes pkcs5 pn|un VAR BLOCKSIZE             => worked?  (always 1 for p)
  *  hbytes blockcipher d|e VAR ALG KEY MODE [IV] => IV
  *  hbytes blockcipher mac MSG ALG KEY MODE IV   => final block
+ *  hbytes blockcipher prop PROPERTY ALG         => property value
  *
  *  hbytes hash ALG MESSAGE                      => hash
  *  hbytes hmac ALG MESSAGE KEY [MACLENGTH]      => mac
+ *  hbytes hash-prop PROPERTY ALG                => property value
  *
  *  ulong ul2int ULONG    => INT           can fail if >INT_MAX
  *  ulong int2ul INT      => ULONG         can fail if <0
@@ -241,6 +243,11 @@ extern Tcl_ObjType blockcipherkey_type;
 
 /* from algtables.c */
 
+typedef struct {
+  const char *name;
+  int int_offset;
+} BlockCipherPropInfo, HashAlgPropInfo;
+
 typedef struct {
   const char *name;
   int hashsize, blocksize, statesize;