git: purgatorio

ref: babf901b4a508c3ec5d1f89655f10377bbdf9637
dir: /appl/cmd/mkdir.b/

implement Mkdir;

include "sys.m";
	sys: Sys;

include "draw.m";


stderr: ref Sys->FD;

Mkdir: module
{
	init:	fn(ctxt: ref Draw->Context, argv: list of string);
};

init(nil: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	stderr = sys->fildes(2);

	if(argv == nil || (argv = tl argv) == nil)
		exit;
	pflag := 0;
	if(hd argv == "-p"){
		pflag = 1;
		argv = tl argv;
	}
	e := "";
	for(; argv != nil; argv = tl argv){
		dir := hd argv;
		if(!pflag){
			(ok, nil) := sys->stat(dir);
			if(ok < 0){
				if(mkdir(dir) < 0)
					e = "error";
			}else{
				sys->fprint(stderr, "mkdir: %s already exists\n", dir);
				e = "error";
			}
		}else if(mkpath(dir) < 0)
			e = "error";
	}
	if(e != nil)
		raise "fail:"+e;
}

mkpath(dir: string): int
{
	(nil, flds) := sys->tokenize(dir, "/");
	s := "";
	if(dir != "" && dir[0] != '/')
		s = ".";
	for(; flds != nil; flds = tl flds){
		s += "/"+hd flds;
		(ok, d) := sys->stat(s);
		if(ok < 0){
			if(mkdir(s) < 0)
				return -1;
		}else if((d.mode & Sys->DMDIR) == 0){
			sys->fprint(stderr, "mkdir: can't create %s: %s not a directory\n", dir, s);
			return -1;
		}
	}
	return 0;
}

mkdir(dir: string): int
{
	f := sys->create(dir, Sys->OREAD, Sys->DMDIR + 8r777);
	if(f == nil) {
		sys->fprint(stderr, "mkdir: can't create %s: %r\n", dir);
		return -1;
	}
	return 0;
}