-Type hb: HBytes_Value @
-Init hb cht_hb_sentinel(&@);
+# hbytes - hex-stringrep efficient byteblocks for Tcl
+# Copyright 2006-2012 Ian Jackson
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this library; if not, see <http://www.gnu.org/licenses/>.
-Type hbv: HBytes_Var @
-Init hbv @.hb=0; cht_init_somethingv(&@.sth);
-Fini hbv cht_fini_somethingv(ip, rc, &@.sth);
-Type addrmapv: AddrMap_Var @
-Init addrmapv @.am=0; cht_init_somethingv(&@.sth);
-Fini addrmapv cht_fini_somethingv(ip, rc, &@.sth);
-
-Table hbytestoplevel TopLevel_Command
+Table *hbytestoplevel TopLevel_Command
hbytes
- subcmd enum(HBytes/_SubCommand, "hbytes subcommand")
- ... obj
+ dispatch(HBytes/_SubCommand, "hbytes subcommand")
ulong
- subcmd enum(ULong/_SubCommand, "ulong subcommand")
- ... obj
+ dispatch(ULong/_SubCommand, "ulong subcommand")
Table ulong ULong_SubCommand
ul2int
random
length int
=> hb
-# addr-map
-# subcmd enum(AddrMap/_SubCommand, "hbytes addr-map subcommand")
-# ... obj
-
-#Table addrmap AddrMap_SubCommand
-# lookup
-# map constv(&cht_addrmap_type)
-# addr hb
-# ?def obj
-# => obj
-# amend-range
-# map addrmapv
-# start hb
-# end hb
-# data obj
-# amend-mask
-# map addrmapv
-# prefix hb
-# preflen obj
-# data obj
-