implement Sleep;

include "sys.m";
sys: Sys;

include "draw.m";

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

init(nil: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	if(sys == nil || argv == nil)
		return;
	argv = tl argv;
	if(argv != nil && isvalid(hd argv))
		sys->sleep(int (hd argv) * 1000);
	else
		sys->print("usage: sleep time\n");
}

isvalid(t: string): int
{
	l := len t;
	if(l > 0 && (t[0] == '-' || t[0] == '+'))
		x := 1;
	else
		x = 0;
	ok := 0;
	while(x < l) {
		d := t[x];
		if(d < '0' || d > '9')
			return 0;
		ok = 1;
		x++;
	}
	return ok;
}