# references.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/>.

# Tests my intuition about references.

implement References;

include "sys.m";
    sys: Sys;
include "draw.m";

References: module
{
    init: fn(ctxt: ref Draw->Context, args: list of string);
};

Name: adt
{
    first: string;
    second: string;

    repr: fn(name: self Name): string;
    reprref: fn(name: self ref Name): string;
};

init(nil: ref Draw->Context, args: list of string)
{
    sys = load Sys Sys->PATH;

    a := Name("John", "Smith");
    b := ref a;

    sys->print("a = %s\n", a.repr());
    sys->print("b = %s\n", b.reprref());

    a.first = "Jim";
    sys->print("a = %s\n", a.repr());
    sys->print("b = %s\n", b.reprref());

    b.second = "Brown";
    sys->print("a = %s\n", a.repr());
    sys->print("b = %s\n", b.reprref());
}

Name.repr(name: self Name): string
{
    return sys->sprint("%s %s", name.first, name.second);
}

Name.reprref(name: self ref Name): string
{
    return sys->sprint("%s %s", name.first, name.second);
}