base/tables-examples.tct

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