[u/mdw/putty] / ldisc.c

/*
 * ldisc.c: PuTTY line discipline. Sits between the input coming
 * from keypresses in the window, and the output channel leading to
 * the back end. Implements echo and/or local line editing,
 * depending on what's currently configured.
 */

#include <windows.h>
#include <stdio.h>
#include <ctype.h>

#include "putty.h"

#define ECHOING (cfg.localecho == LD_YES || \
                 (cfg.localecho == LD_BACKEND && \
                      (back->ldisc(LD_ECHO) || term_ldisc(LD_ECHO))))
#define EDITING (cfg.localedit == LD_YES || \
                 (cfg.localedit == LD_BACKEND && \
                      (back->ldisc(LD_EDIT) || term_ldisc(LD_EDIT))))

static void c_write(char *buf, int len)
{
    from_backend(0, buf, len);
}

static char *term_buf = NULL;
static int term_buflen = 0, term_bufsiz = 0, term_quotenext = 0;

static int plen(unsigned char c)
{
    if ((c >= 32 && c <= 126) || (c >= 160 && !in_utf))
	return 1;
    else if (c < 128)
	return 2;		       /* ^x for some x */
    else
	return 4;		       /* <XY> for hex XY */
}

static void pwrite(unsigned char c)
{
    if ((c >= 32 && c <= 126) || (c >= 160 && !in_utf)) {
	c_write(&c, 1);
    } else if (c < 128) {
	char cc[2];
	cc[1] = (c == 127 ? '?' : c + 0x40);
	cc[0] = '^';
	c_write(cc, 2);
    } else {
	char cc[5];
	sprintf(cc, "<%02X>", c);
	c_write(cc, 4);
    }
}

static void bsb(int n)
{
    while (n--)
	c_write("\010 \010", 3);
}

#define CTRL(x) (x^'@')
#define KCTRL(x) ((x^'@') | 0x100)

