ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/cmd/export.b/
# # export current name space on a connection # implement Export; include "sys.m"; sys: Sys; include "draw.m"; Export: module { init: fn(nil: ref Draw->Context, argv: list of string); }; usage() { sys->fprint(stderr(), "Usage: export [-a] dir [connection]\n"); raise "fail:usage"; } init(nil: ref Draw->Context, argv: list of string) { # usage: export dir [connection] sys = load Sys Sys->PATH; if(argv != nil) argv = tl argv; flag := Sys->EXPWAIT; for(; argv != nil && len hd argv && (hd argv)[0] == '-'; argv = tl argv) for(i := 1; i < len hd argv; i++) case (hd argv)[i] { 'a' => flag = Sys->EXPASYNC; * => usage(); } n := len argv; if (n < 1 || n > 2) usage(); fd: ref Sys->FD; if (n == 2) { if ((fd = sys->open(hd tl argv, Sys->ORDWR)) == nil) { sys->fprint(stderr(), "export: can't open %s: %r\n", hd tl argv); raise "fail:open"; } } else fd = sys->fildes(0); if (sys->export(fd, hd argv, flag) < 0) { sys->fprint(stderr(), "export: can't export: %r\n"); raise "fail:export"; } } stderr(): ref Sys->FD { return sys->fildes(2); }