20060303a

1 files changed, 68 insertions, 0 deletions

diff --git a/appl/cmd/zeros.b b/appl/cmd/zeros.b
new file mode 100644
index 00000000..9708fca3
--- /dev/null
+++ b/appl/cmd/zeros.b
@@ -0,0 +1,68 @@
+implement Zeros;
+
+include "sys.m";
+	sys: Sys;
+include "arg.m";
+	arg: Arg;
+include "string.m";
+	str: String;
+include "keyring.m";
+include "security.m";
+	random: Random;
+
+include "draw.m";
+
+Zeros: module
+{
+	init: fn(nil: ref Draw->Context, argv: list of string);
+};
+
+init(nil: ref Draw->Context, argv: list of string)
+{
+	z: array of byte;
+	i: int;
+	sys = load Sys Sys->PATH;
+	arg = load Arg Arg->PATH;
+	str = load String String->PATH;
+
+	if(sys == nil || arg == nil)
+		return;
+
+	bs := 0;
+	n := 0;
+	val := 0;
+	rflag := 0;
+	arg->init(argv);
+	while ((c := arg->opt()) != 0)
+		case c {
+		'r' => rflag = 1;
+		'v' => (val, nil) = str->toint(arg->arg(), 16);
+		* => raise sys->sprint("fail:unknown option (%c)\n", c);
+		}
+	argv = arg->argv();
+	if(len argv >= 1)
+		bs = int hd argv;
+	else
+		bs = 1;
+	if (len argv >= 2)
+		n = int hd tl argv;
+	else
+		n = 1;
+	if(bs == 0 || n == 0) {
+		sys->fprint(sys->fildes(2), "usage: zeros [-r] [-v value] blocksize [number]\n");
+		raise "fail:usage";
+	}
+	if (rflag) {
+		random = load Random Random->PATH;
+		if (random == nil)
+			raise "fail:no security module\n";
+		z = random->randombuf(random->NotQuiteRandom, bs);
+	}
+	else {
+		z = array[bs] of byte;
+		for(i=0;i<bs;i++)
+			z[i] = byte val;
+	}
+	for(i=0;i<n;i++)
+		sys->write(sys->fildes(1), z, bs);
+}