implement zeros;

include "sys.m";
	sys: Sys;

include "draw.m";

zeros: 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;
	if(sys == nil)
		return;

	bs := 0;
	n := 0;
	if(len argv > 1)
		bs = int hd tl argv;
	else
		bs = 1;
	if (len argv > 2)
		n = int hd tl tl argv;
	else
		n = 1;
	if(bs == 0 || n == 0) {
		sys->fprint(sys->fildes(2), "usage: zeros blocksize [number]\n");
		sys->raise("fail: usage");
	}
	z := array[bs] of byte;
	for(i:=0;i<bs;i++)
		z[i] = byte 0;
	for(i=0;i<n;i++)
		sys->write(sys->fildes(1), z, bs);
}