X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=crypto%2Fcrypto.tct;h=1f0a25492dfc477a1077a0e3a1647cb6f456730f;hb=403ef0f3eb85708789afeec1048ad1b6a7b667f6;hp=cc10545db55aea32c49a3c221c17400d35ee05b6;hpb=288c17549e4d409b60147b6eb8444e72c0eea4e2;p=chiark-tcl.git

diff --git a/crypto/crypto.tct b/crypto/crypto.tct
index cc10545..1f0a254 100644
--- a/crypto/crypto.tct
+++ b/crypto/crypto.tct
@@ -1,13 +1,29 @@
+# crypto - Tcl bindings for parts of the `nettle' crypto library
+# Copyright 2006 Ian Jackson
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+# 02110-1301, USA.
 
 
 Table *hbcryptotoplevel TopLevel_Command
 	hbcrypto
-		subcmd	enum(HBCrypto/_SubCommand, "hbcrypto subcommand")
-		...	obj
+		dispatch(HBCrypto/_SubCommand, "hbcrypto subcommand")
 
 Table hbcrypto HBCrypto_SubCommand
 	pad
- 		op	enum(PadOp/, "hbytes pad subcommand")
+ 		op	enum(PadOp/, "hbcrypto pad subcommand")
 		v	hbv
 		blocksz	obj
 		meth	enum(PadMethodInfo/, "pad method")