# stdoutwriter.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 write to stdout using both the sys->fprint function and an I/O# buffer. implement StdoutWriter; include "draw.m";include "sys.m";include "bufio.m"; StdoutWriter: module{    init: fn(ctxt: ref Draw->Context, args: list of string);}; init(ctxt: ref Draw->Context, args: list of string){    sys := load Sys Sys->PATH;    bufio := load Bufio Bufio->PATH;    Iobuf: import bufio;     # Printing strings is easy with the following function.    sys->fprint(sys->fildes(1), "Simple hello.\n");     iobuf: ref Iobuf;    iobuf = bufio->fopen(sys->fildes(1), Sys->OWRITE);        # The first argument is omitted because it is declared using self, meaning    # that the iobuf instance is substituted, as in Python.    b := array of byte "Hello world!\n";    iobuf.write(b, len(b));    iobuf.close();}