ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/cmd/wmimport.b/
implement Wmimport; # # Copyright © 2003 Vita Nuova Holdings Limited. # include "sys.m"; sys: Sys; include "draw.m"; draw: Draw; include "arg.m"; include "wmlib.m"; include "sh.m"; # turn wmexport namespace into a Draw->Context. # usage: wmimport [-d /dev/draw] [-w /mnt/wm] cmd [arg...] Wmimport: module { init: fn(nil: ref Draw->Context, argv: list of string); }; init(nil: ref Draw->Context, argv: list of string) { sys = load Sys Sys->PATH; draw = load Draw Draw->PATH; wmlib := load Wmlib Wmlib->PATH; wmlib->init(); sh := load Sh Sh->PATH; arg := load Arg Arg->PATH; devdraw := "/dev"; mntwm := "/mnt/wm"; arg->init(argv); arg->setusage("wmimport [-d /dev] [-w /mnt/wm] cmd [arg...]"); while((opt := arg->opt()) != 0){ case opt{ 'd' => devdraw = arg->earg(); 'w' => mntwm = arg->earg(); * => arg->usage(); } } argv = arg->argv(); if(argv == nil) arg->usage(); arg = nil; (ok, nil) := sys->stat(mntwm + "/clone"); if(ok == -1){ sys->fprint(sys->fildes(2), "wmimport: no wm at %s\n", mntwm); raise "fail:no wm"; } (ctxt, err) := wmlib->importdrawcontext(devdraw, mntwm); if(ctxt == nil){ sys->fprint(sys->fildes(2), "wmimport: remote connect failed; %s\n", err); raise "fail:error"; } e := sh->run(ctxt, argv); if(e != nil) raise "fail:" + e; }