chiark / gitweb /
b40198f0d90380843078318c843cee7b36cced2f
[chiark-tcl.git] / base / tables-examples.tct
1 Type hb:                        HBytes_Value @
2 Init hb                         hbytes_sentinel(&@);
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         length
22                 v       hb
23                 =>      int
24         prepend
25                 v       hbv
26                 str     ...
27         append
28                 v       hbv
29                 str     ...
30         rep-info
31                 v       obj
32                 =>      obj
33         concat
34                 str     ...
35                 =>      hb
36         unprepend
37                 v       hbv
38                 length  int
39                 =>      hb
40         unappend
41                 v       hbv
42                 length  int
43                 =>      hb
44         chopto
45                 v       hbv
46                 length  int
47                 =>      hb
48         pkcs5
49                 meth    enum(PadMethod, "hbytes pad subcommand")
50                 v       hbv
51                 block   obj
52                 =>      int
53         blockcipher
54                 encrypt charfrom("de","encrypt/decrypt")
55                 v       hbv
56                 alg     enum(BlockCipherAlgInfo, "alg")
57                 key     obj
58                 mode    enum(BlockCipherModeInfo, "mode")
59                 ?iv     hb
60                 =>      hb
61         hash
62                 alg     enum(HashAlgInfo, "hash alg")
63                 message hb
64                 =>      hb
65         hmac
66                 alg     enum(HashAlgInfo, "hash alg for hmac")
67                 message hb
68                 key     obj
69                 ?maclen obj
70                 =>      hb
71         zeroes
72                 length  int
73                 =>      hb
74         random
75                 length  int
76                 =>      hb
77
78 #Table udp UDP_SubCommand
79 #       create
80 #