chiark / gitweb /
71cb4bf3935bb88a76524bad4c1a2a61e94c9dce
[chiark-tcl.git] / base / tables-examples.tct
1 Type hb:                        HBytes_Value @
2 Init hb                         hbytes_sentinel(&@);
3
4 Type hbv:                       HBytes_Var @
5 Init hbv                        @.hb=0; @.obj=0; @.var=0;
6 Fini hbv                        fini_hbv(ip, rc, &@);
7
8 Type sockaddr:                  SockAddr_Value @
9 Init sockaddr                   sockaddr_clear(&@);
10
11 Type sockid:                    DgramSockID @
12
13 H-Include       "hbytes.h"
14
15 Untabled
16         hbytes
17                 subcmd  enum(HBytes_SubCommand, "hbytes subcommand")
18                 obj     ...
19         dgram-socket
20                 subcmd enum(DgramSocket_SubCommand,"dgram-socket subcommand")
21                 obj     ...
22
23 Table hbytes HBytes_SubCommand
24         raw2h
25                 binary  obj
26                 =>      hb
27         h2raw
28                 hex     hb
29                 =>      obj
30         length
31                 v       hb
32                 =>      int
33         prepend
34                 v       hbv
35                 str     ...
36         append
37                 v       hbv
38                 str     ...
39         rep-info
40                 v       obj
41                 =>      obj
42         concat
43                 str     ...
44                 =>      hb
45         unprepend
46                 v       hbv
47                 length  int
48                 =>      hb
49         unappend
50                 v       hbv
51                 length  int
52                 =>      hb
53         chopto
54                 v       hbv
55                 length  int
56                 =>      hb
57         pkcs5
58                 meth    enum(PadMethod, "hbytes pad subcommand")
59                 v       hbv
60                 block   obj
61                 =>      int
62         blockcipher
63                 encrypt charfrom("de","encrypt/decrypt")
64                 v       hbv
65                 alg     enum(BlockCipherAlgInfo, "alg")
66                 key     obj
67                 mode    enum(BlockCipherModeInfo, "mode")
68                 ?iv     hb
69                 =>      hb
70         hash
71                 alg     enum(HashAlgInfo, "hash alg")
72                 message hb
73                 =>      hb
74         hmac
75                 alg     enum(HashAlgInfo, "hash alg for hmac")
76                 message hb
77                 key     obj
78                 ?maclen obj
79                 =>      hb
80         zeroes
81                 length  int
82                 =>      hb
83         random
84                 length  int
85                 =>      hb
86
87 Table dgram_socket DgramSocket_SubCommand
88         create
89                 local   sockaddr
90                 =>      sockid
91         close
92                 sock    sockid
93         transmit
94                 sock    sockid
95                 data    hb
96                 remote  sockaddr
97         on-receive
98                 sock    sockid
99                 ?script obj