xref: /inferno-os/appl/lib/workdir.b (revision 37da2899f40661e3e9631e497da8dc59b971cbd0) 
1*37da2899SCharles.Forsythimplement Workdir;
2*37da2899SCharles.Forsyth
3*37da2899SCharles.Forsythinclude "sys.m";
4*37da2899SCharles.Forsyth
5*37da2899SCharles.Forsythinclude "workdir.m";
6*37da2899SCharles.Forsyth
7*37da2899SCharles.Forsythinit(): string
8*37da2899SCharles.Forsyth{
9*37da2899SCharles.Forsyth	sys := load Sys Sys->PATH;
10*37da2899SCharles.Forsyth	fd := sys->open(".", Sys->OREAD);
11*37da2899SCharles.Forsyth	if(fd == nil)
12*37da2899SCharles.Forsyth		return nil;
13*37da2899SCharles.Forsyth	return sys->fd2path(fd);
14*37da2899SCharles.Forsyth}
15