# tablestest2.b## Written in 2018 by David Boddie <david@boddie.org.uk>## To the extent possible under law, the author(s) have dedicated all copyright# and related and neighboring rights to this software to the public domain# worldwide. This software is distributed without any warranty.## You should have received a copy of the CC0 Public Domain Dedication along with# this software. If not, see <http://creativecommons.org/publicdomain/zero/1.0/>. # Shows how the Tables module can be used to store and retrieve associative# data without the overhead of the Hash module. implement TablesTest2; include "sys.m";    sys: Sys;include "draw.m";    draw: Draw;include "tables.m";    tables: Tables;    Strhash, Table: import tables; TablesTest2: module{    init: fn(ctx: ref Draw->Context, args: list of string);}; Callable: type ref fn(); init(ctx: ref Draw->Context, args: list of string){    sys = load Sys Sys->PATH;    tables = load Tables Tables->PATH;     h := Strhash[Callable].new(23, nil);    h.add("Hello", hello);    h.add("world", world);     f : Callable;    f = h.find("Hello");    f();    f = h.find("world");    f();} hello(){    sys->print("Hello\n");} world(){    sys->print("world\n");}