Compiles but does not link. Before undo silly pad indirection.

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

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index ecb5d7cf3ed30413f7b0a6e8048d6e59802c6948..13a3e5d68a05ab9629c4b254c538eb3e3fab6e51 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -42,9 +42,9 @@ Table hbytes HBytes_SubCommand
                v       hbv
                length  int
                =>      hb
-#      pkcs5
-#              meth    enum(PadMethod, "hbytes pad subcommand")
-#              obj     ...
+       pkcs5
+               meth    enum(PadMethod, "hbytes pad subcommand")
+               obj     ...
 #      blockcipher
 #              encrypt charfrom("de","encrypt/decrypt")
 #              v       hbv
@@ -63,8 +63,19 @@ Table hbytes HBytes_SubCommand
 #              maclen  int
 #              =>      hb
 
-#Table padmethod PadMethod
-#      pa      1, 0
+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, algname;
+EntryExtra PadMethod
+       int pad;