chiark / gitweb /
6bdc7ff4afc95966cbc0182826be367ce232524f
[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 Type ulong:                     unsigned long @
13
14 H-Include       "hbytes.h"
15
16 Untabled
17         hbytes
18                 subcmd  enum(HBytes_SubCommand, "hbytes subcommand")
19                 obj     ...
20         dgram-socket
21                 subcmd enum(DgramSocket_SubCommand,"dgram-socket subcommand")
22                 obj     ...
23
24 Table hbytes HBytes_SubCommand
25         raw2h
26                 binary  obj
27                 =>      hb
28         h2raw
29                 hex     hb
30                 =>      obj
31         ulong2h
32                 value   ulong
33                 =>      hb
34         h2ulong
35                 hex     hb
36                 =>      ulong
37         ushort2h
38                 value   ulong
39                 =>      hb
40         h2ushort
41                 hex     hb
42                 =>      ulong
43         length
44                 v       hb
45                 =>      int
46         compare
47                 a       hb
48                 b       hb
49                 =>      int
50         prepend
51                 v       hbv
52                 str     ...
53         append
54                 v       hbv
55                 str     ...
56         rep-info
57                 v       obj
58                 =>      obj
59         concat
60                 str     ...
61                 =>      hb
62         unprepend
63                 v       hbv
64                 length  int
65                 =>      hb
66         unappend
67                 v       hbv
68                 length  int
69                 =>      hb
70         chopto
71                 v       hbv
72                 length  int
73                 =>      hb
74         pkcs5
75                 meth    enum(PadMethod, "hbytes pad subcommand")
76                 v       hbv
77                 block   obj
78                 =>      int
79         blockcipher
80                 encrypt charfrom("de","encrypt/decrypt")
81                 v       hbv
82                 alg     enum(BlockCipherAlgInfo, "alg")
83                 key     obj
84                 mode    enum(BlockCipherModeInfo, "mode")
85                 ?iv     hb
86                 =>      hb
87         hash
88                 alg     enum(HashAlgInfo, "hash alg")
89                 message hb
90                 =>      hb
91         hmac
92                 alg     enum(HashAlgInfo, "hash alg for hmac")
93                 message hb
94                 key     obj
95                 ?maclen obj
96                 =>      hb
97         zeroes
98                 length  int
99                 =>      hb
100         random
101                 length  int
102                 =>      hb
103
104 Table dgram_socket DgramSocket_SubCommand
105         create
106                 local   sockaddr
107                 =>      sockid
108         close
109                 sock    sockid
110         transmit
111                 sock    sockid
112                 data    hb
113                 remote  sockaddr
114         on-receive
115                 sock    sockid
116                 ?script obj