working on new addrmap instead of maskmap - compiles, but have not yet implemented...

[chiark-tcl.git] / base / tables-examples.tct

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 8a28c4fe1d13cd11b8c471237bff84dc5cc9bdde..7ce5dc7f671bfcf61842961ba4169843c996d077 100644 (file)
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -7,9 +7,9 @@ Fini hbv                        fini_somethingv(ip, rc, &@.sth);
 
 Type constv(Tcl_ObjType*):     Tcl_Obj *@
 
-Type maskmapv:                 MaskMap_Var @
-Init maskmapv                  @.mm=0; init_somethingv(&@.sth);
-Fini maskmapv                  fini_somethingv(ip, rc, &@.sth);
+Type addrmapv:                 AddrMap_Var @
+Init addrmapv                  @.am=0; init_somethingv(&@.sth);
+Fini addrmapv                  fini_somethingv(ip, rc, &@.sth);
 
 Type sockaddr:                 SockAddr_Value @
 Init sockaddr                  sockaddr_clear(&@);
@@ -74,15 +74,20 @@ Table adns Adns_SubCommand
        destroy-resolver
                res     iddata(&adnstcl_resolvers)
 
-Table maskmap MaskMap_SubCommand
+Table addrmap AddrMap_SubCommand
        lookup
-               map     constv(&maskmap_type)
+               map     constv(&addrmap_type)
                addr    hb
                ?def    obj
                =>      obj
-       amend
-               map     maskmapv
-               prefix  obj
+       amend-range
+               map     addrmapv
+               start   hb
+               end     hb
+               data    obj
+       amend-mask
+               map     addrmapv
+               prefix  hb
                preflen obj
                data    obj
 
@@ -218,8 +223,8 @@ Table hbytes HBytes_SubCommand
                prop    enum(HashAlgPropInfo, "prop")
                alg     enum(HashAlgInfo, "alg")
                =>      int
-       mask-map
-               subcmd  enum(MaskMap_SubCommand, "hbytes mask-map subcommand")
+       addr-map
+               subcmd  enum(AddrMap_SubCommand, "hbytes addr-map subcommand")
                ...     obj
 
 Table padmethodinfo PadMethodInfo