/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include <u.h>#include <libc.h>#include <ndraw.h>#include <bio.h>#include "cons.h" char *term = "2621"; struct funckey fk[32]; voidemulate(void){	char buf[BUFS+1];	int n;	int c;	int standout = 0;	int insmode = 0; 	for (;;) {		if (x > xmax || y > ymax) {			x = 0;			newline();		}		buf[0] = get_next_char();		buf[1] = '\0';		switch(buf[0]) { 		case '\000':		/* nulls, just ignore 'em */			break; 		case '\007':		/* bell */			ringbell();			break; 		case '\t':		/* tab modulo 8 */			x = (x|7)+1;			break; 		case '\033':			switch(get_next_char()) { 			case 'j':				get_next_char();				break; 			case '&':	/* position cursor &c */				switch(get_next_char()) { 				case 'a':					for (;;) {						n = number(buf, nil);						switch(buf[0]) { 						case 'r':						case 'y':							y = n;							continue; 						case 'c':							x = n;							continue; 						case 'R':						case 'Y':							y = n;							break; 						case 'C':							x = n;							break;						}						break;					}					break; 				case 'd':	/* underline stuff */					if ((n=get_next_char())>='A' && n <= 'O')						standout++;					else if (n == '@')						standout = 0;					break; 				default:					get_next_char();					break; 				}				break; 			case 'i':	/* back tab */				if (x>0)					x = (x-1) & ~07;				break; 			case 'H':	/* home cursor */			case 'h':				x = 0;				y = 0;				break; 			case 'L':	/* insert blank line */				scroll(y, ymax, y+1, y);				break; 			case 'M':	/* delete line */				scroll(y+1, ymax+1, y, ymax);				break; 			case 'J':	/* clear to end of display */				xtipple(Rpt(pt(0, y+1),					    pt(xmax+1, ymax+1)));				/* flow */			case 'K':	/* clear to EOL */				xtipple(Rpt(pt(x, y),					    pt(xmax+1, y+1)));				break; 			case 'P':	/* delete char */				bitblt(&screen, pt(x, y),					&screen, Rpt(pt(x+1, y),					pt(xmax+1, y+1)),				        S);				xtipple(Rpt(pt(xmax, y),					    pt(xmax+1, y+1)));				break; 			case 'Q':	/* enter insert mode */				insmode++;				break; 			case 'R':	/* leave insert mode */				insmode = 0;				break; 			case 'S':	/* roll up */				scroll(1, ymax+1, 0, ymax);				break; 			case 'T':				scroll(0, ymax, 1, 0);				break; 			case 'A':	/* upline */			case 't':				if (y>0)					y--;				if (olines > 0)					olines--;				break; 			case 'B':			case 'w':				y++;	/* downline */				break; 			case 'C':	/* right */			case 'v':				x++;				break; 			case 'D':	/* left */			case 'u':				x--; 			}			break; 		case '\b':		/* backspace */			if(x > 0)				--x;			break; 		case '\n':		/* linefeed */			newline();			standout = 0;			if( ttystate[cs->raw].nlcr )				x = 0;			break; 		case '\r':		/* carriage return */			x = 0;			standout = 0;			if( ttystate[cs->raw].crnl )				newline();			break; 		default:		/* ordinary char */			n = 1;			c = 0;			while (!cs->raw && host_avail() && x+n<=xmax && n<BUFS			    && (c = get_next_char())>=' ' && c<'\177') {				buf[n++] = c;				c = 0;			}			buf[n] = 0;			if (insmode) {				bitblt(&screen, pt(x+n, y), &screen,					Rpt(pt(x, y), pt(xmax-n+1, y+1)), S);			}			xtipple(Rpt(pt(x,y), pt(x+n, y+1)));			string(&screen, pt(x, y), font, buf, DxorS);			if (standout)				rectf(&screen,				      Rpt(pt(x,y),pt(x+n,y+1)),				      DxorS);			x += n;			peekc = c;			break;		}	}}