void ldisc_send(char *buf, int len, int interactive)
{
    int keyflag = 0;
    /*
     * Called with len=0 when the options change. We must inform
     * the front end in case it needs to know.
     */
    if (len == 0) {
	void ldisc_update(int echo, int edit);
	ldisc_update(ECHOING, EDITING);
    }
    /*
     * Less than zero means null terminated special string.
     */
    if (len < 0) {
	len = strlen(buf);
	keyflag = KCTRL('@');
    }
    /*
     * Either perform local editing, or just send characters.
     */
    if (EDITING) {
	while (len--) {
	    int c;
	    c = *buf++ + keyflag;
	    if (!interactive && c == '\r')
		c += KCTRL('@');
	    switch (term_quotenext ? ' ' : c) {
		/*
		 * ^h/^?: delete one char and output one BSB
		 * ^w: delete, and output BSBs, to return to last
		 * space/nonspace boundary
		 * ^u: delete, and output BSBs, to return to BOL
		 * ^c: Do a ^u then send a telnet IP
		 * ^z: Do a ^u then send a telnet SUSP
		 * ^\: Do a ^u then send a telnet ABORT
		 * ^r: echo "^R\n" and redraw line
		 * ^v: quote next char
		 * ^d: if at BOL, end of file and close connection,
		 * else send line and reset to BOL
		 * ^m: send line-plus-\r\n and reset to BOL
		 */
	      case KCTRL('H'):
	      case KCTRL('?'):	       /* backspace/delete */
		if (term_buflen > 0) {
		    if (ECHOING)
			bsb(plen(term_buf[term_buflen - 1]));
		    term_buflen--;
		}
		break;
	      case CTRL('W'):	       /* delete word */
		while (term_buflen > 0) {
		    if (ECHOING)
			bsb(plen(term_buf[term_buflen - 1]));
		    term_buflen--;
		    if (term_buflen > 0 &&
			isspace(term_buf[term_buflen - 1]) &&
			!isspace(term_buf[term_buflen]))
			break;
		}
		break;
	      case CTRL('U'):	       /* delete line */
	      case CTRL('C'):	       /* Send IP */
	      case CTRL('\\'):	       /* Quit */
	      case CTRL('Z'):	       /* Suspend */
		while (term_buflen > 0) {
		    if (ECHOING)
			bsb(plen(term_buf[term_buflen - 1]));
		    term_buflen--;
		}
		back->special(TS_EL);
                /*
                 * We don't send IP, SUSP or ABORT if the user has
                 * configured telnet specials off! This breaks
                 * talkers otherwise.
                 */
                if (!cfg.telnet_keyboard)
                    goto default_case;
		if (c == CTRL('C'))
		    back->special(TS_IP);
		if (c == CTRL('Z'))
		    back->special(TS_SUSP);
		if (c == CTRL('\\'))
		    back->special(TS_ABORT);
		break;
	      case CTRL('R'):	       /* redraw line */
		if (ECHOING) {
		    int i;
		    c_write("^R\r\n", 4);
		    for (i = 0; i < term_buflen; i++)
			pwrite(term_buf[i]);
		}
		break;
	      case CTRL('V'):	       /* quote next char */
		term_quotenext = TRUE;
		break;
	      case CTRL('D'):	       /* logout or send */
		if (term_buflen == 0) {
		    back->special(TS_EOF);
		} else {
		    back->send(term_buf, term_buflen);
		    term_buflen = 0;
		}
		break;
		/*
		 * This particularly hideous bit of code from RDB
		 * allows ordinary ^M^J to do the same thing as
		 * magic-^M when in Raw protocol. The line `case
		 * KCTRL('M'):' is _inside_ the if block. Thus:
		 * 
		 *  - receiving regular ^M goes straight to the
		 *    default clause and inserts as a literal ^M.
		 *  - receiving regular ^J _not_ directly after a
		 *    literal ^M (or not in Raw protocol) fails the
		 *    if condition, leaps to the bottom of the if,
		 *    and falls through into the default clause
		 *    again.
		 *  - receiving regular ^J just after a literal ^M
		 *    in Raw protocol passes the if condition,
		 *    deletes the literal ^M, and falls through
		 *    into the magic-^M code
		 *  - receiving a magic-^M empties the line buffer,
		 *    signals end-of-line in one of the various
		 *    entertaining ways, and _doesn't_ fall out of
		 *    the bottom of the if and through to the
		 *    default clause because of the break.
		 */
	      case CTRL('J'):
		if (cfg.protocol == PROT_RAW &&
		    term_buflen > 0 && term_buf[term_buflen - 1] == '\r') {
		    if (ECHOING)
			bsb(plen(term_buf[term_buflen - 1]));
		    term_buflen--;
		    /* FALLTHROUGH */
	      case KCTRL('M'):	       /* send with newline */
		    if (term_buflen > 0)
			back->send(term_buf, term_buflen);
		    if (cfg.protocol == PROT_RAW)
			back->send("\r\n", 2);
		    else if (cfg.protocol == PROT_TELNET)
			back->special(TS_EOL);
		    else
			back->send("\r", 1);
		    if (ECHOING)
			c_write("\r\n", 2);
		    term_buflen = 0;
		    break;
		}
		/* FALLTHROUGH */
	      default:		       /* get to this label from ^V handler */
                default_case:
		if (term_buflen >= term_bufsiz) {
		    term_bufsiz = term_buflen + 256;
		    term_buf = saferealloc(term_buf, term_bufsiz);
		}
		term_buf[term_buflen++] = c;
		if (ECHOING)
		    pwrite((unsigned char) c);
		term_quotenext = FALSE;
		break;
	    }
	}
    } else {
	if (term_buflen != 0) {
	    back->send(term_buf, term_buflen);
	    while (term_buflen > 0) {
		bsb(plen(term_buf[term_buflen - 1]));
		term_buflen--;
	    }
	}
	if (len > 0) {
	    if (ECHOING)
		c_write(buf, len);
	    if (keyflag && cfg.protocol == PROT_TELNET && len == 1) {
		switch (buf[0]) {
		  case CTRL('M'):
		    back->special(TS_EOL);
		    break;
		  case CTRL('?'):
		  case CTRL('H'):
		    if (cfg.telnet_keyboard) {
			back->special(TS_EC);
			break;
		    }
		  case CTRL('C'):
		    if (cfg.telnet_keyboard) {
			back->special(TS_IP);
			break;
		    }
		  case CTRL('Z'):
		    if (cfg.telnet_keyboard) {
			back->special(TS_SUSP);
			break;
		    }

		  default:
		    back->send(buf, len);
		    break;
		}
	    } else
		back->send(buf, len);
	}
    }
}
Commit	Line	Data
0965bee0	1	/*
	2	* ldisc.c: PuTTY line discipline. Sits between the input coming
	3	* from keypresses in the window, and the output channel leading to
	4	* the back end. Implements echo and/or local line editing,
	5	* depending on what's currently configured.
	6	*/
	7
5bc238bb	8	#include <windows.h>
5bc238bb	9	#include <stdio.h>
1d470ad2	10	#include <ctype.h>
5bc238bb	11
	12	#include "putty.h"
	13
0965bee0	14	#define ECHOING (cfg.localecho == LD_YES \|\| \
	15	(cfg.localecho == LD_BACKEND && \
	16	(back->ldisc(LD_ECHO) \|\| term_ldisc(LD_ECHO))))
	17	#define EDITING (cfg.localedit == LD_YES \|\| \
	18	(cfg.localedit == LD_BACKEND && \
	19	(back->ldisc(LD_EDIT) \|\| term_ldisc(LD_EDIT))))
