[u/mdw/putty] / ldisc.c

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

#include "putty.h"

/*
 * ldisc.c: PuTTY line disciplines
 */

static void c_write (char *buf, int len) {
    while (len--) {
	int new_head = (inbuf_head + 1) & INBUF_MASK;
	if (new_head != inbuf_reap) {
	    inbuf[inbuf_head] = *buf++;
	    inbuf_head = new_head;
	}
    }
}

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))
        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)) {
        char cc = (char)c;
        c_write(&cc, 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);
}

static void term_send(char *buf, int len) {
    while (len--) {
	char c;
        c = *buf++;
	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
	     * ^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/^j: send line-plus-\r\n and reset to BOL
	     */
	  case 8: case 127:	       /* backspace/delete */
	    if (term_buflen > 0) {
		bsb(plen(term_buf[term_buflen-1]));
		term_buflen--;
	    }
	    break;
	  case 23:		       /* ^W delete word */
	    while (term_buflen > 0) {
		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 21:		       /* ^U delete line */
	    while (term_buflen > 0) {
		bsb(plen(term_buf[term_buflen-1]));
		term_buflen--;
	    }
            break;
	  case 18:		       /* ^R redraw line */
	    c_write("^R\r\n", 4);
	    {
		int i;
		for (i = 0; i < term_buflen; i++)
		    pwrite(term_buf[i]);
	    }
	    break;
	  case 22:		       /* ^V quote next char */
	    term_quotenext = TRUE;
	    break;
	  case 4:		       /* ^D logout or send */
	    if (term_buflen == 0) {
		/* FIXME: eof */;
	    } else {
		back->send(term_buf, term_buflen);
		term_buflen = 0;
	    }
	    break;
	  case 13: case 10:	       /* ^M/^J send with newline */
	    back->send(term_buf, term_buflen);
	    back->send("\r\n", 2);
	    c_write("\r\n", 2);
	    term_buflen = 0;
	    break;
	  default:                     /* get to this label from ^V handler */
	    if (term_buflen >= term_bufsiz) {
		term_bufsiz = term_buflen + 256;
		term_buf = saferealloc(term_buf, term_bufsiz);
	    }
	    term_buf[term_buflen++] = c;
	    pwrite(c);
            term_quotenext = FALSE;
	    break;
	}
    }
}

static void simple_send(char *buf, int len) {
    back->send(buf, len);
}

Ldisc ldisc_term = { term_send };
Ldisc ldisc_simple = { simple_send };
Commit	Line	Data
5bc238bb	1	#include <windows.h>
5bc238bb	2	#include <stdio.h>
1d470ad2	3	#include <ctype.h>
5bc238bb	4
	5	#include "putty.h"
	6
	7	/*
	8	* ldisc.c: PuTTY line disciplines
	9	*/
	10
	11	static void c_write (char *buf, int len) {
	12	while (len--) {
	13	int new_head = (inbuf_head + 1) & INBUF_MASK;
5bc238bb	14	if (new_head != inbuf_reap) {
	15	inbuf[inbuf_head] = *buf++;
	16	inbuf_head = new_head;
	17	}
	18	}
	19	}
	20
	21	static char *term_buf = NULL;
	22	static int term_buflen = 0, term_bufsiz = 0, term_quotenext = 0;
	23
	24	static int plen(unsigned char c) {
	25	if ((c >= 32 && c <= 126) \|\|
	26	(c >= 160))
	27	return 1;
	28	else if (c < 128)
	29	return 2; /* ^x for some x */
	30	else
	31	return 4; /* <XY> for hex XY */
	32	}
	33
	34	static void pwrite(unsigned char c) {
	35	if ((c >= 32 && c <= 126) \|\|
	36	(c >= 160)) {
	37	char cc = (char)c;
	38	c_write(&cc, 1);
	39	} else if (c < 128) {
	40	char cc[2];
	41	cc[1] = (c == 127 ? '?' : c + 0x40);
	42	cc[0] = '^';
	43	c_write(cc, 2);
	44	} else {
	45	char cc[5];
	46	sprintf(cc, "<%02X>", c);
	47	c_write(cc, 4);
	48	}
	49	}
	50
	51	static void bsb(int n) {
	52	while (n--)
	53	c_write("\010 \010", 3);
	54	}
	55
	56	static void term_send(char *buf, int len) {
	57	while (len--) {
	58	char c;
	59	c = *buf++;
	60	switch (term_quotenext ? ' ' : c) {
	61	/*
	62	* ^h/^?: delete one char and output one BSB
	63	* ^w: delete, and output BSBs, to return to last space/nonspace
	64	* boundary
	65	* ^u: delete, and output BSBs, to return to BOL
	66	* ^r: echo "^R\n" and redraw line
	67	* ^v: quote next char
	68	* ^d: if at BOL, end of file and close connection, else send line
	69	* and reset to BOL
	70	* ^m/^j: send line-plus-\r\n and reset to BOL
	71	*/
	72	case 8: case 127: /* backspace/delete */
	73	if (term_buflen > 0) {
	74	bsb(plen(term_buf[term_buflen-1]));
	75	term_buflen--;
	76	}
	77	break;
78	case 23: /* ^W delete word */
79	while (term_buflen > 0) {
80	bsb(plen(term_buf[term_buflen-1]));
81	term_buflen--;
82	if (term_buflen > 0 &&
83	isspace(term_buf[term_buflen-1]) &&
84	!isspace(term_buf[term_buflen]))
85	break;
86	}
87	break;
88	case 21: /* ^U delete line */
89	while (term_buflen > 0) {
90	bsb(plen(term_buf[term_buflen-1]));
91	term_buflen--;
92	}
93	break;
94	case 18: /* ^R redraw line */
95	c_write("^R\r\n", 4);
96	{
97	int i;
98	for (i = 0; i < term_buflen; i++)
99	pwrite(term_buf[i]);
100	}
101	break;
102	case 22: /* ^V quote next char */
103	term_quotenext = TRUE;
104	break;
105	case 4: /* ^D logout or send */
106	if (term_buflen == 0) {
107	/* FIXME: eof */;
108	} else {
109	back->send(term_buf, term_buflen);
110	term_buflen = 0;
111	}
112	break;
113	case 13: case 10: /* ^M/^J send with newline */
114	back->send(term_buf, term_buflen);
115	back->send("\r\n", 2);
116	c_write("\r\n", 2);
117	term_buflen = 0;
118	break;
119	default: /* get to this label from ^V handler */
120	if (term_buflen >= term_bufsiz) {
121	term_bufsiz = term_buflen + 256;
122	term_buf = saferealloc(term_buf, term_bufsiz);
123	}
124	term_buf[term_buflen++] = c;
125	pwrite(c);
126	term_quotenext = FALSE;
127	break;
128	}
129	}
130	}
131
132	static void simple_send(char *buf, int len) {
133	back->send(buf, len);
134	}
135
136	Ldisc ldisc_term = { term_send };
137	Ldisc ldisc_simple = { simple_send };