hbytes xor

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

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 3fd080147af3662f163d7ec7a0889773c7834d67..2e1e573d62ec546b69081dad820feed1c25c8279 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -40,6 +40,10 @@ Table ulong ULong_SubCommand
                a       ulong
                b       ulong
                =>      ulong
+       multiply
+               a       ulong
+               b       ulong
+               =>      ulong
        subtract
                a       ulong
                b       ulong
@@ -124,14 +128,18 @@ Table hbytes HBytes_SubCommand
                v       hb
                count   int
                =>      hb
+       xor
+               v       hbv
+               d       hb
        random
                length  int
                =>      hb
-       pkcs5
-               meth    enum(PadMethod, "hbytes pad subcommand")
+       pad
+               op      enum(PadOp, "hbytes pad subcommand")
                v       hbv
-               block   obj
-               =>      int
+               blocksz obj
+               meth    enum(PadMethodInfo, "pad method")
+               ...     methargs
        blockcipher
                op      enum(BlockCipherOp, "op")
                ...     obj
@@ -145,6 +153,17 @@ Table hbytes HBytes_SubCommand
                key     obj
                ?maclen obj
                =>      hb
+       hash-prop
+               prop    enum(HashAlgPropInfo, "prop")
+               alg     enum(HashAlgInfo, "alg")
+               =>      int
+
+Table padmethodinfo PadMethodInfo
+       pkcs5
+               =>      int
+       rfc2406
+               nxthdr  obj
+               =>      int
 
 Table dgram_socket DgramSocket_SubCommand
        create
@@ -182,6 +201,10 @@ Table blockcipherop BlockCipherOp
                mode    enum(BlockCipherModeInfo, "mode")
                iv      hb
                =>      hb
+       prop    -1
+               prop    enum(BlockCipherPropInfo, "prop")
+               alg     enum(BlockCipherAlgInfo, "alg")
+               =>      int
 
 EntryExtra BlockCipherOp
        int encrypt;