ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
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; }