blob: 28fd4d247b1e67053c3925cfda92a3c353c268b6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
implement Pwd;
include "sys.m";
include "draw.m";
include "workdir.m";
Pwd: module
{
init: fn(nil: ref Draw->Context, nil: list of string);
};
init(nil: ref Draw->Context, nil: list of string)
{
sys := load Sys Sys->PATH;
stderr := sys->fildes(2);
gwd := load Workdir Workdir->PATH;
if (gwd == nil) {
sys->fprint(stderr, "pwd: cannot load %s: %r\n", Workdir->PATH);
raise "fail:bad module";
}
wd := gwd->init();
if(wd == nil) {
sys->fprint(stderr, "pwd: %r\n");
raise "fail:error";
}
sys->print("%s\n", wd);
}
|
