code: 9ferno

ref: 6d69f6fba35087686f79adb2ea0d67944a62ca7b
dir: /appl/cmd/pwd.b/

View raw version 
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);
}