chiark / gitweb /
Padding works.
[chiark-tcl.git] / base / tables-examples.tct
index 13a3e5d..d743530 100644 (file)
@@ -18,6 +18,9 @@ Table hbytes HBytes_SubCommand
        h2raw
                hex     hb
                =>      obj
+       length
+               v       hb
+               =>      int
        prepend
                v       hbv
                str     ...
@@ -44,7 +47,9 @@ Table hbytes HBytes_SubCommand
                =>      hb
        pkcs5
                meth    enum(PadMethod, "hbytes pad subcommand")
-               obj     ...
+               v       hbv
+               block   obj
+               =>      int
 #      blockcipher
 #              encrypt charfrom("de","encrypt/decrypt")
 #              v       hbv
@@ -62,20 +67,3 @@ Table hbytes HBytes_SubCommand
 #              key     hb
 #              maclen  int
 #              =>      hb
-
-Table padmethod PadMethod
-       pa      1
-               v       hbv
-               alg     enum(BlockCipherAlgInfo, "pad alg")
-       ua      0
-               v       hbv
-               alg     enum(BlockCipherAlgInfo, "pad alg")
-       pn      1
-               v       hbv
-               block   int
-       un      0
-               v       hbv
-               block   int
-
-EntryExtra PadMethod
-       int pad;