chiark / gitweb /
69a4fb63b523f0fbc9a9d41a8e7a4989d5c11a8c
[chiark-tcl.git] / base / tables-examples.tct
1 Type hb:                        HBytes_Value @
2 Init hb                         @.start=0; @.end=0;
3 Type hbv:                       HBytes_Var @
4 Init hbv                        @.hb=0; @.obj=0; @.var=0;
5 Fini hbv                        fini_hbv(ip, rc, &@);
6
7 H-Include       "hbytes.h"
8
9 Untabled
10         hbytes
11                 subcmd  enum(HBytes_SubCommand, "hbytes subcommand")
12                 obj     ...
13
14 Table hbytes HBytes_SubCommand
15         raw2h
16                 binary  obj
17                 =>      hb
18         h2raw
19                 hex     hb
20                 =>      obj
21         prefix
22                 v       hbv
23                 str     ...
24         append
25                 v       hbv
26                 str     ...
27         concat
28                 v       hbv
29                 str     ...
30         unprepend
31                 v       hbv
32                 length  int
33                 =>      hb
34         unappend
35                 v       hbv
36                 length  int
37                 =>      hb
38         chopto
39                 v       hbv
40                 length  int
41                 =>      hb
42         pkcs5
43                 meth    enum(PadMethod, "hbytes pad subcommand")
44                 obj     ...
45         blockcipher
46                 encrypt charfrom("de","encrypt/decrypt")
47                 v       hbv
48                 alg     enum(BlockCipherAlgInfo, "alg")
49                 mode    enum(BlockCipherModeInfo, "mode")
50                 ?iv     hb
51                 =>      hb
52         hash
53                 alg     enum(HashAlgInfo, "hash alg")
54                 message hb
55                 =>      hb
56         hmac
57                 alg     enum(HashAlgInfo, "hash alg for hmac")
58                 message hb
59                 key     hb
60                 maclen  int
61                 =>      hb
62
63 Table padmethod PadMethod
64         pa      1, 0
65
66 EntryExtra PadMethod
67         int pad, algname;