# shell.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 to start a shell using the Sh module.

implement Shell;

include "sys.m";
    sys: Sys;

include "draw.m";
    draw: Draw;
    Context: import draw;

include "sh.m";
    sh: Sh;

Shell: module
{
    init: fn(ctxt: ref Context, argv: list of string);
};

init(ctxt: ref Context, argv: list of string)
{
    sys := load Sys Sys->PATH;
    sh := load Sh Sh->PATH;

    # Either of the following will work.
    # The first is a declaration followed by an assignment.
    #args: list of string = "sh"::"-c"::"ls /tmp"::nil;
    # The second is an assignment that defines the type of the list elements.
    args := list of {"sh", "-c", "ls /tmp"};

    # We do not need to spawn a new process here.
    sh->init(ctxt, args);
}