1 files changed, 14 insertions, 0 deletions
diff --git a/appl/lib/workdir.b b/appl/lib/workdir.b
new file mode 100644
index 00000000..aa571b9d
--- /dev/null
+++ b/appl/lib/workdir.b
@@ -0,0 +1,14 @@
+implement Workdir;
+
+include "sys.m";
+
+include "workdir.m";
+
+init(): string
+{
+	sys := load Sys Sys->PATH;
+	fd := sys->open(".", Sys->OREAD);
+	if(fd == nil)
+		return nil;
+	return sys->fd2path(fd);
+}