[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 <stdio.h>
#include <ctype.h>

#include "putty.h"
#include "terminal.h"

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

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