# tablestest.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 TablesTest; include "sys.m";    sys: Sys;include "draw.m";    draw: Draw;include "tables.m";    tables: Tables;    Strhash, Table: import tables; TablesTest: module{    init: fn(ctx: ref Draw->Context, args: list of string);}; Entry: adt {    lat, lon: real;}; init(ctx: ref Draw->Context, args: list of string){    sys = load Sys Sys->PATH;    tables = load Tables Tables->PATH;     h := Strhash[ref Entry].new(23, ref Entry(0.0, 0.0));    h.add("Oslo", ref Entry(59.0 + 55.0/60.0, 10.0 + 44.0/60.0));    h.add("Tokyo", ref Entry(35.0 + 41.0/60.0, 139.0 + 41.0/60.0));    h.add("Santiago", ref Entry(-33.0 - 27.0/60.0, -70.0 - 40.0/60.0));     sys->print("%s %g %g\n", "Oslo", h.find("Oslo").lat, h.find("Oslo").lon);    sys->print("%s %g %g\n", "Tokyo", h.find("Tokyo").lat, h.find("Tokyo").lon);    sys->print("%s %g %g\n", "Santiago", h.find("Santiago").lat, h.find("Santiago").lon);    sys->print("%s %g %g\n", "?", h.find("?").lat, h.find("?").lon);}