hbytes and crypto compile now

[chiark-tcl.git] / crypto / crypto.tct

diff --git a/crypto/crypto.tct b/crypto/crypto.tct
index fa9de22e34481a11d162fe9f7b6049712676b259..cc10545db55aea32c49a3c221c17400d35ee05b6 100644 (file)
--- a/crypto/crypto.tct
+++ b/crypto/crypto.tct
@@ -1,26 +1,33 @@
-Table hbcrypto_SubCommand
+
+
+Table *hbcryptotoplevel TopLevel_Command
+       hbcrypto
+               subcmd  enum(HBCrypto/_SubCommand, "hbcrypto subcommand")
+               ...     obj
+
+Table hbcrypto HBCrypto_SubCommand

        pad
        pad

-               op      enum(PadOp, "hbytes pad subcommand")
+               op      enum(PadOp/, "hbytes pad subcommand")

                v       hbv
                blocksz obj
                v       hbv
                blocksz obj

-               meth    enum(PadMethodInfo, "pad method")
+               meth    enum(PadMethodInfo/, "pad method")

                ...     methargs
        blockcipher
                ...     methargs
        blockcipher

-               op      enum(BlockCipherOp, "op")
+               op      enum(BlockCipherOp/, "op")

                ...     obj
        hash
                ...     obj
        hash

-               alg     enum(HashAlgInfo, "hash alg")
+               alg     enum(HashAlgInfo/, "hash alg")

                message hb
                =>      hb
        hmac
                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
                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
                =>      int
 
 Table padmethodinfo PadMethodInfo


@@ -33,28 +40,28 @@ Table padmethodinfo PadMethodInfo
 Table blockcipherop BlockCipherOp
        e       1
                v       hbv
 Table blockcipherop BlockCipherOp
        e       1
                v       hbv

-               alg     enum(BlockCipherAlgInfo, "alg")
+               alg     enum(BlockCipherAlgInfo/, "alg")

                key     obj
                key     obj

-               mode    enum(BlockCipherModeInfo, "mode")
+               mode    enum(BlockCipherModeInfo/, "mode")

                ?iv     hb
                =>      hb
        d       0
                v       hbv
                ?iv     hb
                =>      hb
        d       0
                v       hbv

-               alg     enum(BlockCipherAlgInfo, "alg")
+               alg     enum(BlockCipherAlgInfo/, "alg")

                key     obj
                key     obj

-               mode    enum(BlockCipherModeInfo, "mode")
+               mode    enum(BlockCipherModeInfo/, "mode")

                ?iv     hb
                =>      hb
        mac     -1
                msg     hb
                ?iv     hb
                =>      hb
        mac     -1
                msg     hb

-               alg     enum(BlockCipherAlgInfo, "alg")
+               alg     enum(BlockCipherAlgInfo/, "alg")

                key     obj
                key     obj

-               mode    enum(BlockCipherModeInfo, "mode")
+               mode    enum(BlockCipherModeInfo/, "mode")

                iv      hb
                =>      hb
        prop    -1
                iv      hb
                =>      hb
        prop    -1

-               prop    enum(BlockCipherPropInfo, "prop")
-               alg     enum(BlockCipherAlgInfo, "alg")
+               prop    enum(BlockCipherPropInfo/, "prop")
+               alg     enum(BlockCipherAlgInfo/, "alg")

                =>      int
 
 EntryExtra BlockCipherOp
                =>      int
 
 EntryExtra BlockCipherOp