shithub: purgatorio

ref: 0644aa11c120a581eec1d47c66208e08b946ec08
dir: /appl/cmd/echo.b/

implement Echo;

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

Echo: module
{
	init:	fn(nil: ref Draw->Context, nil: list of string);
};

init(nil: ref Draw->Context, args: list of string)
{
	sys = load Sys Sys->PATH;
	if(args != nil)
		args = tl args;
	addnl := 1;
	if(args != nil && (hd args == "-n" || hd args == "--")) {
		if(hd args == "-n")
			addnl = 0;
		args = tl args;
	}
	s := "";
	if(args != nil) {
		s = hd args;
		while((args = tl args) != nil)
			s += " " + hd args;
	}
	if(addnl)
		s[len s] = '\n';
	a := array of byte s;
	if(sys->write(sys->fildes(1), a, len a) < 0){
		sys->fprint(sys->fildes(2), "echo: write error: %r\n");
		raise "fail:write error";
	}
}