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; init_somethingv(&@.sth);
   6 Fini hbv                        fini_somethingv(ip, rc, &@.sth);
   7
   8 Type constv(Tcl_ObjType*):      Tcl_Obj *@
   9
  10 Type maskmapv:                  MaskMap_Var @
  11 Init maskmapv                   @.mm=0; init_somethingv(&@.sth);
  12 Fini maskmapv                   fini_somethingv(ip, rc, &@.sth);
  13
  14 Type sockaddr:                  SockAddr_Value @
  15 Init sockaddr                   sockaddr_clear(&@);
  16
  17 Type iddata(IdDataTable *tab):  void *@
  18 Type ulong:                     uint32_t @
  19 Type long:                      long @
  20 Type string:                    const char *@
  21
  22 Type charfrom(const char *opts, const char *what):      int
  23
  24 H-Include       "hbytes.h"
  25
  26 Table toplevel TopLevel_Command
  27         hbytes
  28                 subcmd  enum(HBytes_SubCommand, "hbytes subcommand")
  29                 ...     obj
  30         dgram-socket
  31                 subcmd  enum(DgramSocket_SubCommand,"dgram-socket subcommand")
  32                 ...     obj
  33         tuntap-socket-raw
  34             subcmd enum(TunSocket_SubCommand,"tuntap-socket-raw subcommand")
  35             ... obj
  36         ulong
  37                 subcmd  enum(ULong_SubCommand,"ulong subcommand")
  38                 ...     obj
  39
  40 Table maskmap MaskMap_SubCommand
  41         lookup
  42                 map     constv(&maskmap_type)
  43                 addr    hb
  44                 ?def    obj
  45                 =>      obj
  46         amend
  47                 map     maskmapv
  48                 prefix  obj
  49                 preflen obj
  50                 data    obj
  51
  52 Table ulong ULong_SubCommand
  53         ul2int
  54                 v       ulong
  55                 =>      int
  56         int2ul
  57                 v       int
  58                 =>      ulong
  59         mask
  60                 a       ulong
  61                 b       ulong
  62                 =>      ulong
  63         add
  64                 a       ulong
  65                 b       ulong
  66                 =>      ulong
  67         multiply
  68                 a       ulong
  69                 b       ulong
  70                 =>      ulong
  71         subtract
  72                 a       ulong
  73                 b       ulong
  74                 =>      ulong
  75         compare
  76                 a       ulong
  77                 b       ulong
  78                 =>      int
  79         shift
  80                 right   charfrom("lr", "shift direction")
  81                 v       ulong
  82                 bits    int
  83                 =>      ulong
  84         ul2bitfields
  85                 value   ulong
  86                 ...     obj
  87                 =>      int
  88         bitfields2ul
  89                 base    ulong
  90                 ...     obj
  91                 =>      ulong
  92
  93 Table hbytes HBytes_SubCommand
  94         raw2h
  95                 binary  obj
  96                 =>      hb
  97         h2raw
  98                 hex     hb
  99                 =>      obj
 100         ushort2h
 101                 value   long
 102                 =>      hb
 103         h2ushort
 104                 hex     hb
 105                 =>      long
 106         length
 107                 v       hb
 108                 =>      int
 109         compare
 110                 a       hb
 111                 b       hb
 112                 =>      int
 113         range
 114                 v       hb
 115                 start   int
 116                 size    int
 117                 =>      hb
 118         prepend
 119                 v       hbv
 120                 ...     str
 121         append
 122                 v       hbv
 123                 ...     str
 124         rep-info
 125                 v       obj
 126                 =>      obj
 127         concat
 128                 ...     str
 129                 =>      hb
 130         unprepend
 131                 v       hbv
 132                 length  int
 133                 =>      hb
 134         unappend
 135                 v       hbv
 136                 length  int
 137                 =>      hb
 138         chopto
 139                 v       hbv
 140                 length  int
 141                 =>      hb
 142         overwrite
 143                 v       hbv
 144                 start   int
 145                 sub     hb
 146         trimleft
 147                 v       hbv
 148         zeroes
 149                 length  int
 150                 =>      hb
 151         repeat
 152                 v       hb
 153                 count   int
 154                 =>      hb
 155         xor
 156                 v       hbv
 157                 d       hb
 158         random
 159                 length  int
 160                 =>      hb
 161         pad
 162                 op      enum(PadOp, "hbytes pad subcommand")
 163                 v       hbv
 164                 blocksz obj
 165                 meth    enum(PadMethodInfo, "pad method")
 166                 ...     methargs
 167         blockcipher
 168                 op      enum(BlockCipherOp, "op")
 169                 ...     obj
 170         hash
 171                 alg     enum(HashAlgInfo, "hash alg")
 172                 message hb
 173                 =>      hb
 174         hmac
 175                 alg     enum(HashAlgInfo, "hash alg for hmac")
 176                 message hb
 177                 key     obj
 178                 ?maclen obj
 179                 =>      hb
 180         hash-prop
 181                 prop    enum(HashAlgPropInfo, "prop")
 182                 alg     enum(HashAlgInfo, "alg")
 183                 =>      int
 184         mask-map
 185                 subcmd  enum(MaskMap_SubCommand, "hbytes mask-map subcommand")
 186                 ...     obj
 187
 188 Table padmethodinfo PadMethodInfo
 189         pkcs5
 190                 =>      int
 191         rfc2406
 192                 nxthdr  obj
 193                 =>      int
 194
 195 Table dgram_socket DgramSocket_SubCommand
 196         create
 197                 local   sockaddr
 198                 =>      iddata(&dgram_socks)
 199         close
 200                 sock    iddata(&dgram_socks)
 201         transmit
 202                 sock    iddata(&dgram_socks)
 203                 data    hb
 204                 remote  sockaddr
 205         on-receive
 206                 sock    iddata(&dgram_socks)
 207                 ?script obj
 208
 209 Table tuntap_socket_raw TunSocket_SubCommand
 210         create
 211                 ?ifname string
 212                 =>      iddata(&tuntap_socks)
 213         close
 214                 sock    iddata(&tuntap_socks)
 215         ifname
 216                 sock    iddata(&tuntap_socks)
 217                 =>      string
 218         receive
 219                 sock    iddata(&tuntap_socks)
 220                 data    hb
 221         on-transmit
 222                 sock    iddata(&tuntap_socks)
 223                 mtu     long
 224                 ?script obj
 225
 226 Table blockcipherop BlockCipherOp
 227         e       1
 228                 v       hbv
 229                 alg     enum(BlockCipherAlgInfo, "alg")
 230                 key     obj
 231                 mode    enum(BlockCipherModeInfo, "mode")
 232                 ?iv     hb
 233                 =>      hb
 234         d       0
 235                 v       hbv
 236                 alg     enum(BlockCipherAlgInfo, "alg")
 237                 key     obj
 238                 mode    enum(BlockCipherModeInfo, "mode")
 239                 ?iv     hb
 240                 =>      hb
 241         mac     -1
 242                 msg     hb
 243                 alg     enum(BlockCipherAlgInfo, "alg")
 244                 key     obj
 245                 mode    enum(BlockCipherModeInfo, "mode")
 246                 iv      hb
 247                 =>      hb
 248         prop    -1
 249                 prop    enum(BlockCipherPropInfo, "prop")
 250                 alg     enum(BlockCipherAlgInfo, "alg")
 251                 =>      int
 252
 253 EntryExtra BlockCipherOp
 254         int encrypt;