chiark / gitweb /
ecb5d7cf3ed30413f7b0a6e8048d6e59802c6948
[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         prepend
22                 v       hbv
23                 str     ...
24         append
25                 v       hbv
26                 str     ...
27         rep-info
28                 v       hb
29                 =>      obj
30         concat
31                 str     ...
32                 =>      hb
33         unprepend
34                 v       hbv
35                 length  int
36                 =>      hb
37         unappend
38                 v       hbv
39                 length  int
40                 =>      hb
41         chopto
42                 v       hbv
43                 length  int
44                 =>      hb
45 #       pkcs5
46 #               meth    enum(PadMethod, "hbytes pad subcommand")
47 #               obj     ...
48 #       blockcipher
49 #               encrypt charfrom("de","encrypt/decrypt")
50 #               v       hbv
51 #               alg     enum(BlockCipherAlgInfo, "alg")
52 #               mode    enum(BlockCipherModeInfo, "mode")
53 #               ?iv     hb
54 #               =>      hb
55 #       hash
56 #               alg     enum(HashAlgInfo, "hash alg")
57 #               message hb
58 #               =>      hb
59 #       hmac
60 #               alg     enum(HashAlgInfo, "hash alg for hmac")
61 #               message hb
62 #               key     hb
63 #               maclen  int
64 #               =>      hb
65
66 #Table padmethod PadMethod
67 #       pa      1, 0
68
69 #EntryExtra PadMethod
70 #       int pad, algname;