ref: c116550e6a41572796e4db65e4f6acbcb3d9d6f8
dir: /appl/grid/lib/fbrowse.b/
implement FBrowse; # # 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 "readdir.m"; readdir: Readdir; include "workdir.m"; include "sh.m"; sh: Sh; include "grid/pathreader.m"; reader: PathReader; include "grid/browser.m"; browser: Browser; Browse, Select, File, Parameter, DESELECT, SELECT, TOGGLE: import browser; include "grid/fbrowse.m"; br: ref Browse; init(ctxt : ref Draw->Context, title, root, currdir: string): string { sys = load Sys Sys->PATH; if (sys == nil) badmod(Sys->PATH); draw = load Draw Draw->PATH; if (draw == nil) badmod(Draw->PATH); readdir = load Readdir Readdir->PATH; if (readdir == nil) badmod(Readdir->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(); workdir := load Workdir Workdir->PATH; if (workdir == nil) badmod(Workdir->PATH); sh = load Sh Sh->PATH; if (sh == nil) badmod(Sh->PATH); browser = load Browser Browser->PATH; if (browser == nil) badmod(Browser->PATH); browser->init(); reader = load PathReader "$self"; if (reader == nil) sys->print("cannot load reader!\n"); sys->pctl(sys->NEWPGRP, nil); if (root == nil) root = "/"; sys->chdir(root); if (currdir == nil) currdir = workdir->init(); if (root[len root - 1] != '/') root[len root] = '/'; if (currdir[len currdir - 1] != '/') currdir[len currdir] = '/'; (top, titlebar) := tkclient->toplevel(ctxt,"", title , tkclient->OK | tkclient->Appl); browsechan := chan of string; tk->namechan(top, browsechan, "browsechan"); br = Browse.new(top, "browsechan", root, root, 2, reader); br.addopened(File (root, nil), 1); br.gotoselectfile(File (currdir, nil)); for (ik := 0; ik < len mainscreen; ik++) tkcmd(top,mainscreen[ik]); butchan := chan of string; tk->namechan(top, butchan, "butchan"); tkcmd(top, "pack .f -fill both -expand 1; pack propagate . 0"); tkcmd(top, ". configure -height 300 -width 300"); tkcmd(top, "update"); released := 1; title = ""; tkclient->onscreen(top, nil); resize(top, ctxt.display.image); tkclient->startinput(top, "kbd"::"ptr"::nil); path: string; main: for (;;) { alt { s := <-top.ctxt.kbd => tk->keyboard(top, s); s := <-top.ctxt.ptr => tk->pointer(top, *s); inp := <-browsechan => (nil, lst) := sys->tokenize(inp, " \n\t"); selected := br.getselected(1); case hd lst { "double1pane1" => tkpath := hd tl lst; file := br.getpath(tkpath); br.defaultaction(lst, file); (n, dir) := sys->stat(file.path); if (n == -1 || dir.mode & sys->DMDIR) break; if ((len dir.name > 4 && dir.name[len dir.name - 4:] == ".dis") || dir.mode & 8r111) spawn send(butchan, "run "+tkpath); else if (dir.mode & 8r222) spawn send(butchan, "write "+tkpath); else if (dir.mode & 8r444) spawn send(butchan, "open "+tkpath); * => br.defaultaction(lst, nil); } if (!File.eq(selected, br.getselected(1))) actionbutton(top, br.selected[1].file.path, br.selected[1].tkpath); tkcmd(top, "update"); inp := <-butchan => (nil, lst) := sys->tokenize(inp, " \n\t"); case hd lst { "refresh" => br.refresh(); "shell" => path = br.getselected(1).path; if (path == nil) sys->chdir(root); else sys->chdir(path); sh->run(ctxt, "/dis/wm/sh.dis" :: nil); "run" => spawn run(ctxt, br.getselected(1).path); "read" => wtitle := tkcmd(top, hd tl lst+" cget text"); spawn openfile(ctxt, br.getselected(1).path, wtitle,0); "write" => wtitle := tkcmd(top, hd tl lst+" cget text"); spawn openfile(ctxt, br.getselected(1).path, wtitle,1); } tkcmd(top, "update"); title = <-top.ctxt.ctl or title = <-top.wreq or title = <-titlebar => if (title == "exit" || title == "ok") break main; e := tkclient->wmctl(top, title); if (e != nil && e[0] == '!') br.resize(); } } if (title == "ok") return br.getselected(1).path; return ""; } send(chanout: chan of string, s: string) { chanout <-= s; } resize(top: ref Tk->Toplevel, img: ref Draw->Image) { if (img != nil) { scw := img.r.dx(); sch := img.r.dy(); ww := int tkcmd(top, ". cget -width"); wh := int tkcmd(top, ". cget -height"); if (ww > scw) tkcmd(top, ". configure -x 0 -width "+string scw); if (wh > sch) tkcmd(top, ". configure -y 0 -height "+string sch); } } mainscreen := array[] of { "frame .f", "frame .f.ftop", "button .f.ftop.bs -text {Shell} -command {send butchan shell} -font /fonts/charon/bold.normal.font", "button .f.ftop.br -text {Refresh} -command {send butchan refresh} -font /fonts/charon/bold.normal.font", "grid .f.ftop.bs .f.ftop.br -row 0", "grid columnconfigure .f.ftop 2 -minsize 30", "grid .f.ftop -row 0 -column 0 -pady 2 -sticky w", "label .f.l -text { } -height 1 -bg red", "grid .f.l -row 1 -sticky ew", "grid .fbrowse -in .f -row 2 -column 0 -sticky nsew", "grid rowconfigure .f 2 -weight 1", "grid columnconfigure .f 0 -weight 1", "bind .Wm_t <Button-1> +{focus .Wm_t}", "bind .Wm_t.title <Button-1> +{focus .Wm_t}", "focus .Wm_t", }; readpath(file: File): (array of ref sys->Dir, int) { (dirs, nil) := readdir->init(file.path, readdir->NAME | readdir->COMPACT); return (dirs, 0); } run(ctxt: ref Draw->Context, file: string) { sys->pctl(sys->FORKNS | sys->NEWPGRP, nil); sys->chdir(browser->prevpath(file)); sh->run(ctxt, file :: nil); } openscr := array[] of { "frame .f", "scrollbar .f.sy -command {.f.t yview}", "text .f.t -yscrollcommand {.f.sy set} -bg white -font /fonts/charon/plain.normal.font", "pack .f.sy -side left -fill y", "pack .f.t -fill both -expand 1", "bind .Wm_t <Button-1> +{focus .Wm_t}", "bind .Wm_t.title <Button-1> +{focus .Wm_t}", "focus .f.t", }; fopensize := ("", ""); plumbing := array[] of { ("bit", "wm/view"), ("jpg", "wm/view"), }; freader(top: ref Tk->Toplevel, fd: ref sys->FD, sync: chan of int) { sync <-= sys->pctl(0,nil); buf := array[8192] of byte; for (;;) { i := sys->read(fd, buf, len buf); if (i < 1) return; s :=""; for (j := 0; j < i; j++) { c := int buf[j]; if (c == '{' || c == '}') s[len s] = '\\'; s[len s] = c; } tk->cmd(top, ".f.t insert end {"+s+"}; update"); } } openfile(ctxt: ref draw->Context, file, title: string, writeable: int) { ext := getext(file); plumb := getplumb(ext); if (plumb != nil) { sh->run(ctxt, plumb :: file :: nil); return; } button := tkclient->Appl; if (writeable) button = button | tkclient->OK; (top, titlebar) := tkclient->toplevel(ctxt, "", title, button); tkcmds(top, openscr); tkcmd(top,"pack .f -fill both -expand 1"); tkcmd(top,"pack propagate . 0"); (w,h) := fopensize; if (w != "" && h != "") tkcmd(top, ". configure -width "+w+" -height "+h); killpid := -1; fd := sys->open(file, sys->OREAD); if (fd != nil) { sync := chan of int; spawn freader(top, fd, sync); killpid = <-sync; } tkcmd(top, "update"); tkclient->onscreen(top, nil); tkclient->startinput(top, "kbd"::"ptr"::nil); main: for (;;) { alt { s := <-top.ctxt.kbd => tk->keyboard(top, s); s := <-top.ctxt.ptr => tk->pointer(top, *s); title = <-top.ctxt.ctl or title = <-top.wreq or title = <-titlebar => if (title == "exit" || title == "ok") break main; tkclient->wmctl(top, title); } } if (killpid != -1) kill(killpid); fopensize = (tkcmd(top, ". cget -width"), tkcmd(top, ". cget -height")); if (title == "ok") { (n, dir) := sys->stat(file); if (n != -1) { fd = sys->create(file, sys->OWRITE, dir.mode); if (fd != nil) { s := tkcmd(top, ".f.t get 1.0 end"); sys->fprint(fd,"%s",s); fd = nil; } } } } badmod(path: string) { sys->print("FBrowse: failed to load: %s\n",path); exit; } 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, a: array of string) { for (j := 0; j < len a; j++) tkcmd(top, a[j]); } nactionbuttons := 0; actionbutton(top: ref Tk->Toplevel, path, tkpath: string) { (n, dir) := sys->stat(path); for (i := 0; i < nactionbuttons; i++) { tkcmd(top, "grid forget .f.ftop.baction"+string i); tkcmd(top, "destroy .f.ftop.baction"+string i); } if (path == nil || n == -1 || dir.mode & sys->DMDIR) { nactionbuttons = 0; return; } buttons : list of (string,string) = nil; if (dir.mode & 8r222) buttons = ("Open", "write "+tkpath) :: buttons; else if (dir.mode & 8r444) buttons = ("Open", "read "+tkpath) :: buttons; if (len dir.name > 4 && dir.name[len dir.name - 4:] == ".dis" || dir.mode & 8r111) buttons = ("Run", "run "+tkpath) :: buttons; nactionbuttons = len buttons; for (i = 0; i < nactionbuttons; i++) { name := ".f.ftop.baction"+string i+" "; (text,cmd) := hd buttons; tkcmd(top, "button "+name+"-text {"+text+"} "+ "-font /fonts/charon/bold.normal.font "+ "-command {send butchan "+cmd+"}"); tkcmd(top, "grid "+name+" -row 0 -column "+string (4+i)); buttons = tl buttons; } } getext(file: string): string { (nil, lst) := sys->tokenize(file, "."); for (; tl lst != nil; lst = tl lst) ; return hd lst; } getplumb(ext: string): string { for (i := 0; i < len plumbing; i++) if (ext == plumbing[i].t0) return plumbing[i].t1; return nil; } kill(pid: int) { if ((fd := sys->open("/prog/" + string pid + "/ctl", Sys->OWRITE)) != nil) sys->fprint(fd, "kill"); }