ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/grid/find.b/
implement Find; # # Copyright © 2003 Vita Nuova Holdings Limited. All rights reserved. # include "sys.m"; sys: Sys; include "draw.m"; draw: Draw; Rect: import draw; include "tk.m"; tk: Tk; include "tkclient.m"; tkclient: Tkclient; include "arg.m"; include "sh.m"; include "registries.m"; registries: Registries; Registry, Attributes, Service: import registries; include "grid/announce.m"; announce: Announce; Find: module { init: fn(ctxt: ref Draw->Context, argv: list of string); }; init(ctxt: ref Draw->Context, argv: list of string) { sys = load Sys Sys->PATH; sys->pctl(sys->FORKNS | sys->NEWPGRP, nil); draw = load Draw Draw->PATH; arg := load Arg Arg->PATH; if (arg == nil) badmod(Arg->PATH); if (draw == nil) badmod(Draw->PATH); tk = load Tk Tk->PATH; if (tk == nil) badmod(Tk->PATH); tkclient = load Tkclient Tkclient->PATH; if (tkclient == nil) badmod(Tkclient->PATH); tkclient->init(); registries = load Registries Registries->PATH; if (registries == nil) badmod(Registries->PATH); registries->init(); command := ""; attrs := Attributes.new(nil); arg->init(argv); arg->setusage("find [-a attributes] action1 { cmd [args...] } .. actionN { cmd [args...] }"); title := "a resource"; while ((opt := arg->opt()) != 0) { case opt { 't' => title = arg->earg(); 'a' => attr := arg->earg(); val := arg->earg(); attrs.set(attr, val); * => arg->usage(); } } argv = arg->argv(); if (argv == nil || len argv % 2) arg->usage(); arg = nil; cmds := array[len argv / 2] of (string, string); for (i := 0; i < len cmds; i++) { cmds[i] = (hd argv, hd tl argv); argv = tl tl argv; } reg := Registry.connect(nil, nil, nil); if (reg == nil) error(ctxt, ((0,0),(0,0)), "Could not find registry"); (matches, err) := reg.find(attrs.attrs); if (err != nil) error(ctxt, ((0,0),(0,0)), "Registry error: "+err); spawn tkwin(ctxt, matches, cmds, title); } mainscr := array[] of { "frame .f", "frame .f.flb", "listbox .f.flb.lb1 -yscrollcommand {.f.flb.sb1 set} -selectmode single -bg white -selectbackground blue -font /fonts/charon/plain.normal.font", "bind .f.flb.lb1 <Double-Button-1> {send butchan double %y}", "scrollbar .f.flb.sb1 -command {.f.flb.lb1 yview}", "pack .f.flb.sb1 -fill y -side left", "pack .f.flb.lb1 -fill both -expand 1", "frame .f.fb", "pack .f.flb -fill both -expand 1 -side top", "pack .f.fb", "pack .f -fill both -expand 1", }; errscr := array[] of { "frame .f", "frame .f.fl", "label .f.fl.l1 -text {} -font /fonts/charon/plain.normal.font ", "label .f.fl.l2 -text {Please try again later} -font /fonts/charon/plain.normal.font", "pack .f.fl.l1 .f.fl.l2 -side top", "button .f.b -text { Close } -command {send butchan exit} "+ "-font /fonts/charon/bold.normal.font", "grid .f.fl -row 0 -column 0 -padx 10 -pady 5", "grid .f.b -row 1 -column 0 -pady 5", "pack .f", }; tkwin(ctxt: ref Draw->Context, lsrv: list of ref Service, cmds: array of (string, string), title: string) { (top, titlectl) := tkclient->toplevel(ctxt, "", "Find "+title, tkclient->Appl); butchan := chan of string; tk->namechan(top, butchan, "butchan"); if (lsrv == nil) { tkcmds(top, errscr); tkcmd(top, ".f.fl.l1 configure -text {Could not find "+title+"}"); } else { tkcmds(top, mainscr); for (tmp := lsrv; tmp != nil; tmp = tl tmp) tkcmd(top, ".f.flb.lb1 insert end {"+(hd tmp).attrs.get("name")+"}"); for (i := 0; i < len cmds; i++) { si := string i; tkcmd(top, "button .f.fb.b"+si+" -font /fonts/charon/bold.normal.font "+ "-text {"+cmds[i].t0+"} -command {send butchan go "+si+"}"); tkcmd(top, "grid .f.fb.b"+si+" -row 0 -column "+si+" -padx 5 -pady 5"); } tkcmd(top, ".f.flb.lb1 selection set 0"); tkcmd(top, "pack propagate . 0"); } tkclient->onscreen(top, nil); tkclient->startinput(top, "kbd"::"ptr"::nil); for(;;) alt { s := <-top.ctxt.kbd => tk->keyboard(top, s); s := <-top.ctxt.ptr => tk->pointer(top, *s); inp := <- butchan => (nil, lst) := sys->tokenize(inp, " \t\n"); case hd lst { "exit" => return; "go" => n := int hd tl lst; id := tkcmd(top, ".f.flb.lb1 curselection"); if (id != nil) connect(ctxt, lsrv, cmds[n].t1 :: nil, tk->rect(top, ".",0), int id); "double" => y := hd tl lst; id := int tkcmd(top, ".f.flb.lb1 nearest "+y); connect(ctxt, lsrv, cmds[0].t1 :: nil, tk->rect(top, ".",0), id); } s := <-top.ctxt.ctl or s = <-top.wreq or s = <- titlectl => if (s == "exit") exit; else tkclient->wmctl(top, s); } } connect(ctxt: ref Draw->Context, lsrv: list of ref Service, argv: list of string, r: Rect, id: int) { for (tmp := lsrv; tmp != nil; tmp = tl tmp) { if (id-- == 0) { spawn mountit(ctxt, hd tmp, argv, r); break; } } } tkcmd(top: ref Tk->Toplevel, cmd: string): string { e := tk->cmd(top, cmd); if (e != "" && e[0] == '!') sys->print("tk error: '%s': %s\n",cmd,e); return e; } tkcmds(top: ref Tk->Toplevel, cmds: array of string) { for (i := 0; i < len cmds; i++) tkcmd(top, cmds[i]); } mountit(ctxt: ref Draw->Context, srv: ref Registries->Service, argv: list of string, r: Rect) { sys->pctl(Sys->FORKNS| Sys->NEWPGRP, nil); attached := srv.attach(nil,nil); if (attached != nil) { if (sys->mount(attached.fd, nil, "/n/client", sys->MREPL, nil) != -1) { sh := load Sh Sh->PATH; if (sh == nil) badmod(Sh->PATH); sys->chdir("/n/client"); err := sh->run(ctxt, argv); if (err != nil) error(ctxt, r, "failed to run: "+err); } else error(ctxt, r, sys->sprint("failed to mount: %r")); } else error(ctxt, r, sys->sprint("could not connect")); } stderr(): ref Sys->FD { return sys->fildes(2); } badmod(path: string) { sys->fprint(stderr(), "Find: cannot load %s: %r\n", path); exit; } errorwin := array[] of { "frame .f", "label .f.l -font /fonts/charon/plain.normal.font", "button .f.b -text {Ok} -font /fonts/charon/bold.normal.font "+ "-command {send butchan ok}", "pack .f.l .f.b -side top -padx 5 -pady 5", "pack .f", }; error(ctxt: ref Draw->Context, oldr: Draw->Rect, errstr: string) { (top, titlectl) := tkclient->toplevel(ctxt, "", "Error", tkclient->Appl); butchan := chan of string; tk->namechan(top, butchan, "butchan"); tkcmds(top, errorwin); tkcmd(top, ".f.l configure -text {"+errstr+"}"); r := tk->rect(top, ".", 0); newx := ((oldr.dx() - r.dx())/2) + oldr.min.x; if (newx < 0) newx = 0; newy := ((oldr.dy() - r.dy())/2) + oldr.min.y; if (newy < 0) newy = 0; tkcmd(top, ". configure -x "+string newx+" -y "+string newy); tkclient->onscreen(top, "exact"); tkclient->startinput(top, "kbd"::"ptr"::nil); for(;;) alt { s := <-top.ctxt.kbd => tk->keyboard(top, s); s := <-top.ctxt.ptr => tk->pointer(top, *s); <- butchan => tkclient->wmctl(top, "exit"); s := <-top.ctxt.ctl or s = <-top.wreq or s = <- titlectl => tkclient->wmctl(top, s); } }