code: purgatorio

ref: 82a3f55c5fb7b9f7a82449e4eb943c535ec3e491
dir: /appl/wm/vt.b/

View raw version
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]);
}