X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=base%2Ftables-examples.tct;h=c130136bc094ba3079aa276d07cd5ce824fb0fb5;hb=ac8c0b3b18075ae4273779544eda01c09cfb5145;hp=d2e00384f7af16f552ff4c2f2d5c140336892be3;hpb=cf79867094e8877f35639d50769d2fe9c2a8bd0b;p=chiark-tcl.git

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index d2e0038..c130136 100644
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -121,6 +121,10 @@ Table hbytes HBytes_SubCommand
 		v	hb
 		count	int
 		=>	hb
+	clockincrement
+		value	hbv
+		change	int
+		=>	int
 	random
 		length	int
 		=>	hb
@@ -130,13 +134,8 @@ Table hbytes HBytes_SubCommand
 		block	obj
 		=>	int
  	blockcipher
- 		encrypt	charfrom("de","encrypt/decrypt")
- 		v	hbv
- 		alg	enum(BlockCipherAlgInfo, "alg")
-		key	obj
- 		mode	enum(BlockCipherModeInfo, "mode")
- 		?iv	hb
- 		=>	hb
+ 		op	enum(BlockCipherOp, "op")
+		...	obj
  	hash
  		alg	enum(HashAlgInfo, "hash alg")
  		message	hb
@@ -161,3 +160,29 @@ Table dgram_socket DgramSocket_SubCommand
 	on-receive
 		sock	sockid
 		?script	obj
+
+Table blockcipherop BlockCipherOp
+	e	1
+ 		v	hbv
+ 		alg	enum(BlockCipherAlgInfo, "alg")
+		key	obj
+ 		mode	enum(BlockCipherModeInfo, "mode")
+ 		?iv	hb
+ 		=>	hb
+	d	0
+ 		v	hbv
+ 		alg	enum(BlockCipherAlgInfo, "alg")
+		key	obj
+ 		mode	enum(BlockCipherModeInfo, "mode")
+ 		?iv	hb
+ 		=>	hb
+	mac	-1
+		msg	hb
+		alg	enum(BlockCipherAlgInfo, "alg")
+		key	obj
+ 		mode	enum(BlockCipherModeInfo, "mode")
+		iv	hb
+		=>	hb
+
+EntryExtra BlockCipherOp
+	int encrypt;