1 files changed, 25 insertions, 0 deletions
diff --git a/appl/acme/acme/mail/mkbox.b b/appl/acme/acme/mail/mkbox.b
new file mode 100644
index 00000000..c0da4a78
--- /dev/null
+++ b/appl/acme/acme/mail/mkbox.b
@@ -0,0 +1,25 @@
+implement Mkbox;
+
+include "sys.m";
+include "draw.m";
+
+sys : Sys;
+
+FD : import sys;
+
+Mkbox : module {
+	init : fn(ctxt : ref Draw->Context, argl : list of string);
+};
+
+init(nil : ref Draw->Context, argl : list of string)
+{
+	sys = load Sys Sys->PATH;
+	for (argl = tl argl; argl != nil; argl = tl argl) {
+		nm := hd argl;
+		(ok, dir) := sys->stat(nm);
+		if (ok < 0) {
+			fd := sys->create(nm, Sys->OREAD, 8r600);
+			fd = nil;
+		}
+	}
+}