git: purgatorio

ref: 4e1b511d026220c7f5dbe4f62d114bef418cdcf9
dir: /appl/cmd/hd.b/

implement Hd;

include "sys.m";
	sys: Sys;

include "draw.m";

include "string.m";

stderr: ref Sys->FD;

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


init(nil: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	stderr = sys->fildes(2);
	str := load String String->PATH;

	if(len argv < 2)
		usage();

	argv = tl argv;

	out := hd argv;
	(toks, err) := str->qtokenize(out);
	if(err != "" || len toks > 1)
		out = str->quoted(out :: nil);
	sys->print("%s\n", out);

	exit;
}

usage() {
	sys->fprint(stderr, "usage: hd (list 'of tokens')\n");
	exit;
}