1 files changed, 99 insertions, 0 deletions
diff --git a/appl/cmd/install/mkproto.b b/appl/cmd/install/mkproto.b
new file mode 100644
index 00000000..cee3fd21
--- /dev/null
+++ b/appl/cmd/install/mkproto.b
@@ -0,0 +1,99 @@
+#	
+# Copyright © 2000 Vita Nuova (Holdings) Limited.  All rights reserved.	
+#
+
+implement Mkproto;
+
+# make a proto description of the directory or file
+
+include "sys.m";
+	sys: Sys;
+
+include "draw.m";
+
+include "readdir.m";
+	readdir: Readdir;
+
+include "bufio.m";
+	bufio: Bufio;
+	Iobuf: import bufio;
+
+Mkproto: module
+{
+	init: fn(ctxt: ref Draw->Context, argv: list of string);
+};
+
+usage()
+{
+	sys->fprint(sys->fildes(2), "Usage: mkproto [ file|directory ... ]\n");
+	raise "fail:usage";
+}
+
+not: list of string;
+bout: ref Iobuf;
+
+init(nil: ref Draw->Context, argv: list of string)
+{
+	sys = load Sys Sys->PATH;
+	readdir = load Readdir Readdir->PATH;
+	bufio = load Bufio Bufio->PATH;
+
+	bout = bufio->fopen(sys->fildes(1), Bufio->OWRITE);
+	argv = tl argv;
+	while (argv != nil && hd argv != nil && (hd argv)[0] == '-') {
+		not = (hd argv)[1:] :: not;
+		argv = tl argv;
+	}
+	if (argv == nil)
+		visit(".", nil, -1);
+	else if (tl argv == nil)
+		visit(hd argv, nil, -1);
+	else {
+		for ( ; argv != nil; argv = tl argv)
+			visit(hd argv, hd argv, 0);
+	}
+	bout.flush();
+}
+
+warn(s: string)
+{
+	sys->fprint(sys->fildes(2), "mkproto: %s\n", s);
+}
+
+visit(fulln: string, reln: string, depth: int)
+{
+	if (depth == 0) {
+		for (n := not; n != nil; n = tl n) {
+			if (hd n == reln) {
+				# sys->fprint(stderr, "skipping %s\n", reln);
+				return;
+			}
+		}
+		# sys->fprint(stderr, "doing %s\n", reln);
+	}
+	(ok, d) := sys->stat(fulln);
+	if(ok < 0){
+		warn(sys->sprint("cannot stat %s: %r", fulln));
+		return;
+	}
+	if (depth >= 0)
+		visitf(fulln, reln, d, depth);
+	if (d.mode & Sys->DMDIR)
+		visitd(fulln, reln, d, depth);
+}
+
+visitd(fulln: string, nil: string, nil: Sys->Dir, depth: int)
+{
+	(dir, n) := readdir->init(fulln, Readdir->NAME|Readdir->COMPACT);
+	for (i := 0; i < n; i++) {
+		path := "/"+dir[i].name;
+		visit(fulln+path, dir[i].name, depth+1);
+	}
+}
+
+visitf(nil: string, reln: string, nil: Sys->Dir, depth: int)
+{
+	for (i := 0; i < depth; i++)
+		bout.putc('\t');
+	bout.puts(sys->sprint("%q\n", reln));
+}