1implement Rm; 2 3include "sys.m"; 4 sys: Sys; 5include "draw.m"; 6 7Rm: module 8{ 9 init: fn(ctxt: ref Draw->Context, argv: list of string); 10}; 11 12init(nil: ref Draw->Context, argv: list of string) 13{ 14 sys = load Sys Sys->PATH; 15 stderr := sys->fildes(2); 16 17 argv = tl argv; 18 while(argv != nil) { 19 if(sys->remove(hd argv) < 0) 20 sys->fprint(stderr, "rm: %s: %r\n", hd argv); 21 argv = tl argv; 22 } 23} 24