5bc238bb	20
32874aea	21	static void c_write(char *buf, int len)
32874aea	22	{
fe50e814	23	from_backend(0, buf, len);
	24	}
	25
5bc238bb	26	static char *term_buf = NULL;
	27	static int term_buflen = 0, term_bufsiz = 0, term_quotenext = 0;
	28
32874aea	29	static int plen(unsigned char c)
32874aea	30	{
8f22582c	31	if ((c >= 32 && c <= 126) \|\| (c >= 160 && !in_utf))
32874aea	32	return 1;
5bc238bb	33	else if (c < 128)
32874aea	34	return 2; /* ^x for some x */
5bc238bb	35	else
32874aea	36	return 4; /* <XY> for hex XY */
5bc238bb	37	}
5bc238bb	38
32874aea	39	static void pwrite(unsigned char c)
32874aea	40	{
8f22582c	41	if ((c >= 32 && c <= 126) \|\| (c >= 160 && !in_utf)) {
32874aea	42	c_write(&c, 1);
5bc238bb	43	} else if (c < 128) {
32874aea	44	char cc[2];
	45	cc[1] = (c == 127 ? '?' : c + 0x40);
	46	cc[0] = '^';
	47	c_write(cc, 2);
5bc238bb	48	} else {
32874aea	49	char cc[5];
	50	sprintf(cc, "<%02X>", c);
	51	c_write(cc, 4);
5bc238bb	52	}
	53	}
	54
32874aea	55	static void bsb(int n)
32874aea	56	{
5bc238bb	57	while (n--)
	58	c_write("\010 \010", 3);
	59	}
	60
