diff options
| author | Charles.Forsyth <devnull@localhost> | 2006-12-22 17:07:39 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2006-12-22 17:07:39 +0000 |
| commit | 37da2899f40661e3e9631e497da8dc59b971cbd0 (patch) | |
| tree | cbc6d4680e347d906f5fa7fca73214418741df72 /appl/lib/workdir.b | |
| parent | 54bc8ff236ac10b3eaa928fd6bcfc0cdb2ba46ae (diff) | |
20060303a
Diffstat (limited to 'appl/lib/workdir.b')
| -rw-r--r-- | appl/lib/workdir.b | 14 |
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); +} |