20060303a

1 files changed, 50 insertions, 0 deletions

diff --git a/appl/cmd/basename.b b/appl/cmd/basename.b
new file mode 100644
index 00000000..8d0ad5a8
--- /dev/null
+++ b/appl/cmd/basename.b
@@ -0,0 +1,50 @@
+implement Basename;
+
+include "sys.m";
+	sys: Sys;
+
+include "draw.m";
+
+include "names.m";
+	names: Names;
+
+include "arg.m";
+
+Basename: module
+{
+	init:	fn(nil: ref Draw->Context, nil: list of string);
+};
+
+init(nil: ref Draw->Context, args: list of string)
+{
+	sys = load Sys Sys->PATH;
+	names = load Names Names->PATH;
+	arg := load Arg Arg->PATH;
+
+	dirname := 0;
+	arg->init(args);
+	arg->setusage("basename [-d] string [suffix]");
+	while((o := arg->opt()) != 0)
+		case o {
+		'd' =>
+			dirname = 1;
+		* =>
+			arg->usage();
+		}
+	args = arg->argv();
+	if(args == nil || tl args != nil && (dirname || tl tl args != nil))
+		arg->usage();
+	arg = nil;
+
+	if(dirname){
+		s := names->dirname(hd args);
+		if(s == nil)
+			s = ".";
+		sys->print("%s\n", s);
+		exit;
+	}
+	suffix: string;
+	if(tl args != nil)
+		suffix = hd tl args;
+	sys->print("%s\n", names->basename(hd args, suffix));
+}