5d1d4279	61	#define CTRL(x) (x^'@')
a5f3e637	62	#define KCTRL(x) ((x^'@') \| 0x100)
5d1d4279	63
760e88b2	64	void ldisc_send(char *buf, int len, int interactive)
32874aea	65	{
a5f3e637	66	int keyflag = 0;
0965bee0	67	/*
	68	* Called with len=0 when the options change. We must inform
	69	* the front end in case it needs to know.
	70	*/
	71	if (len == 0) {
32874aea	72	void ldisc_update(int echo, int edit);
32874aea	73	ldisc_update(ECHOING, EDITING);
5bc238bb	74	}
0965bee0	75	/*
a5f3e637	76	* Less than zero means null terminated special string.
	77	*/
	78	if (len < 0) {
	79	len = strlen(buf);
	80	keyflag = KCTRL('@');
	81	}
	82	/*
0965bee0	83	* Either perform local editing, or just send characters.
	84	*/
	85	if (EDITING) {
32874aea	86	while (len--) {
a5f3e637	87	int c;
a5f3e637	88	c = *buf++ + keyflag;
760e88b2	89	if (!interactive && c == '\r')
760e88b2	90	c += KCTRL('@');
32874aea	91	switch (term_quotenext ? ' ' : c) {
	92	/*
	93	* ^h/^?: delete one char and output one BSB
	94	* ^w: delete, and output BSBs, to return to last
	95	* space/nonspace boundary
	96	* ^u: delete, and output BSBs, to return to BOL
	97	* ^c: Do a ^u then send a telnet IP
	98	* ^z: Do a ^u then send a telnet SUSP
	99	* ^\: Do a ^u then send a telnet ABORT
	100	* ^r: echo "^R\n" and redraw line
	101	* ^v: quote next char
	102	* ^d: if at BOL, end of file and close connection,
	103	* else send line and reset to BOL
	104	* ^m: send line-plus-\r\n and reset to BOL
	105	*/
a5f3e637	106	case KCTRL('H'):
a5f3e637	107	case KCTRL('?'): /* backspace/delete */
32874aea	108	if (term_buflen > 0) {
	109	if (ECHOING)
	110	bsb(plen(term_buf[term_buflen - 1]));
	111	term_buflen--;
	112	}
	113	break;
	114	case CTRL('W'): /* delete word */
	115	while (term_buflen > 0) {
	116	if (ECHOING)
	117	bsb(plen(term_buf[term_buflen - 1]));
	118	term_buflen--;
	119	if (term_buflen > 0 &&
	120	isspace(term_buf[term_buflen - 1]) &&
	121	!isspace(term_buf[term_buflen]))
	122	break;
	123	}
	124	break;
	125	case CTRL('U'): /* delete line */
	126	case CTRL('C'): /* Send IP */
	127	case CTRL('\\'): /* Quit */
	128	case CTRL('Z'): /* Suspend */
	129	while (term_buflen > 0) {
	130	if (ECHOING)
	131	bsb(plen(term_buf[term_buflen - 1]));
	132	term_buflen--;
	133	}
	134	back->special(TS_EL);
2a8a449c	135	/*
	136	* We don't send IP, SUSP or ABORT if the user has
	137	* configured telnet specials off! This breaks
	138	* talkers otherwise.
	139	*/
	140	if (!cfg.telnet_keyboard)
	141	goto default_case;
32874aea	142	if (c == CTRL('C'))
	143	back->special(TS_IP);
	144	if (c == CTRL('Z'))
	145	back->special(TS_SUSP);
	146	if (c == CTRL('\\'))
	147	back->special(TS_ABORT);
	148	break;
	149	case CTRL('R'): /* redraw line */
	150	if (ECHOING) {
	151	int i;
	152	c_write("^R\r\n", 4);
	153	for (i = 0; i < term_buflen; i++)
	154	pwrite(term_buf[i]);
	155	}
	156	break;
	157	case CTRL('V'): /* quote next char */
	158	term_quotenext = TRUE;
	159	break;
	160	case CTRL('D'): /* logout or send */
	161	if (term_buflen == 0) {
	162	back->special(TS_EOF);
	163	} else {
	164	back->send(term_buf, term_buflen);
	165	term_buflen = 0;
	166	}
	167	break;
a5f3e637	168	/*
	169	* This particularly hideous bit of code from RDB
	170	* allows ordinary ^M^J to do the same thing as
	171	* magic-^M when in Raw protocol. The line `case
	172	* KCTRL('M'):' is _inside_ the if block. Thus:
	173	*
	174	* - receiving regular ^M goes straight to the
	175	* default clause and inserts as a literal ^M.
	176	* - receiving regular ^J _not_ directly after a
	177	* literal ^M (or not in Raw protocol) fails the
	178	* if condition, leaps to the bottom of the if,
	179	* and falls through into the default clause
	180	* again.
	181	* - receiving regular ^J just after a literal ^M
	182	* in Raw protocol passes the if condition,
	183	* deletes the literal ^M, and falls through
	184	* into the magic-^M code
	185	* - receiving a magic-^M empties the line buffer,
	186	* signals end-of-line in one of the various
	187	* entertaining ways, and _doesn't_ fall out of
	188	* the bottom of the if and through to the
	189	* default clause because of the break.
	190	*/
	191	case CTRL('J'):
	192	if (cfg.protocol == PROT_RAW &&
	193	term_buflen > 0 && term_buf[term_buflen - 1] == '\r') {
	194	if (ECHOING)
	195	bsb(plen(term_buf[term_buflen - 1]));
	196	term_buflen--;
	197	/* FALLTHROUGH */
	198	case KCTRL('M'): /* send with newline */
	199	if (term_buflen > 0)
	200	back->send(term_buf, term_buflen);
	201	if (cfg.protocol == PROT_RAW)
	202	back->send("\r\n", 2);
	203	else if (cfg.protocol == PROT_TELNET)
	204	back->special(TS_EOL);
	205	else
	206	back->send("\r", 1);
	207	if (ECHOING)
	208	c_write("\r\n", 2);
	209	term_buflen = 0;
	210	break;
	211	}
	212	/* FALLTHROUGH */
32874aea	213	default: /* get to this label from ^V handler */
2a8a449c	214	default_case:
32874aea	215	if (term_buflen >= term_bufsiz) {
	216	term_bufsiz = term_buflen + 256;
	217	term_buf = saferealloc(term_buf, term_bufsiz);
	218	}
	219	term_buf[term_buflen++] = c;
	220	if (ECHOING)
a5f3e637	221	pwrite((unsigned char) c);
32874aea	222	term_quotenext = FALSE;
	223	break;
	224	}
	225	}
0965bee0	226	} else {
32874aea	227	if (term_buflen != 0) {
	228	back->send(term_buf, term_buflen);
	229	while (term_buflen > 0) {
	230	bsb(plen(term_buf[term_buflen - 1]));
	231	term_buflen--;
	232	}
	233	}
	234	if (len > 0) {
	235	if (ECHOING)
	236	c_write(buf, len);
a5f3e637	237	if (keyflag && cfg.protocol == PROT_TELNET && len == 1) {
	238	switch (buf[0]) {
	239	case CTRL('M'):
	240	back->special(TS_EOL);
	241	break;
	242	case CTRL('?'):
	243	case CTRL('H'):
	244	if (cfg.telnet_keyboard) {
	245	back->special(TS_EC);
	246	break;
	247	}
	248	case CTRL('C'):
	249	if (cfg.telnet_keyboard) {
	250	back->special(TS_IP);
	251	break;
	252	}
	253	case CTRL('Z'):
	254	if (cfg.telnet_keyboard) {
	255	back->special(TS_SUSP);
	256	break;
	257	}
	258
	259	default:
	260	back->send(buf, len);
	261	break;
	262	}
	263	} else
	264	back->send(buf, len);
32874aea	265	}
5d1d4279	266	}
5bc238bb	267	}