X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=base%2Ftables-examples.tct;h=d74353098edf625ecbacc7d411539fdc32044eb1;hp=13a3e5d68a05ab9629c4b254c538eb3e3fab6e51;hb=bc4e7d2673e44826dd768ad7f91c393349da24de;hpb=9b7d11070d3e9dc1eb61cbccd5155f47a27047c3

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 13a3e5d..d743530 100644
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -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;