20060303a

1 files changed, 23 insertions, 0 deletions

diff --git a/appl/tiny/rm.b b/appl/tiny/rm.b
new file mode 100644
index 00000000..81179869
--- /dev/null
+++ b/appl/tiny/rm.b
@@ -0,0 +1,23 @@
+implement Rm;
+
+include "sys.m";
+	sys: Sys;
+include "draw.m";
+
+Rm: 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;
+	stderr := sys->fildes(2);
+
+	argv = tl argv;
+	while(argv != nil) {
+		if(sys->remove(hd argv) < 0)
+			sys->fprint(stderr, "rm: %s: %r\n", hd argv);
+		argv = tl argv;
+	}
+}