20060303a

1 files changed, 28 insertions, 0 deletions

diff --git a/appl/cmd/src.b b/appl/cmd/src.b
new file mode 100644
index 00000000..70c9da65
--- /dev/null
+++ b/appl/cmd/src.b
@@ -0,0 +1,28 @@
+implement Src;
+
+include "sys.m";
+	sys: Sys;
+include "draw.m";
+include "dis.m";
+	dis: Dis;
+
+Src: 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;
+	dis = load Dis Dis->PATH;
+
+	if(dis != nil){
+		dis->init();
+		for(argv = tl argv; argv != nil; argv = tl argv){
+			src := dis->src(hd argv);
+			if(src == nil)
+				src = "?";
+			sys->print("%s:	%s\n", hd argv, src);
+		}
+	}
+}