summaryrefslogtreecommitdiff
path: root/appl/wm/vt.b
diff options
context:
space:
mode:
Diffstat (limited to 'appl/wm/vt.b')
-rw-r--r--appl/wm/vt.b1007
1 files changed, 1007 insertions, 0 deletions
diff --git a/appl/wm/vt.b b/appl/wm/vt.b
new file mode 100644
index 00000000..6813e226
--- /dev/null
+++ b/appl/wm/vt.b
@@ -0,0 +1,1007 @@
+implement WmVt;
+
+# note: this code was hacked together in a hurry from some decade-old C code
+# of mine, so don't expect it to be pretty...
+# Also, don't expect it to be finished... I had to rush to check this
+# in... it's just been worked on as a side-project from time to time
+# But it's good enough to be useful most of the time
+
+include "sys.m";
+ sys: Sys;
+ sprint: import sys;
+include "draw.m";
+ draw: Draw;
+ Display, Font, Black, Rect, Image, Point, Endsquare, Enddisc: import draw;
+include "tk.m";
+ tk: Tk;
+ Toplevel: import tk;
+include "tkclient.m";
+ tkclient: Tkclient;
+include "sh.m";
+
+CON_Maxnpts: con 1000;
+Maxnhits: con 5;
+
+
+WmVt: module {
+ init: fn(ctxt: ref Draw->Context, argv: list of string);
+};
+
+
+
+VT_MAXPARAM: con 8;
+
+
+Vt: adt {
+ y1, y2: int;
+ mode: int; # misc mode parameters
+ qmode: int; # extended mode parameters
+ attr: int; # display attributes
+ fg: int; # foreground color
+ bg: int; # background color
+
+ # saved values:
+ save_x, save_y: int;
+ save_attr: int;
+ save_fg, save_bg: int;
+ save_mode: int;
+ save_qmode: int;
+
+ # escape code parsing:
+ esc: int; # escape mode
+ pcount: int; # parameter count
+ etype: int; # escape code type
+ ptype: int; # current parameter type
+ value: int; # current value
+ param: array of int;
+
+ # display info:
+ wid, hgt: int;
+ x, y: int;
+ dx, dy: int;
+ nlcr: int;
+ ccc: int;
+ scr: array of string;
+ cc: array of string;
+};
+
+
+display: ref Display;
+t: ref Toplevel;
+canvas: ref Image;
+canvrect: Rect;
+org: Point;
+font: ref Font;
+stderr: ref Sys->FD;
+vt: ref Vt;
+pad: string;
+vtc := array[16] of ref Image;
+raw := 0;
+echo := 1;
+reverse := 0;
+sq := "";
+
+inpchan: chan of string;
+
+
+shwin_cfg := array[] of {
+ "frame .f",
+ "pack .c .f -side top -fill x",
+ "pack propagate . 0",
+ "focus .f",
+ "bind .f <Key> {send keys {%A}}",
+ "bind . <Configure> {send cmd resize}",
+ "update"
+};
+
+
+titlebar()
+{
+ tk->cmd(t, "destroy .Wm_t.S");
+ tk->cmd(t, "button .Wm_t.S -bg #aaaaaa -fg white -text {" +
+ sprint("%d x %d", vt.wid, vt.hgt) + "}; " +
+ "pack .Wm_t.S -side right");
+ c := "green";
+ if(raw)
+ c = "red";
+ tk->cmd(t, "destroy .Wm_t.k");
+ tk->cmd(t, "button .Wm_t.k -bitmap keyboard.bit"+
+ " -background "+c+" -command {send wm_title raw}; " +
+ "pack .Wm_t.k -side right");
+ c = "red";
+ if(echo)
+ c = "green";
+ tk->cmd(t, "destroy .Wm_t.d");
+ tk->cmd(t, "button .Wm_t.d -bitmap display.bit"+
+ " -background "+c+" -command {send wm_title echo}; " +
+ "pack .Wm_t.d -side right");
+ c = "white";
+ if(reverse)
+ c = "black";
+ tk->cmd(t, "destroy .Wm_t.r");
+ tk->cmd(t, "button .Wm_t.r -width 24 -height 24 "+
+ " -background "+c+" -command {send wm_title reverse}; " +
+ "pack .Wm_t.r -side right");
+ tk->cmd(t, "update");
+}
+
+init(ctxt: ref Draw->Context, nil: list of string)
+{
+ sys = load Sys Sys->PATH;
+ if (ctxt == nil) {
+ sys->fprint(sys->fildes(2), "vt: no window context\n");
+ raise "fail:bad context";
+ }
+ draw = load Draw Draw->PATH;
+ tk = load Tk Tk->PATH;
+ tkclient = load Tkclient Tkclient->PATH;
+
+ stderr = sys->fildes(2);
+
+ sys->pctl(Sys->FORKNS, nil);
+ sys->pctl(Sys->NEWPGRP, nil);
+
+ menubut: chan of string;
+ tkclient->init();
+ (t, menubut) = tkclient->toplevel(ctxt, "", "WmVt", Tkclient->Appl);
+
+ display = ctxt.display;
+ font = Font.open(display, "*default*");
+
+ vt = ref Vt;
+ vt.hgt = 24;
+ vt.wid = 80;
+ vt.scr = array[vt.hgt] of string;
+ vt.cc = array[vt.hgt] of string;
+ vt_init(vt);
+
+ pad = "";
+ for(i:=0; i<vt.wid; i++)
+ pad[i] = ' ';
+
+ cmd := chan of string;
+ tk->namechan(t, cmd, "cmd");
+ tk->cmd(t, "canvas .c -height "
+ + string (vt.hgt*font.height) +
+ + " -width " + string (vt.wid*font.width("0")) +
+ " -background red");
+ tkcmds(t, shwin_cfg);
+ tkclient->onscreen(t, nil);
+ tkclient->startinput(t, "kbd"::"ptr"::nil);
+ titlebar();
+
+ keys := chan of string;
+ tk->namechan(t, keys, "keys");
+
+ canvas = t.image;
+ canvrect = canvposn(t);
+ org = canvrect.min;
+
+ npts := 0;
+ WasUp := 1;
+
+ for(i=0; i<16; i++) {
+ r := 0;
+ g := 0;
+ b := 0;
+ v := 192;
+ if(i&8)
+ v = 255;
+ if(i&1)
+ r = v;
+ if(i&2)
+ g = v;
+ if(i&4)
+ b = v;
+ vtc[i] = display.newimage(((0,0),(1,1)), t.image.chans,
+ 1, display.rgb2cmap(r, g, b));
+ if (vtc[i] == nil) {
+ sys->fprint(sys->fildes(2), "Failed to allocate image\n");
+ exit;
+ }
+ }
+
+ vt_write(vt, "\u001b[2J");
+
+ ioc := chan of (int, ref Sys->FileIO, ref Sys->FileIO);
+ spawn newsh(ctxt, ioc);
+
+ (pid, file, filectl) := <- ioc;
+ if((file == nil) || (filectl == nil)) {
+ sys->print("newsh: %r\n");
+ return;
+ }
+
+ # XXX - need to kill this later
+ ic := chan of string;
+ spawn consinp(ic, file.read);
+
+ inpchan = ic; # hack
+
+ for(;;) alt {
+ s := <-t.ctxt.kbd =>
+ tk->keyboard(t, s);
+ s := <-t.ctxt.ptr =>
+ tk->pointer(t, *s);
+ s := <-t.ctxt.ctl or
+ s = <-t.wreq =>
+ tkclient->wmctl(t, s);
+ menu := <- menubut =>
+ if(menu == "exit") {
+ kill(pid);
+ return;
+ }
+ else if(menu == "raw") {
+ raw = !raw;
+ titlebar();
+ redraw();
+ }
+ else if(menu == "echo") {
+ echo = !echo;
+ titlebar();
+ redraw();
+ }
+ else if(menu == "reverse") {
+ reverse = !reverse;
+ tmp := vtc[0];
+ vtc[0] = vtc[7];
+ vtc[7] = tmp;
+ titlebar();
+ redraw();
+ } else
+ tkclient->wmctl(t, menu);
+ tk->cmd(t, "focus .f");
+
+ s := <- cmd =>
+ (n, cmdstr) := sys->tokenize(s, " \t\n");
+ case hd cmdstr {
+ "quit" =>
+ exit;
+ "resize" =>
+ # sys->print("resize\n");
+ canvas = t.image;
+ canvrect = canvposn(t);
+ org = canvrect.min;
+ # sys->print("%d,%d %d,%d\n", canvrect.max.x, canvrect.min.x,
+ # canvas.r.max.x, canvas.r.min.x);
+ resize((canvrect.max.x-canvrect.min.x)/font.width("0"),
+ (canvrect.max.y-canvrect.min.y)/font.height);
+ titlebar();
+ redraw();
+ }
+
+ c := <- keys =>
+ ic <-= c[1:2];
+ if(echo)
+ scwrite(c[1:2]);
+
+ (off, data, fid, wc) := <- file.write =>
+ if(wc == nil)
+ return;
+ if(echo && !raw && sq != "") {
+ s := "";
+ for(i=0; i<len sq; i++)
+ s += "\b \b";
+ scwrite(s);
+ }
+ scwrite(string data);
+ if(echo && !raw && sq != "")
+ scwrite(sq);
+ wc <-= (len data, nil);
+ (off, data, fid, wc) := <- filectl.write =>
+ if(string data == "rawon") {
+ raw = 1;
+ echo = 0;
+ titlebar();
+ redraw();
+ }
+ if(string data == "rawoff") {
+ raw = 0;
+ echo = 1;
+ titlebar();
+ redraw();
+ }
+ wc <-= (len data, nil);
+ }
+}
+
+resize(wid,hgt: int)
+{
+ scr := array[hgt] of string;
+ cc := array[hgt] of string;
+ for(y :=0; y<hgt; y++) {
+ oy := y + hgt - vt.hgt;
+ if(oy < vt.hgt && oy >= 0) {
+ scr[y] = vt.scr[oy];
+ cc[y] = vt.cc[oy];
+ } else {
+ scr[y] = "";
+ cc[y] = "";
+ }
+ }
+ vt.x += wid - vt.wid;
+ vt.y += hgt - vt.hgt;
+ if(vt.x < 0)
+ vt.x = 0;
+ if(vt.x >= wid)
+ vt.x = wid;
+ if(vt.y < 0)
+ vt.y = 0;
+ if(vt.y >= hgt)
+ vt.y = hgt;
+ vt.wid = wid;
+ vt.hgt = hgt;
+ vt.scr = scr;
+ vt.cc = cc;
+}
+
+
+fixdx := 0;
+fixdy := 0;
+
+canvposn(t: ref Toplevel): Rect
+{
+ r: Rect;
+
+ r.min.x = int tk->cmd(t, ".c cget -actx") + int tk->cmd(t, ".dx get");
+ r.min.y = int tk->cmd(t, ".c cget -acty") + int tk->cmd(t, ".dy get");
+ r.max.x = r.min.x + int tk->cmd(t, ".c cget -width") + int tk->cmd(t, ".dw get");
+ r.max.y = r.min.y + int tk->cmd(t, ".c cget -height") + int tk->cmd(t, ".dh get");
+
+ # correction for Tk bug (width/height not correct):
+ dx := (t.image.r.max.x - t.image.r.min.x) - (r.max.x - r.min.x);
+ dy := (t.image.r.max.y - t.image.r.min.y) - (r.max.y - r.min.y);
+ if(fixdx == 0) {
+ fixdx = dx;
+ fixdy = dy;
+ } else {
+ r.max.x += dx-fixdx;
+ r.max.y += dy-fixdy;
+ }
+ return r;
+}
+
+
+redraw()
+{
+ # sys->print("redraw\n");
+ for(y:=0; y<vt.hgt; y++) {
+ xp := canvrect.min.x;
+ yp := canvrect.max.y-(vt.hgt-y)*font.height;
+ f := 0;
+ for(x:=0; x<=len vt.cc[y]; x++) {
+ if(x == len vt.cc[y] || (vt.cc[y][x]>>4) != (vt.cc[y][f]>>4)) {
+ if(x == len vt.cc[y])
+ w := canvrect.max.x-xp;
+ else
+ w = font.width(vt.scr[y][f:x]);
+ if(len vt.cc[y] == 0)
+ ccc := 7;
+ else
+ ccc = vt.cc[y][f];
+ canvas.draw(((xp,yp),(xp+w,yp+font.height)),
+ vtc[ccc>>4], nil, (0, 0));
+ xp += w;
+ f = x;
+ }
+ }
+ xp = canvrect.min.x;
+ f = 0;
+ for(x=1; x<=len vt.scr[y]; x++) {
+ if(x == len vt.scr[y] || (vt.cc[y][x]&15) != (vt.cc[y][f]&15)) {
+ canvas.text((xp,yp), vtc[vt.cc[y][f]&15],
+ (0, 0), font, vt.scr[y][f:x]);
+ xp += font.width(vt.scr[y][f:x]);
+ f = x;
+ }
+ }
+ }
+}
+
+
+
+scwrite(s: string)
+{
+ putchar(vt.x, vt.y, vtscr(vt.y, vt.x), vtcc(vt.y, vt.x));
+ vt_write(vt, s);
+ putchar(vt.x, vt.y, vtscr(vt.y, vt.x), vtcc(vt.y, vt.x) ^ 16rff);
+}
+
+putchar(x,y: int, ch: int, ccc: int)
+{
+ if(len vt.scr[y] < x) {
+ vt.scr[y] += pad[0:x-len vt.scr[y]];
+ vt.cc[y] += pad[0:x-len vt.cc[y]];
+ }
+ xp := canvrect.min.x+font.width(vt.scr[y][0:x]);
+ yp := canvrect.max.y-(vt.hgt-y)*font.height;
+ s: string;
+ s[0] = ch;
+ canvas.draw(((xp,yp),(xp+font.width(s),yp+font.height)),
+ vtc[ccc>>4], nil, (0, 0));
+ canvas.text((xp,yp), vtc[ccc&15], (0, 0), font, s);
+}
+
+VT_PUTCHAR(vt: ref Vt, x,y: int, ch: int)
+{
+ if(len vt.scr[y] < x) {
+ vt.scr[y] += pad[0:x-len vt.scr[y]];
+ vt.cc[y] += pad[0:x-len vt.cc[y]];
+ }
+ vt.scr[y][x] = ch;
+ vt.cc[y][x] = vt.ccc;
+ putchar(x, y, ch, int vt.ccc);
+}
+
+VT_SCROLL_UP(vt: ref Vt, x1,y1,x2,y2,n: int)
+{
+ # XXX - needs to handle vertical slices
+ for(i:=y1; i<=y2-n; i++) {
+ vt.scr[i] = vt.scr[i+n];
+ vt.cc[i] = vt.cc[i+n];
+ }
+ r: Rect;
+ r.min.x = canvrect.min.x;
+ r.max.x = r.min.x+(x2-x1+1)*font.width(" ");
+ r.min.y = canvrect.max.y-(vt.hgt-y1)*font.height;
+ r.max.y = r.min.y+(y2-y1-n+1)*font.height;
+ canvas.draw(r, canvas, nil, (r.min.x, r.min.y+font.height*n));
+ VT_CLEAR(vt, x1,y2-n+1,x2,y2);
+}
+
+VT_SCROLL_DOWN(vt: ref Vt, x1,y1,x2,y2,n: int)
+{
+ # XXX - needs to handle vertical slices
+ for(i:=y2; i>=y1+n; i--) {
+ vt.scr[i] = vt.scr[i-n];
+ vt.cc[i] = vt.cc[i-n];
+ }
+ VT_CLEAR(vt, x1,y1,x2,y1+n-1);
+ redraw();
+}
+
+VT_SCROLL_LEFT(vt: ref Vt, x1,y1,x2,y2,n: int)
+{
+ # XXX - shouldn't always scroll whole line
+ for(y:=y1; y<=y2; y++) {
+ if(len vt.scr[y] > n) {
+ vt.scr[y] = vt.scr[y][n:];
+ vt.cc[y] = vt.cc[y][n:];
+ } else {
+ vt.scr[y] = "";
+ vt.cc[y] = "";
+ }
+ }
+ redraw();
+}
+
+VT_SCROLL_RIGHT(vt: ref Vt, x1,y1,x2,y2,n: int)
+{
+ # XXX - shouldn't always scroll whole line
+ for(y:=y1; y<=y2; y++) {
+ vt.scr[y] = pad[0:n] + vt.scr[y];
+ vt.cc[y] = pad[0:n] + vt.cc[y];
+ }
+ redraw();
+}
+
+VT_CLEAR(vt: ref Vt, x1,y1,x2,y2: int)
+{
+ # XXX - needs to handle vertical slices
+ for(y:=y1; y<=y2; y++) {
+ vt.scr[y] = "";
+ vt.cc[y] = "";
+ }
+ r: Rect;
+ r.min.x = canvrect.min.x;
+ r.max.x = r.min.x + (x2-x1+1)*font.width(" ");
+ r.min.y = canvrect.max.y-(vt.hgt-y1)*font.height;
+ r.max.y = r.min.y + (y2-y1+1)*font.height;
+ canvas.draw(r, vtc[vt.ccc>>4], nil, (0, 0));
+}
+
+VT_SET_COLOR(vt: ref Vt)
+{
+ if(vt.attr & (1<<7))
+ vt.ccc = ((vt.fg<<4) | vt.bg);
+ else
+ vt.ccc = ((vt.bg<<4) | vt.fg);
+ if(vt.attr & (1<<1))
+ vt.ccc ^= (1<<3);
+}
+
+vtscr(y,x: int): int
+{
+ if(vt.scr[y] == nil)
+ return ' ';
+ if(x >= len vt.scr[y])
+ return ' ';
+ return vt.scr[y][x];
+}
+
+vtcc(y,x: int): int
+{
+ if(vt.cc[y] == nil)
+ return 7;
+ if(x >= len vt.cc[y])
+ return 7;
+ return vt.cc[y][x];
+}
+
+VT_SET_CURSOR(nil: ref Vt, x,y: int)
+{
+}
+
+VT_BEEP(nil: ref Vt)
+{
+ redraw();
+}
+
+# function for simulated typing (for returning status)
+VT_TYPE(vt: ref Vt, b: string)
+{
+ inpchan <-= b;
+}
+
+
+#############################################################################
+
+
+vt_save_state(vt: ref Vt)
+{
+ vt.save_x = vt.x;
+ vt.save_y = vt.y;
+ vt.save_attr = vt.attr;
+ vt.save_fg = vt.fg;
+ vt.save_bg = vt.bg;
+ vt.save_mode = vt.mode;
+ vt.save_qmode = vt.qmode;
+}
+
+vt_restore_state(vt: ref Vt)
+{
+ vt.x = vt.save_x;
+ vt.y = vt.save_y;
+ vt.attr = vt.save_attr;
+ vt.fg = vt.save_fg;
+ vt.bg = vt.save_bg;
+ vt.mode = vt.save_mode;
+ vt.qmode = vt.save_qmode;
+ VT_SET_COLOR(vt);
+}
+
+
+
+# expects vt.wid, vt.hgt and implementation
+# variables to be initialized first:
+
+vt_init(vt: ref Vt)
+{
+ vt.fg = 7;
+ vt.bg = 0;
+ vt.attr = 0;
+ vt.mode = 0;
+ vt.qmode = (1<<7);
+ vt.y1 = 0;
+ vt.y2 = vt.hgt-1;
+ vt.x = 0;
+ vt.y = 0;
+ vt.dx = 1;
+ vt.dy = 1;
+ vt.esc = 0;
+ vt.pcount = 0;
+ vt.param = array[VT_MAXPARAM] of int;
+ vt_save_state(vt);
+ VT_SET_COLOR(vt);
+}
+
+
+vt_checkscroll(vt: ref Vt, s: string)
+{
+ i := 0;
+ n: int;
+ if (vt.y == vt.y2+1 || vt.y >= vt.hgt) {
+ n = 1;
+ while(i < len s && n < (vt.y2-vt.y1)) {
+ c := s[i++];
+ if(c == 27 || c > 126 || c < 0)
+ break;
+ if(c == '\n')
+ n++;
+ }
+ vt.y = vt.y2-n+1;
+ VT_SCROLL_UP(vt,0,vt.y1,vt.wid-1,vt.y2,n);
+ } else if (vt.y == vt.y1-1) {
+ vt.y = vt.y1;
+ VT_SCROLL_DOWN(vt,0,vt.y1,vt.wid-1,vt.y2,1);
+ } else if (vt.y < 0)
+ vt.y = 0;
+}
+
+vt_write(vt: ref Vt, s: string)
+{
+ ch: int;
+ check_scroll: int;
+ n: int;
+ i := 0;
+
+ while(i < len s) {
+ check_scroll = 0;
+ ch = s[i++];
+ case vt.esc {
+ 1 =>
+ if(ch == '[') {
+ vt.etype = ch;
+ vt.esc++;
+ vt.value = 0;
+ vt.pcount = 0;
+ vt.ptype = 1;
+ for(n=0; n<VT_MAXPARAM; n++)
+ vt.param[n] = 0;
+ } else {
+ check_scroll = vt_call_ncsi(vt, ch);
+ vt.esc = 0;
+ }
+ 2 =>
+ if(ch >= '0' && ch <= '9')
+ vt.value=(vt.value)*10+(ch-'0');
+ else if(ch == '?')
+ vt.ptype = -1;
+ else {
+ vt.param[vt.pcount++] = vt.value*vt.ptype;
+ if(ch == ';') {
+ if(vt.pcount >= VT_MAXPARAM)
+ vt.pcount = VT_MAXPARAM-1;
+ vt.value = 0;
+ } else {
+ check_scroll = vt_call_csi(vt, ch);
+ vt.esc = 0;
+ }
+ }
+ * =>
+ case ch {
+ '\n' =>
+ vt.y += vt.dy;
+ check_scroll = 1;
+ if(vt.nlcr)
+ vt.x = 0;
+ '\r' =>
+ vt.x = 0;
+ '\b' =>
+ if (vt.x > 0)
+ vt.x -= vt.dx;
+ '\t' =>
+ n = (vt.x & ~7)+8;
+ if(vt.mode & (1<<4))
+ VT_SCROLL_RIGHT(vt, vt.x,vt.y,
+ vt.wid-1,vt.y, n - vt.x);
+ vt.x = n;
+ if(vt.x > vt.wid) {
+ vt.x = 0;
+ vt.y++;
+ check_scroll = 1;
+ }
+ 7 =>
+ VT_BEEP(vt);
+ 11 =>
+ vt.x = 0;
+ vt.y = vt.y1;
+ 12 =>
+ VT_CLEAR(vt,0,vt.y1,vt.wid-1,vt.y2);
+ 27 =>
+ vt.esc++;
+ 133 =>
+ vt.x = 0;
+ vt.y++;
+ check_scroll = 1;
+ 132 =>
+ vt.y++;
+ check_scroll = 1;
+ 136 => # XXX - set a tabstop
+ ;
+ 141 =>
+ vt.y--;
+ check_scroll = 1;
+ 142 => # XXX -- map G2 into GL for next char only
+ ;
+ 143 => # XXX -- map G3 into GL for next char
+ ;
+ 144 => # XXX -- device control string
+ ;
+ 145 => # XXX -- start of string - ignored
+ ;
+ 146 => # XXX -- device attribute request
+ ;
+ 147 =>
+ vt.esc = 2;
+ vt.etype = '[';
+ vt.esc++;
+ vt.value = 0;
+ vt.pcount = 0;
+ vt.ptype = 1;
+ for(n=0; n<VT_MAXPARAM; n++)
+ vt.param[n] = 0;
+ * =>
+ if(vt.mode & (1<<4))
+ VT_SCROLL_RIGHT(vt,vt.x,vt.y,
+ vt.wid-1,vt.y,1);
+ if(ch>=32 || ch <=126) {
+ if(vt.qmode & (1<<15)) {
+ if(vt.x >= vt.wid-1 && (vt.qmode & (1<<7))) {
+ vt.x = 0;
+ vt.y += vt.dy;
+ vt_checkscroll(vt, s[i:]);
+ }
+ vt.qmode &= ~(1<<15);
+ }
+ VT_PUTCHAR(vt,vt.x,vt.y,ch);
+ if((vt.x += vt.dx) >= vt.wid) {
+ vt.x = vt.wid-1;
+ vt.qmode |= (1<<15);
+ }
+ }
+ }
+ }
+ if(check_scroll)
+ vt_checkscroll(vt, s[i:]);
+ if(vt.x < 0)
+ vt.x = 0;
+ else if(vt.x >= vt.wid)
+ vt.x = vt.wid-1;
+ if(vt.y < 0)
+ vt.y = 0;
+ else if(vt.y >= vt.hgt)
+ vt.y = vt.hgt-1;
+ }
+ VT_SET_CURSOR(vt, vt.x, vt.y);
+}
+
+
+
+
+vt_call_csi(vt: ref Vt, ch: int): int
+{
+ i, n: int;
+ case ch {
+ 'A' =>
+ vt.y -= vt_param(vt, 1,1,1,vt.hgt);
+ 'B' =>
+ vt.y += vt_param(vt, 1,1,1,vt.hgt);
+ 'C' =>
+ vt.x += vt_param(vt, 1,1,1,vt.wid);
+ 'D' =>
+ vt.x -= vt_param(vt, 1,1,1,vt.wid);
+ 'f' or 'H' =>
+ vt.y = vt_param(vt, 0,1,1,vt.hgt)-1;
+ vt.x = vt_param(vt, 1,1,1,vt.wid)-1;
+ 'J' =>
+ case vt.param[0] {
+ 0 => VT_CLEAR(vt,vt.x,vt.y,vt.wid-1,vt.y);
+ VT_CLEAR(vt,0,vt.y+1,vt.wid-1,vt.y2);
+ 1 => VT_CLEAR(vt,0,0,vt.wid-1,vt.y-1);
+ VT_CLEAR(vt,0,vt.y,vt.x,vt.y);
+ 2 => VT_CLEAR(vt,0,vt.y1,vt.wid-1,vt.y2);
+ }
+ 'K' =>
+ case vt.param[0] {
+ 0 => VT_CLEAR(vt,vt.x,vt.y,vt.wid-1,vt.y);
+ 1 => VT_CLEAR(vt,0,vt.y,vt.x,vt.y);
+ 2 => VT_CLEAR(vt,0,vt.y,vt.wid-1,vt.y);
+ }
+ 'L' =>
+ n = vt_param(vt, 0,1,1,vt.hgt);
+ VT_SCROLL_DOWN(vt,0,vt.y,vt.wid-1,vt.y2,n);
+ 'M' =>
+ n = vt_param(vt,0,1,1,vt.hgt);
+ VT_SCROLL_UP(vt,0,vt.y,vt.wid-1,vt.y2,n);
+ '@' =>
+ n = vt_param(vt,0,1,1,vt.wid-1-vt.x);
+ VT_SCROLL_RIGHT(vt,vt.x,vt.y,vt.wid-1,vt.y,n);
+ 'P' =>
+ n = vt_param(vt,0,1,1,vt.wid-1-vt.x);
+ VT_SCROLL_LEFT(vt,vt.x,vt.y,vt.wid-1,vt.y,n);
+ 'X' =>
+ n = vt_param(vt,0,1,1,vt.wid-1-vt.x);
+ VT_CLEAR(vt,vt.x,vt.y,vt.x+n-1,vt.y);
+ 'm' =>
+ if(vt.pcount == 0)
+ vt.pcount++;
+ for(i=0; i<vt.pcount; i++) {
+ n = vt.param[i];
+ if(!n) {
+ vt.attr = 0;
+ vt.fg = 7;
+ vt.bg = 0;
+ } else if (n < 16)
+ vt.attr |= (1<<n);
+ else if (n < 28)
+ vt.attr &= ~(1<<(n-20));
+ else if (n < 38)
+ vt.fg = n-30;
+ else if (n < 48)
+ vt.bg = n-40;
+ else if (n < 58)
+ vt.fg = n-50+8;
+ else if (n < 68)
+ vt.bg = n-60+8;
+ }
+ VT_SET_COLOR(vt);
+ 'c' =>
+ if(vt.wid >= 132)
+ VT_TYPE(vt, "\u001b[?61;1;6c");
+ else
+ VT_TYPE(vt, "\u001b[?61;6c");
+ 'n' =>
+ n = vt_param(vt, 0,0,0,9);
+ if(n == 5)
+ VT_TYPE(vt, "\u001b[0n");
+ if(n == 5 || n == 6)
+ VT_TYPE(vt, sprint("\u001b[%d;%dR",vt.y+1,vt.x+1));
+ 'r' =>
+ vt.y1 = vt_param(vt, 0,1,1,vt.hgt)-1;
+ vt.y2 = vt_param(vt, 1,vt.hgt,1,vt.hgt)-1;
+ 's' =>
+ vt_save_state(vt);
+ 'u' =>
+ vt_restore_state(vt);
+ 'h' =>
+ for(i=0; i<vt.pcount; i++) {
+ n = vt.param[i];
+ if(n >= 0)
+ vt.mode |= (1<<n);
+ else
+ vt.qmode |= (1<<(-n));
+ }
+ 'l' =>
+ for(i=0; i<vt.pcount; i++) {
+ n = vt.param[i];
+ if(n >= 0)
+ vt.mode &= ~(1<<n);
+ else
+ vt.qmode &= ~(1<<(-n));
+ }
+ }
+
+ if(vt.y < 0)
+ vt.y = 0;
+ if(vt.y >= vt.hgt)
+ vt.y = vt.hgt-1;
+ if(vt.x < 0)
+ vt.x = 0;
+ if(vt.x >= vt.wid)
+ vt.x = vt.wid-1;
+ return 0;
+}
+
+vt_call_ncsi(vt: ref Vt, ch: int): int
+{
+ case ch {
+ 'E' =>
+ vt.x = 0;
+ '9' =>
+ ;
+ 'D' =>
+ vt.y++;
+ return 1;
+ 'H' => # XXX -- horizontal tab set
+ ;
+ '6' =>
+ ;
+ 'M' =>
+ vt.y--;
+ return 1;
+ '7' =>
+ vt_save_state(vt);
+ '8' =>
+ vt_restore_state(vt);
+ '=' =>
+ ;
+ '>' =>
+ ;
+ '#' =>
+ ;
+ '(' =>
+ ;
+ ')' =>
+ ;
+ }
+ return 0;
+}
+
+
+vt_param(vt: ref Vt, n: int, def: int, min, max: int): int
+{
+ param := vt.param[n];
+ if(param == 0)
+ param = def;
+ if(param < min)
+ param = min;
+ if(param > max)
+ param = max;
+ return param;
+}
+
+#############################################################################
+
+
+consinp(cs: chan of string, cr: chan of (int, int, int, Sys->Rread))
+{
+ for(;;) {
+ alt {
+ sq += <- cs => ;
+
+ (nil, nbytes, nil, rc) := <- cr =>
+ p := 0;
+ for(;;) {
+ if(raw)
+ p = len sq;
+ else
+ forloop:
+ for(i := 0; i < len sq; i++) {
+ case sq[i] {
+ '\b' =>
+ if(i > 0) {
+ sq = sq[0:i-1] + sq[i+1:];
+ --i;
+ }
+ '\n' =>
+ p = i+1;
+ break forloop;
+ }
+ }
+ if(p > 0)
+ break;
+ sq += <- cs;
+ }
+ if(nbytes > p)
+ nbytes = p;
+ alt {
+ rc <-= (array of byte sq[0:nbytes], "") =>
+ sq = sq[nbytes:];
+ * => ;
+ }
+ }
+ }
+}
+
+newsh(ctxt: ref Draw->Context, ioc: chan of (int, ref Sys->FileIO, ref Sys->FileIO))
+{
+ pid := sys->pctl(sys->NEWFD, nil);
+
+ sh := load Command "/dis/sh.dis";
+ if(sh == nil) {
+ ioc <-= (0, nil, nil);
+ return;
+ }
+
+ tty := "cons."+string pid;
+
+ sys->bind("#s","/chan",sys->MBEFORE);
+ fio := sys->file2chan("/chan", tty);
+ fioctl := sys->file2chan("/chan", tty + "ctl");
+ ioc <-= (pid, fio, fioctl);
+ if ((fio == nil) || (fioctl == nil))
+ return;
+
+ sys->bind("/chan/"+tty, "/dev/cons", sys->MREPL);
+ sys->bind("/chan/"+tty+"ctl", "/dev/consctl", sys->MREPL);
+
+ fd0 := sys->open("/dev/cons", sys->OREAD|sys->ORCLOSE);
+ fd1 := sys->open("/dev/cons", sys->OWRITE);
+ fd2 := sys->open("/dev/cons", sys->OWRITE);
+
+ sh->init(ctxt, "sh" :: "-n" :: nil);
+}
+
+kill(pid: int)
+{
+ fd := sys->open("#p/"+string pid+"/ctl", sys->OWRITE);
+ if(fd != nil)
+ sys->fprint(fd, "killgrp");
+}
+
+tkcmds(t: ref Tk->Toplevel, cfg: array of string)
+{
+ for(i := 0; i < len cfg; i++)
+ tk->cmd(t, cfg[i]);
+}
generated by cgit v1.2.3 (git 2.46.0) at 2025-12-10 20:33:18 +0000