chiark / gitweb /
hbytes and crypto compile now
[chiark-tcl.git] / crypto / crypto.tct
index fa9de22..cc10545 100644 (file)
@@ -1,26 +1,33 @@
-Table hbcrypto_SubCommand
+
+
+Table *hbcryptotoplevel TopLevel_Command
+       hbcrypto
+               subcmd  enum(HBCrypto/_SubCommand, "hbcrypto subcommand")
+               ...     obj
+
+Table hbcrypto HBCrypto_SubCommand
        pad
-               op      enum(PadOp, "hbytes pad subcommand")
+               op      enum(PadOp/, "hbytes pad subcommand")
                v       hbv
                blocksz obj
-               meth    enum(PadMethodInfo, "pad method")
+               meth    enum(PadMethodInfo/, "pad method")
                ...     methargs
        blockcipher
-               op      enum(BlockCipherOp, "op")
+               op      enum(BlockCipherOp/, "op")
                ...     obj
        hash
-               alg     enum(HashAlgInfo, "hash alg")
+               alg     enum(HashAlgInfo/, "hash alg")
                message hb
                =>      hb
        hmac
-               alg     enum(HashAlgInfo, "hash alg for hmac")
+               alg     enum(HashAlgInfo/, "hash alg for hmac")
                message hb
                key     obj
                ?maclen obj
                =>      hb
        hash-prop
-               prop    enum(HashAlgPropInfo, "prop")
-               alg     enum(HashAlgInfo, "alg")
+               prop    enum(HashAlgPropInfo/, "prop")
+               alg     enum(HashAlgInfo/, "alg")
                =>      int
 
 Table padmethodinfo PadMethodInfo
@@ -33,28 +40,28 @@ Table padmethodinfo PadMethodInfo
 Table blockcipherop BlockCipherOp
        e       1
                v       hbv
-               alg     enum(BlockCipherAlgInfo, "alg")
+               alg     enum(BlockCipherAlgInfo/, "alg")
                key     obj
-               mode    enum(BlockCipherModeInfo, "mode")
+               mode    enum(BlockCipherModeInfo/, "mode")
                ?iv     hb
                =>      hb
        d       0
                v       hbv
-               alg     enum(BlockCipherAlgInfo, "alg")
+               alg     enum(BlockCipherAlgInfo/, "alg")
                key     obj
-               mode    enum(BlockCipherModeInfo, "mode")
+               mode    enum(BlockCipherModeInfo/, "mode")
                ?iv     hb
                =>      hb
        mac     -1
                msg     hb
-               alg     enum(BlockCipherAlgInfo, "alg")
+               alg     enum(BlockCipherAlgInfo/, "alg")
                key     obj
-               mode    enum(BlockCipherModeInfo, "mode")
+               mode    enum(BlockCipherModeInfo/, "mode")
                iv      hb
                =>      hb
        prop    -1
-               prop    enum(BlockCipherPropInfo, "prop")
-               alg     enum(BlockCipherAlgInfo, "alg")
+               prop    enum(BlockCipherPropInfo/, "prop")
+               alg     enum(BlockCipherAlgInfo/, "alg")
                =>      int
 
 EntryExtra BlockCipherOp