hmac seems to work

[chiark-tcl.git] / base / tables-examples.tct

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 922f844ac4e47938078ea99abd78184e63182a14..5115813ad127f13c2ea6d43ecad882f81d800049 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -50,7 +50,7 @@ Table hbytes HBytes_SubCommand
                v       hbv
                block   obj
                =>      int
                v       hbv
                block   obj
                =>      int

-       blockciph
+       blockcipher

                encrypt charfrom("de","encrypt/decrypt")
                v       hbv
                alg     enum(BlockCipherAlgInfo, "alg")
                encrypt charfrom("de","encrypt/decrypt")
                v       hbv
                alg     enum(BlockCipherAlgInfo, "alg")


@@ -58,13 +58,13 @@ Table hbytes HBytes_SubCommand
                mode    enum(BlockCipherModeInfo, "mode")
                ?iv     hb
                =>      hb
                mode    enum(BlockCipherModeInfo, "mode")
                ?iv     hb
                =>      hb

-#      hash
-#              alg     enum(HashAlgInfo, "hash alg")
-#              message hb
-#              =>      hb
-#      hmac
-#              alg     enum(HashAlgInfo, "hash alg for hmac")
-#              message hb
-#              key     hb
-#              maclen  int
-#              =>      hb
+       hash
+               alg     enum(HashAlgInfo, "hash alg")
+               message hb
+               =>      hb
+       hmac
+               alg     enum(HashAlgInfo, "hash alg for hmac")
+               message hb
+               key     obj
+               ?maclen obj
+               =>      hb