X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=base%2Ftables-examples.tct;h=e69de29bb2d1d6434b8b29ae775ad8c2e48c5391;hb=1cb2da359930d980b7ef827d4d46225e1988c478;hp=69a4fb63b523f0fbc9a9d41a8e7a4989d5c11a8c;hpb=b740135c3efcb63e0c7741384e5fa8ff229d2919;p=chiark-tcl.git diff --git a/base/tables-examples.tct b/base/tables-examples.tct index 69a4fb6..e69de29 100644 --- a/base/tables-examples.tct +++ b/base/tables-examples.tct @@ -1,67 +0,0 @@ -Type hb: HBytes_Value @ -Init hb @.start=0; @.end=0; -Type hbv: HBytes_Var @ -Init hbv @.hb=0; @.obj=0; @.var=0; -Fini hbv fini_hbv(ip, rc, &@); - -H-Include "hbytes.h" - -Untabled - hbytes - subcmd enum(HBytes_SubCommand, "hbytes subcommand") - obj ... - -Table hbytes HBytes_SubCommand - raw2h - binary obj - => hb - h2raw - hex hb - => obj - prefix - v hbv - str ... - append - v hbv - str ... - concat - v hbv - str ... - unprepend - v hbv - length int - => hb - unappend - v hbv - length int - => hb - chopto - v hbv - length int - => hb - pkcs5 - meth enum(PadMethod, "hbytes pad subcommand") - obj ... - blockcipher - encrypt charfrom("de","encrypt/decrypt") - v hbv - alg enum(BlockCipherAlgInfo, "alg") - mode enum(BlockCipherModeInfo, "mode") - ?iv hb - => hb - hash - alg enum(HashAlgInfo, "hash alg") - message hb - => hb - hmac - alg enum(HashAlgInfo, "hash alg for hmac") - message hb - key hb - maclen int - => hb - -Table padmethod PadMethod - pa 1, 0 - -EntryExtra PadMethod - int pad, algname;