projects / u / mdw / putty / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Robert de Bath's big patch:
[u/mdw/putty] / terminal.c
CommitLineData
374330e2 1#include <windows.h>
5b80d07f 2#ifndef AUTO_WINSOCK
3#ifdef WINSOCK_TWO
4#include <winsock2.h>
5#else
6#include <winsock.h>
7#endif
8#endif
374330e2 9
10#include <stdio.h>
11#include <stdlib.h>
12
13#include "putty.h"
14
c9def1b8 15#define CL_ANSIMIN 0x0001 /* Codes in all ANSI like terminals. */
e14a5a13 16#define CL_VT100 0x0002 /* VT100 */
17#define CL_VT100AVO 0x0004 /* VT100 +AVO; 132x24 (not 132x14) & attrs */
18#define CL_VT102 0x0008 /* VT102 */
19#define CL_VT220 0x0010 /* VT220 */
20#define CL_VT320 0x0020 /* VT320 */
21#define CL_VT420 0x0040 /* VT420 */
22#define CL_VT510 0x0080 /* VT510, NB VT510 includes ANSI */
23#define CL_VT340TEXT 0x0100 /* VT340 extensions that appear in the VT420 */
c9def1b8 24#define CL_SCOANSI 0x1000 /* SCOANSI not in ANSIMIN. */
25#define CL_ANSI 0x2000 /* ANSI ECMA-48 not in the VT100..VT420 */
26#define CL_OTHER 0x4000 /* Others, Xterm, linux, putty, dunno, etc */
e14a5a13 27
c9def1b8 28#define TM_VT100 (CL_ANSIMIN|CL_VT100)
29#define TM_VT100AVO (TM_VT100|CL_VT100AVO)
30#define TM_VT102 (TM_VT100AVO|CL_VT102)
31#define TM_VT220 (TM_VT102|CL_VT220)
32#define TM_VTXXX (TM_VT220|CL_VT340TEXT|CL_VT510|CL_VT420|CL_VT320)
33#define TM_SCOANSI (CL_ANSIMIN|CL_SCOANSI)
34
35#define TM_PUTTY (0xFFFF)
e14a5a13 36
37#define compatibility(x) \
38 if ( ((CL_##x)&compatibility_level) == 0 ) { \
39 termstate=TOPLEVEL; \
40 break; \
41 }
c9def1b8 42#define compatibility2(x,y) \
43 if ( ((CL_##x|CL_##y)&compatibility_level) == 0 ) { \
44 termstate=TOPLEVEL; \
45 break; \
46 }
e14a5a13 47
48#define has_compat(x) ( ((CL_##x)&compatibility_level) != 0 )
49
50static int compatibility_level = TM_PUTTY;
51
52
374330e2 53static unsigned long *text; /* buffer of text on terminal screen */
54static unsigned long *scrtop; /* top of working screen */
55static unsigned long *disptop; /* top of displayed screen */
56static unsigned long *sbtop; /* top of scrollback */
c9def1b8 57static unsigned long *sbbot; /* furthest extent of scrollback */
374330e2 58static unsigned long *cpos; /* cursor position (convenience) */
59static unsigned long *disptext; /* buffer of text on real screen */
60static unsigned long *wanttext; /* buffer of text we want on screen */
61static unsigned long *alttext; /* buffer of text on alt. screen */
62
63static unsigned char *selspace; /* buffer for building selections in */
64
65#define TSIZE (sizeof(*text))
66#define fix_cpos do { cpos = scrtop + curs_y * (cols+1) + curs_x; } while(0)
67
68static unsigned long curr_attr, save_attr;
e14a5a13 69static unsigned long erase_char = ERASE_CHAR;
374330e2 70
71static int curs_x, curs_y; /* cursor */
72static int save_x, save_y; /* saved cursor position */
73static int marg_t, marg_b; /* scroll margins */
74static int dec_om; /* DEC origin mode flag */
75static int wrap, wrapnext; /* wrap flags */
76static int insert; /* insert-mode flag */
77static int cset; /* 0 or 1: which char set */
78static int save_cset, save_csattr; /* saved with cursor position */
79static int rvideo; /* global reverse video flag */
e14a5a13 80static int cursor_on; /* cursor enabled flag */
81static int reset_132; /* Flag ESC c resets to 80 cols */
82static int use_bce; /* Use Background coloured erase */
83static int blinker; /* When blinking is the cursor on ? */
c9def1b8 84static int tblinker; /* When the blinking text is on */
85static int blink_is_real; /* Actually blink blinking text */
374330e2 86
87static unsigned long cset_attr[2];
88
89/*
90 * Saved settings on the alternate screen.
91 */
92static int alt_x, alt_y, alt_om, alt_wrap, alt_wnext, alt_ins, alt_cset;
93static int alt_t, alt_b;
94static int alt_which;
95
96#define ARGS_MAX 32 /* max # of esc sequence arguments */
064916ea 97#define ARG_DEFAULT 0 /* if an arg isn't specified */
374330e2 98#define def(a,d) ( (a) == ARG_DEFAULT ? (d) : (a) )
99static int esc_args[ARGS_MAX];
100static int esc_nargs;
101static int esc_query;
8b811b12 102#define ANSI(x,y) ((x)+((y)<<8))
103#define ANSI_QUE(x) ANSI(x,TRUE)
374330e2 104
105#define OSC_STR_MAX 2048
106static int osc_strlen;
107static char osc_string[OSC_STR_MAX+1];
108static int osc_w;
109
c9def1b8 110static char id_string[1024] = "\033[?6c";
111
374330e2 112static unsigned char *tabs;
113
374330e2 114static enum {
cabfd08c 115 TOPLEVEL,
116 SEEN_ESC,
117 SEEN_CSI,
118 SEEN_OSC,
119 SEEN_OSC_W,
120
121 DO_CTRLS,
122
123 IGNORE_NEXT,
124 SET_GL, SET_GR,
125 SEEN_OSC_P,
126 OSC_STRING, OSC_MAYBE_ST,
e14a5a13 127 SEEN_ESCHASH,
128 VT52_ESC,
129 VT52_Y1,
130 VT52_Y2
374330e2 131} termstate;
132
133static enum {
134 NO_SELECTION, ABOUT_TO, DRAGGING, SELECTED
135} selstate;
136static enum {
137 SM_CHAR, SM_WORD, SM_LINE
138} selmode;
139static unsigned long *selstart, *selend, *selanchor;
140
141static short wordness[256] = {
142 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 01 */
143 0,1,2,1,1,1,1,1,1,1,1,1,1,2,2,2, 2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1, /* 23 */
144 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,2, /* 45 */
145 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1, /* 67 */
146 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 89 */
147 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* AB */
148 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2, /* CD */
149 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2, /* EF */
150};
151
152static unsigned char sel_nl[] = SEL_NL;
c9def1b8 153static char * paste_buffer = 0;
154static int paste_len, paste_pos, paste_hold;
374330e2 155
156/*
157 * Internal prototypes.
158 */
159static void do_paint (Context, int);
160static void erase_lots (int, int, int);
161static void swap_screen (int);
162static void update_sbar (void);
163static void deselect (void);
164
165/*
166 * Set up power-on settings for the terminal.
167 */
168static void power_on(void) {
169 curs_x = curs_y = alt_x = alt_y = save_x = save_y = 0;
170 alt_t = marg_t = 0;
171 if (rows != -1)
172 alt_b = marg_b = rows - 1;
173 else
174 alt_b = marg_b = 0;
175 if (cols != -1) {
176 int i;
177 for (i = 0; i < cols; i++)
178 tabs[i] = (i % 8 == 0 ? TRUE : FALSE);
179 }
180 alt_om = dec_om = cfg.dec_om;
181 alt_wnext = wrapnext = alt_ins = insert = FALSE;
182 alt_wrap = wrap = cfg.wrap_mode;
183 alt_cset = cset = 0;
184 cset_attr[0] = cset_attr[1] = ATTR_ASCII;
185 rvideo = 0;
e14a5a13 186 cursor_on = 1;
374330e2 187 save_attr = curr_attr = ATTR_DEFAULT;
188 app_cursor_keys = cfg.app_cursor;
189 app_keypad_keys = cfg.app_keypad;
c9def1b8 190 use_bce = cfg.bce;
191 blink_is_real = cfg.blinktext;
e14a5a13 192 erase_char = ERASE_CHAR;
374330e2 193 alt_which = 0;
194 {
195 int i;
196 for (i = 0; i < 256; i++)
197 wordness[i] = cfg.wordness[i];
198 }
199 if (text) {
200 swap_screen (1);
201 erase_lots (FALSE, TRUE, TRUE);
202 swap_screen (0);
203 erase_lots (FALSE, TRUE, TRUE);
204 }
205}
206
207/*
208 * Force a screen update.
209 */
210void term_update(void) {
211 Context ctx;
212 ctx = get_ctx();
213 if (ctx) {
c9def1b8 214 if ( (seen_key_event && (cfg.scroll_on_key)) ||
215 (seen_disp_event && (!cfg.scroll_on_key)) ) {
cabfd08c 216 disptop = scrtop;
217 seen_disp_event = seen_key_event = 0;
218 }
374330e2 219 do_paint (ctx, TRUE);
ec8679e9 220 sys_cursor(curs_x, curs_y + (scrtop - disptop) / (cols+1));
374330e2 221 free_ctx (ctx);
374330e2 222 }
223}
224
225/*
226 * Same as power_on(), but an external function.
227 */
228void term_pwron(void) {
229 power_on();
230 fix_cpos;
231 disptop = scrtop;
232 deselect();
233 term_update();
234}
235
236/*
237 * Clear the scrollback.
238 */
239void term_clrsb(void) {
240 disptop = sbtop = scrtop;
241 update_sbar();
242}
243
244/*
245 * Initialise the terminal.
246 */
247void term_init(void) {
c9def1b8 248 text = sbtop = sbbot = scrtop = disptop = cpos = NULL;
374330e2 249 disptext = wanttext = NULL;
250 tabs = NULL;
251 selspace = NULL;
252 deselect();
253 rows = cols = -1;
374330e2 254 power_on();
255}
256
257/*
258 * Set up the terminal for a given size.
259 */
260void term_size(int newrows, int newcols, int newsavelines) {
261 unsigned long *newtext, *newdisp, *newwant, *newalt;
262 int i, j, crows, ccols;
263
d6832394 264 int save_alt_which = alt_which;
265
374330e2 266 if (newrows == rows && newcols == cols && newsavelines == savelines)
267 return; /* nothing to do */
268
d6832394 269 deselect();
270 swap_screen(0);
271
374330e2 272 alt_t = marg_t = 0;
273 alt_b = marg_b = newrows - 1;
274
275 newtext = smalloc ((newrows+newsavelines)*(newcols+1)*TSIZE);
c9def1b8 276 sbbot = newtext + newsavelines*(newcols+1);
374330e2 277 for (i=0; i<(newrows+newsavelines)*(newcols+1); i++)
c9def1b8 278 newtext[i] = erase_char;
374330e2 279 if (rows != -1) {
280 crows = rows + (scrtop - sbtop) / (cols+1);
281 if (crows > newrows+newsavelines)
282 crows = newrows+newsavelines;
c9def1b8 283 if (newrows>crows)
284 disptop = newtext;
285 else
286 disptop = newtext + (crows-newrows)*(newcols+1);
374330e2 287 ccols = (cols < newcols ? cols : newcols);
288 for (i=0; i<crows; i++) {
c9def1b8 289 int oldidx = (rows - crows + i) * (cols+1);
290 int newidx = (newrows - crows + i) * (newcols+1);
291
374330e2 292 for (j=0; j<ccols; j++)
c9def1b8 293 disptop[newidx+j] = scrtop[oldidx+j];
294 disptop[newidx+newcols] =
295 (cols == newcols ? scrtop[oldidx+cols]
296 : (scrtop[oldidx+cols]&LATTR_MODE));
374330e2 297 }
c9def1b8 298 sbtop = newtext;
299 } else {
300 sbtop = disptop = newtext;
301 }
374330e2 302 scrtop = disptop;
303 sfree (text);
304 text = newtext;
305
306 newdisp = smalloc (newrows*(newcols+1)*TSIZE);
307 for (i=0; i<newrows*(newcols+1); i++)
308 newdisp[i] = ATTR_INVALID;
309 sfree (disptext);
310 disptext = newdisp;
311
312 newwant = smalloc (newrows*(newcols+1)*TSIZE);
313 for (i=0; i<newrows*(newcols+1); i++)
314 newwant[i] = ATTR_INVALID;
315 sfree (wanttext);
316 wanttext = newwant;
317
318 newalt = smalloc (newrows*(newcols+1)*TSIZE);
319 for (i=0; i<newrows*(newcols+1); i++)
e14a5a13 320 newalt[i] = erase_char;
374330e2 321 sfree (alttext);
322 alttext = newalt;
323
324 sfree (selspace);
325 selspace = smalloc ( (newrows+newsavelines) * (newcols+sizeof(sel_nl)) );
326
327 tabs = srealloc (tabs, newcols*sizeof(*tabs));
328 {
329 int i;
330 for (i = (cols > 0 ? cols : 0); i < newcols; i++)
331 tabs[i] = (i % 8 == 0 ? TRUE : FALSE);
332 }
333
334 if (rows > 0)
335 curs_y += newrows - rows;
336 if (curs_y < 0)
337 curs_y = 0;
338 if (curs_y >= newrows)
339 curs_y = newrows-1;
340 if (curs_x >= newcols)
341 curs_x = newcols-1;
342 alt_x = alt_y = 0;
343 wrapnext = alt_wnext = FALSE;
344
345 rows = newrows;
346 cols = newcols;
347 savelines = newsavelines;
348 fix_cpos;
349
d6832394 350 swap_screen(save_alt_which);
351
374330e2 352 update_sbar();
353 term_update();
354}
355
356/*
357 * Swap screens.
358 */
359static void swap_screen (int which) {
360 int t;
361 unsigned long tt;
362
363 if (which == alt_which)
364 return;
365
366 alt_which = which;
367
368 for (t=0; t<rows*(cols+1); t++) {
369 tt = scrtop[t]; scrtop[t] = alttext[t]; alttext[t] = tt;
370 }
371
372 t = curs_x; curs_x = alt_x; alt_x = t;
373 t = curs_y; curs_y = alt_y; alt_y = t;
374 t = marg_t; marg_t = alt_t; alt_t = t;
375 t = marg_b; marg_b = alt_b; alt_b = t;
376 t = dec_om; dec_om = alt_om; alt_om = t;
377 t = wrap; wrap = alt_wrap; alt_wrap = t;
378 t = wrapnext; wrapnext = alt_wnext; alt_wnext = t;
379 t = insert; insert = alt_ins; alt_ins = t;
380 t = cset; cset = alt_cset; alt_cset = t;
381
382 fix_cpos;
383}
384
385/*
374330e2 386 * Update the scroll bar.
387 */
388static void update_sbar(void) {
389 int min;
390
391 min = (sbtop - text) / (cols+1);
392 set_sbar ((scrtop - text) / (cols+1) + rows - min,
393 (disptop - text) / (cols+1) - min,
394 rows);
395}
396
397/*
398 * Check whether the region bounded by the two pointers intersects
399 * the scroll region, and de-select the on-screen selection if so.
400 */
401static void check_selection (unsigned long *from, unsigned long *to) {
402 if (from < selend && selstart < to)
403 deselect();
404}
405
406/*
407 * Scroll the screen. (`lines' is +ve for scrolling forward, -ve
408 * for backward.) `sb' is TRUE if the scrolling is permitted to
409 * affect the scrollback buffer.
410 */
411static void scroll (int topline, int botline, int lines, int sb) {
412 unsigned long *scroll_top;
c9def1b8 413 unsigned long *newscr;
374330e2 414 int scroll_size, size, i;
c9def1b8 415 int scrtop_is_disptop = (scrtop==disptop);
416static int recursive = 0;
417
418 /* Only scroll more than the window if we're doing a 10% scroll */
419 if (!recursive && lines > botline - topline + 1)
420 lines = botline - topline + 1;
374330e2 421
422 scroll_top = scrtop + topline*(cols+1);
423 size = (lines < 0 ? -lines : lines) * (cols+1);
424 scroll_size = (botline - topline + 1) * (cols+1) - size;
425
cabfd08c 426 if (lines > 0 && topline == 0 && alt_which == 0 && sb) {
374330e2 427 /*
cabfd08c 428 * Since we're going to scroll the top line and we're on the
c9def1b8 429 * scrolling screen let's also effect the scrollback buffer.
430 *
431 * This is normally done by moving the position the screen
432 * painter reads from to reduce the amount of memory copying
433 * required.
374330e2 434 */
c9def1b8 435 if (scroll_size >= 0 && !recursive) {
436 newscr = scrtop + lines * (cols+1);
437
438 if (newscr > sbbot && botline == rows-1) {
439 /* We've hit the bottom of memory, so we have to do a
440 * physical scroll. But instead of just 1 line do it
441 * by 10% of the available memory.
442 *
443 * If the scroll region isn't the whole screen then we can't
444 * do this as it stands. We would need to recover the bottom
445 * of the screen from the scroll buffer after being sure that
446 * it doesn't get deleted.
447 */
448
449 i = (rows+savelines)/10;
450
451 /* Make it simple and ensure safe recursion */
452 if ( i<savelines-1) {
453 recursive ++;
454 scroll(topline, botline, i, sb);
455 recursive --;
456
457 newscr = scrtop - i * (cols+1);
458 if (scrtop_is_disptop) disptop = newscr;
459 scrtop = newscr;
460 }
461
462 newscr = scrtop + lines * (cols+1);
463 }
464
465 if (newscr <= sbbot) {
466 if (scrtop_is_disptop) disptop = newscr;
467 scrtop = newscr;
468
469 if (botline == rows-1 )
470 for (i = 0; i < size; i++)
471 scrtop[i+scroll_size] = erase_char;
472
473 update_sbar();
474 fix_cpos;
475
476 if (botline != rows-1) {
477 /* This fastscroll only works for full window scrolls.
478 * If the caller wanted a partial one we have to reverse
479 * scroll the bottom of the screen.
480 */
481 scroll(botline-lines+1, rows-1, -lines, 0);
482 }
483 return ;
484 }
485
486 /* If we can't scroll by memory remapping do it physically.
487 * But rather than expensivly doing the scroll buffer just
488 * scroll the screen. All it means is that sometimes we choose
489 * to not add lines from a scroll region to the scroll buffer.
490 */
491
492 if (savelines <= 400) {
493 sbtop -= lines * (cols+1);
494 if (sbtop < text)
495 sbtop = text;
496 scroll_size += scroll_top - sbtop;
497 scroll_top = sbtop;
498
499 update_sbar();
500 }
501 } else {
502 /* Ho hum, expensive scroll required. */
503
504 sbtop -= lines * (cols+1);
505 if (sbtop < text)
506 sbtop = text;
507 scroll_size += scroll_top - sbtop;
508 scroll_top = sbtop;
509
510 update_sbar();
511 }
374330e2 512 }
513
514 if (scroll_size < 0) {
515 size += scroll_size;
516 scroll_size = 0;
517 }
518
519 if (lines > 0) {
520 if (scroll_size)
521 memmove (scroll_top, scroll_top + size, scroll_size*TSIZE);
522 for (i = 0; i < size; i++)
e14a5a13 523 scroll_top[i+scroll_size] = erase_char;
374330e2 524 if (selstart > scroll_top &&
525 selstart < scroll_top + size + scroll_size) {
526 selstart -= size;
527 if (selstart < scroll_top)
528 selstart = scroll_top;
529 }
530 if (selend > scroll_top &&
531 selend < scroll_top + size + scroll_size) {
532 selend -= size;
533 if (selend < scroll_top)
534 selend = scroll_top;
535 }
c9def1b8 536 if (scrtop_is_disptop)
537 disptop = scrtop;
538 else
539 if (disptop > scroll_top &&
540 disptop < scroll_top + size + scroll_size) {
541 disptop -= size;
542 if (disptop < scroll_top)
543 disptop = scroll_top;
544 }
374330e2 545 } else {
546 if (scroll_size)
547 memmove (scroll_top + size, scroll_top, scroll_size*TSIZE);
548 for (i = 0; i < size; i++)
e14a5a13 549 scroll_top[i] = erase_char;
374330e2 550 if (selstart > scroll_top &&
551 selstart < scroll_top + size + scroll_size) {
552 selstart += size;
553 if (selstart > scroll_top + size + scroll_size)
554 selstart = scroll_top + size + scroll_size;
555 }
556 if (selend > scroll_top &&
557 selend < scroll_top + size + scroll_size) {
558 selend += size;
559 if (selend > scroll_top + size + scroll_size)
560 selend = scroll_top + size + scroll_size;
561 }
c9def1b8 562 if (scrtop_is_disptop)
563 disptop = scrtop;
564 else if (disptop > scroll_top &&
565 disptop < scroll_top + size + scroll_size) {
566 disptop += size;
567 if (disptop > scroll_top + size + scroll_size)
568 disptop = scroll_top + size + scroll_size;
569 }
374330e2 570 }
374330e2 571}
572
573/*
574 * Move the cursor to a given position, clipping at boundaries. We
575 * may or may not want to clip at the scroll margin: marg_clip is 0
576 * not to, 1 to disallow _passing_ the margins, and 2 to disallow
577 * even _being_ outside the margins.
578 */
579static void move (int x, int y, int marg_clip) {
580 if (x < 0)
581 x = 0;
582 if (x >= cols)
583 x = cols-1;
584 if (marg_clip) {
585 if ((curs_y >= marg_t || marg_clip == 2) && y < marg_t)
586 y = marg_t;
587 if ((curs_y <= marg_b || marg_clip == 2) && y > marg_b)
588 y = marg_b;
589 }
590 if (y < 0)
591 y = 0;
592 if (y >= rows)
593 y = rows-1;
594 curs_x = x;
595 curs_y = y;
596 fix_cpos;
597 wrapnext = FALSE;
598}
599
600/*
601 * Save or restore the cursor and SGR mode.
602 */
603static void save_cursor(int save) {
604 if (save) {
605 save_x = curs_x;
606 save_y = curs_y;
607 save_attr = curr_attr;
608 save_cset = cset;
609 save_csattr = cset_attr[cset];
610 } else {
611 curs_x = save_x;
612 curs_y = save_y;
c9def1b8 613 /* Make sure the window hasn't shrunk since the save */
614 if (curs_x >= cols) curs_x = cols-1;
615 if (curs_y >= rows) curs_y = rows-1;
616
374330e2 617 curr_attr = save_attr;
618 cset = save_cset;
619 cset_attr[cset] = save_csattr;
620 fix_cpos;
e14a5a13 621 if (use_bce) erase_char = (' ' |(curr_attr&(ATTR_FGMASK|ATTR_BGMASK)));
374330e2 622 }
623}
624
625/*
626 * Erase a large portion of the screen: the whole screen, or the
627 * whole line, or parts thereof.
628 */
629static void erase_lots (int line_only, int from_begin, int to_end) {
630 unsigned long *startpos, *endpos;
631
632 if (line_only) {
633 startpos = cpos - curs_x;
c9def1b8 634 endpos = startpos + cols;
635 /* I've removed the +1 so that the Wide screen stuff is not
636 * removed when it shouldn't be.
637 */
374330e2 638 } else {
639 startpos = scrtop;
640 endpos = startpos + rows * (cols+1);
641 }
642 if (!from_begin)
643 startpos = cpos;
644 if (!to_end)
e14a5a13 645 endpos = cpos+1;
374330e2 646 check_selection (startpos, endpos);
e14a5a13 647
648 /* Clear screen also forces a full window redraw, just in case. */
649 if (startpos == scrtop && endpos == scrtop + rows * (cols+1))
650 term_invalidate();
651
374330e2 652 while (startpos < endpos)
e14a5a13 653 *startpos++ = erase_char;
374330e2 654}
655
656/*
657 * Insert or delete characters within the current line. n is +ve if
658 * insertion is desired, and -ve for deletion.
659 */
660static void insch (int n) {
661 int dir = (n < 0 ? -1 : +1);
662 int m;
663
664 n = (n < 0 ? -n : n);
665 if (n > cols - curs_x)
666 n = cols - curs_x;
667 m = cols - curs_x - n;
668 check_selection (cpos, cpos+n);
669 if (dir < 0) {
670 memmove (cpos, cpos+n, m*TSIZE);
671 while (n--)
e14a5a13 672 cpos[m++] = erase_char;
374330e2 673 } else {
674 memmove (cpos+n, cpos, m*TSIZE);
675 while (n--)
e14a5a13 676 cpos[n] = erase_char;
374330e2 677 }
678}
679
680/*
681 * Toggle terminal mode `mode' to state `state'. (`query' indicates
682 * whether the mode is a DEC private one or a normal one.)
683 */
684static void toggle_mode (int mode, int query, int state) {
685 if (query) switch (mode) {
686 case 1: /* application cursor keys */
687 app_cursor_keys = state;
688 break;
e14a5a13 689 case 2: /* VT52 mode */
690 vt52_mode = !state;
691 break;
374330e2 692 case 3: /* 80/132 columns */
693 deselect();
e14a5a13 694 request_resize (state ? 132 : 80, rows, 1);
695 reset_132 = state;
374330e2 696 break;
697 case 5: /* reverse video */
698 rvideo = state;
cabfd08c 699 seen_disp_event = TRUE;
e14a5a13 700 if (state) term_update();
374330e2 701 break;
702 case 6: /* DEC origin mode */
703 dec_om = state;
704 break;
705 case 7: /* auto wrap */
706 wrap = state;
707 break;
c9def1b8 708 case 8: /* auto key repeat */
709 repeat_off = !state;
710 break;
e14a5a13 711 case 25: /* enable/disable cursor */
ec55b220 712 compatibility2(OTHER,VT220);
e14a5a13 713 cursor_on = state;
714 seen_disp_event = TRUE;
715 break;
374330e2 716 case 47: /* alternate screen */
e14a5a13 717 compatibility(OTHER);
374330e2 718 deselect();
719 swap_screen (state);
720 disptop = scrtop;
721 break;
722 } else switch (mode) {
723 case 4: /* set insert mode */
e14a5a13 724 compatibility(VT102);
374330e2 725 insert = state;
726 break;
e14a5a13 727 case 12: /* set echo mode */
728 /*
729 * This may be very good in smcup and rmcup (or smkx & rmkx) if you
730 * have a long RTT and the telnet client/daemon doesn't understand
731 * linemode.
732 *
733 * DONT send TS_RECHO/TS_LECHO; the telnet daemon tries to fix the
734 * tty and _really_ confuses some programs.
735 */
ec55b220 736 compatibility2(OTHER,VT220);
e14a5a13 737 ldisc = (state? &ldisc_simple : &ldisc_term);
738 break;
c9def1b8 739 case 20: /* Return sends ... */
740 cr_lf_return = state;
741 break;
374330e2 742 }
743}
744
745/*
746 * Process an OSC sequence: set window title or icon name.
747 */
748static void do_osc(void) {
749 if (osc_w) {
750 while (osc_strlen--)
751 wordness[(unsigned char)osc_string[osc_strlen]] = esc_args[0];
752 } else {
753 osc_string[osc_strlen] = '\0';
754 switch (esc_args[0]) {
755 case 0:
756 case 1:
757 set_icon (osc_string);
758 if (esc_args[0] == 1)
759 break;
760 /* fall through: parameter 0 means set both */
761 case 2:
762 case 21:
763 set_title (osc_string);
764 break;
765 }
766 }
767}
768
769/*
770 * Remove everything currently in `inbuf' and stick it up on the
771 * in-memory display. There's a big state machine in here to
772 * process escape sequences...
773 */
774void term_out(void) {
c9def1b8 775 int c, inbuf_reap;
776
777static int beep_overload = 0;
778 int beep_count = 0;
779
780 for(inbuf_reap = 0; inbuf_reap < inbuf_head; inbuf_reap++)
781 {
782 c = inbuf[inbuf_reap];
374330e2 783
c9def1b8 784 /*
5fd04f07 785 * Optionally log the session traffic to a file. Useful for
786 * debugging and possibly also useful for actual logging.
787 */
788 if (logfile) {
374330e2 789 static FILE *fp = NULL;
5fd04f07 790 if (!fp) fp = fopen(logfile, "wb");
374330e2 791 if (fp) fputc (c, fp);
792 }
e14a5a13 793 /* Note only VT220+ are 8-bit VT102 is seven bit, it shouldn't even
794 * be able to display 8-bit characters, but I'll let that go 'cause
795 * of i18n.
796 */
c9def1b8 797 if( ( (c&0x60) == 0 || c == '\177') &&
798 termstate < DO_CTRLS &&
e14a5a13 799 ( (c&0x80) == 0 || has_compat(VT220))) {
374330e2 800 switch (c) {
801 case '\005': /* terminal type query */
e14a5a13 802 /* Strictly speaking this is VT100 but a VT100 defaults to
803 * no response. Other terminals respond at their option.
804 *
805 * Don't put a CR in the default string as this tends to
806 * upset some weird software.
807 *
808 * An xterm returns "xterm" (5 characters)
809 */
810 compatibility(OTHER);
811 ldisc->send ("PuTTY", 5);
374330e2 812 break;
813 case '\007':
c9def1b8 814 beep_count++;
815 if(beep_count>6) beep_overload=1;
374330e2 816 disptop = scrtop;
374330e2 817 break;
818 case '\b':
c9def1b8 819 if (curs_x == 0 && curs_y == 0)
820 ;
821 else if (curs_x == 0 && curs_y > 0)
374330e2 822 curs_x = cols-1, curs_y--;
823 else if (wrapnext)
824 wrapnext = FALSE;
825 else
826 curs_x--;
827 fix_cpos;
cabfd08c 828 seen_disp_event = TRUE;
374330e2 829 break;
830 case '\016':
e14a5a13 831 compatibility(VT100);
374330e2 832 cset = 1;
833 break;
834 case '\017':
e14a5a13 835 compatibility(VT100);
374330e2 836 cset = 0;
837 break;
838 case '\033':
e14a5a13 839 if (vt52_mode)
840 termstate = VT52_ESC;
841 else {
842 compatibility(ANSIMIN);
843 termstate = SEEN_ESC;
844 }
374330e2 845 break;
846 case 0233:
e14a5a13 847 compatibility(VT220);
374330e2 848 termstate = SEEN_CSI;
849 esc_nargs = 1;
850 esc_args[0] = ARG_DEFAULT;
851 esc_query = FALSE;
852 break;
853 case 0235:
e14a5a13 854 compatibility(VT220);
374330e2 855 termstate = SEEN_OSC;
856 esc_args[0] = 0;
857 break;
858 case '\r':
859 curs_x = 0;
860 wrapnext = FALSE;
861 fix_cpos;
cabfd08c 862 seen_disp_event = TRUE;
c9def1b8 863 paste_hold = 0;
374330e2 864 break;
865 case '\013':
866 case '\014':
e14a5a13 867 compatibility(VT100);
374330e2 868 case '\n':
869 if (curs_y == marg_b)
870 scroll (marg_t, marg_b, 1, TRUE);
871 else if (curs_y < rows-1)
872 curs_y++;
cabfd08c 873 if (cfg.lfhascr)
874 curs_x = 0;
374330e2 875 fix_cpos;
876 wrapnext = FALSE;
cabfd08c 877 seen_disp_event = 1;
c9def1b8 878 paste_hold = 0;
374330e2 879 break;
880 case '\t':
374330e2 881 {
882 unsigned long *old_cpos = cpos;
c9def1b8 883 unsigned long *p = scrtop + curs_y * (cols+1) + cols;
884
885 do {
886 curs_x++;
887 } while (curs_x < cols-1 && !tabs[curs_x]);
888
889 if ((*p & LATTR_MODE) != LATTR_NORM)
890 {
891 if (curs_x >= cols/2)
892 curs_x = cols/2-1;
893 }
894 else
895 {
896 if (curs_x >= cols)
897 curs_x = cols-1;
898 }
899
374330e2 900 fix_cpos;
901 check_selection (old_cpos, cpos);
902 }
cabfd08c 903 seen_disp_event = TRUE;
374330e2 904 break;
ec55b220 905 case '\177': /* Destructive backspace
906 This does nothing on a real VT100 */
907 compatibility(OTHER);
908 if (curs_x && !wrapnext) curs_x--;
909 wrapnext = FALSE;
910 fix_cpos;
911 *cpos = (' ' | curr_attr | ATTR_ASCII);
912 break;
cabfd08c 913 }
914 }
915 else switch (termstate) {
916 case TOPLEVEL:
8b811b12 917 /* Only graphic characters get this far, ctrls are stripped above */
918 if (wrapnext) {
c9def1b8 919 cpos[1] |= ATTR_WRAPPED;
8b811b12 920 if (curs_y == marg_b)
921 scroll (marg_t, marg_b, 1, TRUE);
922 else if (curs_y < rows-1)
923 curs_y++;
924 curs_x = 0;
925 fix_cpos;
926 wrapnext = FALSE;
8b811b12 927 }
928 if (insert)
929 insch (1);
e14a5a13 930 if (selstate != NO_SELECTION)
931 check_selection (cpos, cpos+1);
932 switch (cset_attr[cset]) {
933 /* Linedraw characters are different from 'ESC ( B' only
934 * for a small range, for ones outside that range make sure
935 * we use the same font as well as the same encoding.
936 */
937 case ATTR_LINEDRW:
ec55b220 938 if (c<0x5f || c>0x7F)
e14a5a13 939 *cpos++ = xlat_tty2scr((unsigned char)c) | curr_attr |
940 ATTR_ASCII;
ec55b220 941 else if (c==0x5F)
942 *cpos++ = ' ' | curr_attr | ATTR_ASCII;
e14a5a13 943 else
944 *cpos++ = ((unsigned char)c) | curr_attr | ATTR_LINEDRW;
945 break;
ec55b220 946 case ATTR_GBCHR:
947 /* If UK-ASCII, make the '#' a LineDraw Pound */
948 if (c == '#') {
949 *cpos++ = '}' | curr_attr | ATTR_LINEDRW;
950 break;
951 }
952 /*FALLTHROUGH*/
e14a5a13 953 default:
954 *cpos++ = xlat_tty2scr((unsigned char)c) | curr_attr |
955 (c <= 0x7F ? cset_attr[cset] : ATTR_ASCII);
956 break;
957 }
8b811b12 958 curs_x++;
959 if (curs_x == cols) {
960 cpos--;
961 curs_x--;
962 wrapnext = wrap;
374330e2 963 }
8b811b12 964 seen_disp_event = 1;
374330e2 965 break;
cabfd08c 966
374330e2 967 case IGNORE_NEXT:
968 termstate = TOPLEVEL;
969 break;
970 case OSC_MAYBE_ST:
971 /*
972 * This state is virtually identical to SEEN_ESC, with the
973 * exception that we have an OSC sequence in the pipeline,
974 * and _if_ we see a backslash, we process it.
975 */
976 if (c == '\\') {
977 do_osc();
978 termstate = TOPLEVEL;
979 break;
980 }
981 /* else fall through */
982 case SEEN_ESC:
983 termstate = TOPLEVEL;
984 switch (c) {
374330e2 985 case ' ': /* some weird sequence? */
e14a5a13 986 compatibility(VT220);
374330e2 987 termstate = IGNORE_NEXT;
988 break;
989 case '[': /* enter CSI mode */
990 termstate = SEEN_CSI;
991 esc_nargs = 1;
992 esc_args[0] = ARG_DEFAULT;
993 esc_query = FALSE;
994 break;
995 case ']': /* xterm escape sequences */
e14a5a13 996 /* Compatibility is nasty here, xterm, linux, decterm yuk! */
997 compatibility(OTHER);
374330e2 998 termstate = SEEN_OSC;
999 esc_args[0] = 0;
1000 break;
1001 case '(': /* should set GL */
e14a5a13 1002 compatibility(VT100);
374330e2 1003 termstate = SET_GL;
1004 break;
1005 case ')': /* should set GR */
e14a5a13 1006 compatibility(VT100);
374330e2 1007 termstate = SET_GR;
1008 break;
1009 case '7': /* save cursor */
e14a5a13 1010 compatibility(VT100);
374330e2 1011 save_cursor (TRUE);
1012 break;
1013 case '8': /* restore cursor */
e14a5a13 1014 compatibility(VT100);
374330e2 1015 save_cursor (FALSE);
cabfd08c 1016 seen_disp_event = TRUE;
374330e2 1017 break;
1018 case '=':
e14a5a13 1019 compatibility(VT100);
374330e2 1020 app_keypad_keys = TRUE;
1021 break;
1022 case '>':
e14a5a13 1023 compatibility(VT100);
374330e2 1024 app_keypad_keys = FALSE;
1025 break;
1026 case 'D': /* exactly equivalent to LF */
e14a5a13 1027 compatibility(VT100);
374330e2 1028 if (curs_y == marg_b)
1029 scroll (marg_t, marg_b, 1, TRUE);
1030 else if (curs_y < rows-1)
1031 curs_y++;
1032 fix_cpos;
1033 wrapnext = FALSE;
cabfd08c 1034 seen_disp_event = TRUE;
374330e2 1035 break;
1036 case 'E': /* exactly equivalent to CR-LF */
e14a5a13 1037 compatibility(VT100);
374330e2 1038 curs_x = 0;
374330e2 1039 if (curs_y == marg_b)
1040 scroll (marg_t, marg_b, 1, TRUE);
1041 else if (curs_y < rows-1)
1042 curs_y++;
1043 fix_cpos;
1044 wrapnext = FALSE;
cabfd08c 1045 seen_disp_event = TRUE;
374330e2 1046 break;
1047 case 'M': /* reverse index - backwards LF */
e14a5a13 1048 compatibility(VT100);
374330e2 1049 if (curs_y == marg_t)
1050 scroll (marg_t, marg_b, -1, TRUE);
1051 else if (curs_y > 0)
1052 curs_y--;
1053 fix_cpos;
1054 wrapnext = FALSE;
cabfd08c 1055 seen_disp_event = TRUE;
374330e2 1056 break;
1057 case 'Z': /* terminal type query */
e14a5a13 1058 compatibility(VT100);
c9def1b8 1059 ldisc->send (id_string, strlen(id_string));
374330e2 1060 break;
1061 case 'c': /* restore power-on settings */
e14a5a13 1062 compatibility(VT100);
374330e2 1063 power_on();
e14a5a13 1064 if (reset_132) {
1065 request_resize (80, rows, 1);
1066 reset_132 = 0;
1067 }
374330e2 1068 fix_cpos;
1069 disptop = scrtop;
cabfd08c 1070 seen_disp_event = TRUE;
374330e2 1071 break;
1072 case '#': /* ESC # 8 fills screen with Es :-) */
e14a5a13 1073 compatibility(VT100);
374330e2 1074 termstate = SEEN_ESCHASH;
1075 break;
1076 case 'H': /* set a tab */
e14a5a13 1077 compatibility(VT100);
374330e2 1078 tabs[curs_x] = TRUE;
1079 break;
1080 }
1081 break;
1082 case SEEN_CSI:
1083 termstate = TOPLEVEL; /* default */
8b811b12 1084 if( isdigit(c) )
1085 {
374330e2 1086 if (esc_nargs <= ARGS_MAX) {
1087 if (esc_args[esc_nargs-1] == ARG_DEFAULT)
1088 esc_args[esc_nargs-1] = 0;
1089 esc_args[esc_nargs-1] =
1090 10 * esc_args[esc_nargs-1] + c - '0';
1091 }
1092 termstate = SEEN_CSI;
8b811b12 1093 }
1094 else if( c == ';' )
1095 {
374330e2 1096 if (++esc_nargs <= ARGS_MAX)
1097 esc_args[esc_nargs-1] = ARG_DEFAULT;
1098 termstate = SEEN_CSI;
8b811b12 1099 }
1100 else if( c < '@' )
1101 {
1102 if( esc_query ) esc_query = -1;
1103 else if( c == '?' ) esc_query = TRUE;
1104 else esc_query = c;
374330e2 1105 termstate = SEEN_CSI;
8b811b12 1106 }
1107 else switch (ANSI(c,esc_query)) {
374330e2 1108 case 'A': /* move up N lines */
1109 move (curs_x, curs_y - def(esc_args[0], 1), 1);
cabfd08c 1110 seen_disp_event = TRUE;
374330e2 1111 break;
e14a5a13 1112 case 'e': /* move down N lines */
1113 compatibility(ANSI);
1114 case 'B':
374330e2 1115 move (curs_x, curs_y + def(esc_args[0], 1), 1);
cabfd08c 1116 seen_disp_event = TRUE;
374330e2 1117 break;
e14a5a13 1118 case 'a': /* move right N cols */
1119 compatibility(ANSI);
1120 case 'C':
374330e2 1121 move (curs_x + def(esc_args[0], 1), curs_y, 1);
cabfd08c 1122 seen_disp_event = TRUE;
374330e2 1123 break;
1124 case 'D': /* move left N cols */
1125 move (curs_x - def(esc_args[0], 1), curs_y, 1);
cabfd08c 1126 seen_disp_event = TRUE;
374330e2 1127 break;
1128 case 'E': /* move down N lines and CR */
e14a5a13 1129 compatibility(ANSI);
374330e2 1130 move (0, curs_y + def(esc_args[0], 1), 1);
cabfd08c 1131 seen_disp_event = TRUE;
374330e2 1132 break;
1133 case 'F': /* move up N lines and CR */
e14a5a13 1134 compatibility(ANSI);
374330e2 1135 move (0, curs_y - def(esc_args[0], 1), 1);
cabfd08c 1136 seen_disp_event = TRUE;
374330e2 1137 break;
1138 case 'G': case '`': /* set horizontal posn */
e14a5a13 1139 compatibility(ANSI);
374330e2 1140 move (def(esc_args[0], 1) - 1, curs_y, 0);
cabfd08c 1141 seen_disp_event = TRUE;
374330e2 1142 break;
1143 case 'd': /* set vertical posn */
e14a5a13 1144 compatibility(ANSI);
374330e2 1145 move (curs_x, (dec_om ? marg_t : 0) + def(esc_args[0], 1) - 1,
1146 (dec_om ? 2 : 0));
cabfd08c 1147 seen_disp_event = TRUE;
374330e2 1148 break;
1149 case 'H': case 'f': /* set horz and vert posns at once */
1150 if (esc_nargs < 2)
1151 esc_args[1] = ARG_DEFAULT;
1152 move (def(esc_args[1], 1) - 1,
1153 (dec_om ? marg_t : 0) + def(esc_args[0], 1) - 1,
1154 (dec_om ? 2 : 0));
cabfd08c 1155 seen_disp_event = TRUE;
374330e2 1156 break;
1157 case 'J': /* erase screen or parts of it */
1158 {
1159 unsigned int i = def(esc_args[0], 0) + 1;
1160 if (i > 3)
1161 i = 0;
1162 erase_lots(FALSE, !!(i & 2), !!(i & 1));
1163 }
1164 disptop = scrtop;
cabfd08c 1165 seen_disp_event = TRUE;
374330e2 1166 break;
1167 case 'K': /* erase line or parts of it */
1168 {
1169 unsigned int i = def(esc_args[0], 0) + 1;
1170 if (i > 3)
1171 i = 0;
1172 erase_lots(TRUE, !!(i & 2), !!(i & 1));
1173 }
cabfd08c 1174 seen_disp_event = TRUE;
374330e2 1175 break;
1176 case 'L': /* insert lines */
e14a5a13 1177 compatibility(VT102);
374330e2 1178 if (curs_y <= marg_b)
1179 scroll (curs_y, marg_b, -def(esc_args[0], 1), FALSE);
cabfd08c 1180 seen_disp_event = TRUE;
374330e2 1181 break;
1182 case 'M': /* delete lines */
e14a5a13 1183 compatibility(VT102);
374330e2 1184 if (curs_y <= marg_b)
cabfd08c 1185 scroll (curs_y, marg_b, def(esc_args[0], 1), TRUE);
1186 seen_disp_event = TRUE;
374330e2 1187 break;
1188 case '@': /* insert chars */
e14a5a13 1189 /* XXX VTTEST says this is vt220, vt510 manual says vt102 */
1190 compatibility(VT102);
374330e2 1191 insch (def(esc_args[0], 1));
cabfd08c 1192 seen_disp_event = TRUE;
374330e2 1193 break;
1194 case 'P': /* delete chars */
e14a5a13 1195 compatibility(VT102);
374330e2 1196 insch (-def(esc_args[0], 1));
cabfd08c 1197 seen_disp_event = TRUE;
374330e2 1198 break;
1199 case 'c': /* terminal type query */
e14a5a13 1200 compatibility(VT100);
1201 /* This is the response for a VT102 */
c9def1b8 1202 ldisc->send (id_string, strlen(id_string));
374330e2 1203 break;
1204 case 'n': /* cursor position query */
1205 if (esc_args[0] == 6) {
1206 char buf[32];
1207 sprintf (buf, "\033[%d;%dR", curs_y + 1, curs_x + 1);
5bc238bb 1208 ldisc->send (buf, strlen(buf));
374330e2 1209 }
e14a5a13 1210 else if (esc_args[0] == 5) {
e14a5a13 1211 ldisc->send ("\033[0n", 4);
1212 }
374330e2 1213 break;
e14a5a13 1214 case 'h': /* toggle modes to high */
8b811b12 1215 case ANSI_QUE('h'):
e14a5a13 1216 compatibility(VT100);
1217 {
1218 int i;
1219 for (i=0; i<esc_nargs; i++)
1220 toggle_mode (esc_args[i], esc_query, TRUE);
1221 }
374330e2 1222 break;
e14a5a13 1223 case 'l': /* toggle modes to low */
8b811b12 1224 case ANSI_QUE('l'):
e14a5a13 1225 compatibility(VT100);
1226 {
1227 int i;
1228 for (i=0; i<esc_nargs; i++)
1229 toggle_mode (esc_args[i], esc_query, FALSE);
1230 }
374330e2 1231 break;
1232 case 'g': /* clear tabs */
e14a5a13 1233 compatibility(VT100);
374330e2 1234 if (esc_nargs == 1) {
1235 if (esc_args[0] == 0) {
1236 tabs[curs_x] = FALSE;
1237 } else if (esc_args[0] == 3) {
1238 int i;
1239 for (i = 0; i < cols; i++)
1240 tabs[i] = FALSE;
1241 }
1242 }
1243 break;
1244 case 'r': /* set scroll margins */
e14a5a13 1245 compatibility(VT100);
8b811b12 1246 if (esc_nargs <= 2) {
374330e2 1247 int top, bot;
7e394092 1248 top = def(esc_args[0], 1) - 1;
1249 bot = (esc_nargs <= 1 || esc_args[1] == 0 ? rows :
1250 def(esc_args[1], rows)) - 1;
374330e2 1251 if (bot >= rows)
1252 bot = rows-1;
7e394092 1253 /* VTTEST Bug 9 - if region is less than 2 lines
1254 * don't change region.
1255 */
1256 if (bot-top > 1) {
374330e2 1257 marg_t = top;
1258 marg_b = bot;
1259 curs_x = 0;
1260 /*
1261 * I used to think the cursor should be
1262 * placed at the top of the newly marginned
1263 * area. Apparently not: VMS TPU falls over
1264 * if so.
e14a5a13 1265 *
1266 * Well actually it should for Origin mode - RDB
374330e2 1267 */
e14a5a13 1268 curs_y = (dec_om ? marg_t : 0);
374330e2 1269 fix_cpos;
cabfd08c 1270 seen_disp_event = TRUE;
374330e2 1271 }
1272 }
1273 break;
1274 case 'm': /* set graphics rendition */
1275 {
e14a5a13 1276 /*
1277 * A VT100 without the AVO only had one attribute, either
1278 * underline or reverse video depending on the cursor type,
1279 * this was selected by CSI 7m.
1280 *
1281 * case 2:
1282 * This is DIM on the VT100-AVO and VT102
1283 * case 5:
1284 * This is BLINK on the VT100-AVO and VT102+
1285 * case 8:
1286 * This is INVIS on the VT100-AVO and VT102
1287 * case 21:
1288 * This like 22 disables BOLD, DIM and INVIS
1289 *
1290 * The ANSI colours appear on any terminal that has colour
1291 * (obviously) but the interaction between sgr0 and the
1292 * colours varies but is usually related to the background
1293 * colour erase item.
1294 * The interaction between colour attributes and the mono
1295 * ones is also very implementation dependent.
1296 *
1297 * The 39 and 49 attributes are likely to be unimplemented.
1298 */
374330e2 1299 int i;
1300 for (i=0; i<esc_nargs; i++) {
1301 switch (def(esc_args[i], 0)) {
1302 case 0: /* restore defaults */
1303 curr_attr = ATTR_DEFAULT; break;
1304 case 1: /* enable bold */
e14a5a13 1305 compatibility(VT100AVO);
374330e2 1306 curr_attr |= ATTR_BOLD; break;
374330e2 1307 case 21: /* (enable double underline) */
e14a5a13 1308 compatibility(OTHER);
1309 case 4: /* enable underline */
1310 compatibility(VT100AVO);
374330e2 1311 curr_attr |= ATTR_UNDER; break;
e14a5a13 1312 case 5: /* enable blink */
1313 compatibility(VT100AVO);
1314 curr_attr |= ATTR_BLINK; break;
374330e2 1315 case 7: /* enable reverse video */
1316 curr_attr |= ATTR_REVERSE; break;
1317 case 22: /* disable bold */
ec55b220 1318 compatibility2(OTHER,VT220);
374330e2 1319 curr_attr &= ~ATTR_BOLD; break;
1320 case 24: /* disable underline */
ec55b220 1321 compatibility2(OTHER,VT220);
374330e2 1322 curr_attr &= ~ATTR_UNDER; break;
e14a5a13 1323 case 25: /* disable blink */
ec55b220 1324 compatibility2(OTHER,VT220);
e14a5a13 1325 curr_attr &= ~ATTR_BLINK; break;
374330e2 1326 case 27: /* disable reverse video */
ec55b220 1327 compatibility2(OTHER,VT220);
374330e2 1328 curr_attr &= ~ATTR_REVERSE; break;
1329 case 30: case 31: case 32: case 33:
1330 case 34: case 35: case 36: case 37:
1331 /* foreground */
1332 curr_attr &= ~ATTR_FGMASK;
1333 curr_attr |= (esc_args[i] - 30) << ATTR_FGSHIFT;
1334 break;
1335 case 39: /* default-foreground */
1336 curr_attr &= ~ATTR_FGMASK;
1337 curr_attr |= ATTR_DEFFG;
1338 break;
1339 case 40: case 41: case 42: case 43:
1340 case 44: case 45: case 46: case 47:
1341 /* background */
1342 curr_attr &= ~ATTR_BGMASK;
1343 curr_attr |= (esc_args[i] - 40) << ATTR_BGSHIFT;
1344 break;
1345 case 49: /* default-background */
1346 curr_attr &= ~ATTR_BGMASK;
1347 curr_attr |= ATTR_DEFBG;
1348 break;
1349 }
1350 }
e14a5a13 1351 if (use_bce)
c9def1b8 1352 erase_char =
1353 (' '|
1354 (curr_attr&(ATTR_FGMASK|ATTR_BGMASK|ATTR_BLINK))
1355 );
374330e2 1356 }
1357 break;
1358 case 's': /* save cursor */
1359 save_cursor (TRUE);
1360 break;
1361 case 'u': /* restore cursor */
1362 save_cursor (FALSE);
cabfd08c 1363 seen_disp_event = TRUE;
374330e2 1364 break;
1365 case 't': /* set page size - ie window height */
e14a5a13 1366 /*
1367 * VT340/VT420 sequence DECSLPP, DEC only allows values
1368 * 24/25/36/48/72/144 other emulators (eg dtterm) use
1369 * illegal values (eg first arg 1..9) for window changing
1370 * and reports.
1371 */
1372 compatibility(VT340TEXT);
1373 if (esc_nargs<=1 && (esc_args[0]<1 || esc_args[0]>=24)) {
c9def1b8 1374 request_resize (cols, def(esc_args[0], 24), 0);
e14a5a13 1375 deselect();
1376 }
1377 break;
1378 case ANSI('|', '*'):
1379 /* VT420 sequence DECSNLS
1380 * Set number of lines on screen
1381 * VT420 uses VGA like hardware and can support any size in
1382 * reasonable range (24..49 AIUI) with no default specified.
1383 */
1384 compatibility(VT420);
c9def1b8 1385 if (esc_nargs==1 && esc_args[0]>0) {
1386 request_resize (cols, def(esc_args[0], cfg.height), 0);
e14a5a13 1387 deselect();
1388 }
1389 break;
1390 case ANSI('|', '$'):
1391 /* VT340/VT420 sequence DECSCPP
1392 * Set number of columns per page
1393 * Docs imply range is only 80 or 132, but I'll allow any.
1394 */
1395 compatibility(VT340TEXT);
1396 if (esc_nargs<=1) {
c9def1b8 1397 request_resize (def(esc_args[0], cfg.width), rows, 0);
e14a5a13 1398 deselect();
1399 }
374330e2 1400 break;
1401 case 'X': /* write N spaces w/o moving cursor */
e14a5a13 1402 /* XXX VTTEST says this is vt220, vt510 manual says vt100 */
c9def1b8 1403 compatibility(ANSIMIN);
374330e2 1404 {
1405 int n = def(esc_args[0], 1);
1406 unsigned long *p = cpos;
1407 if (n > cols - curs_x)
1408 n = cols - curs_x;
1409 check_selection (cpos, cpos+n);
1410 while (n--)
e14a5a13 1411 *p++ = erase_char;
cabfd08c 1412 seen_disp_event = TRUE;
374330e2 1413 }
1414 break;
1415 case 'x': /* report terminal characteristics */
e14a5a13 1416 compatibility(VT100);
374330e2 1417 {
1418 char buf[32];
1419 int i = def(esc_args[0], 0);
1420 if (i == 0 || i == 1) {
1421 strcpy (buf, "\033[2;1;1;112;112;1;0x");
1422 buf[2] += i;
5bc238bb 1423 ldisc->send (buf, 20);
374330e2 1424 }
1425 }
1426 break;
e14a5a13 1427 case ANSI('L','='):
1428 compatibility(OTHER);
1429 use_bce = (esc_args[0]<=0);
1430 erase_char = ERASE_CHAR;
1431 if (use_bce)
1432 erase_char = (' '|(curr_attr&(ATTR_FGMASK|ATTR_BGMASK)));
1433 break;
c9def1b8 1434 case ANSI('E','='):
1435 compatibility(OTHER);
1436 blink_is_real = (esc_args[0]>=1);
1437 break;
e14a5a13 1438 case ANSI('p','"'):
1439 /* Allow the host to make this emulator a 'perfect' VT102.
1440 * This first appeared in the VT220, but we do need to get
1441 * back to PuTTY mode so I won't check it.
1442 *
ec55b220 1443 * The arg in 40..42 are a PuTTY extension.
1444 * The 2nd arg, 8bit vs 7bit is not checked.
e14a5a13 1445 *
1446 * Setting VT102 mode should also change the Fkeys to
1447 * generate PF* codes as a real VT102 has no Fkeys.
1448 * The VT220 does this, F11..F13 become ESC,BS,LF other Fkeys
1449 * send nothing.
1450 *
1451 * Note ESC c will NOT change this!
1452 */
1453
ec55b220 1454 switch (esc_args[0]) {
1455 case 61: compatibility_level &= ~TM_VTXXX;
1456 compatibility_level |= TM_VT102; break;
1457 case 62: compatibility_level &= ~TM_VTXXX;
1458 compatibility_level |= TM_VT220; break;
1459
1460 default: if( esc_args[0] > 60 && esc_args[0] < 70 )
1461 compatibility_level |= TM_VTXXX;
1462 break;
1463
1464 case 40: compatibility_level &= TM_VTXXX; break;
1465 case 41: compatibility_level = TM_PUTTY; break;
1466 case 42: compatibility_level = TM_SCOANSI; break;
1467
1468 case ARG_DEFAULT:
1469 compatibility_level = TM_PUTTY; break;
1470 case 50: break;
1471 }
1472
1473 /* Change the response to CSI c */
1474 if (esc_args[0] == 50) {
1475 int i;
1476 char lbuf[64];
1477 strcpy(id_string, "\033[?");
1478 for (i=1; i<esc_nargs; i++) {
1479 if (i!=1) strcat(id_string, ";");
1480 sprintf(lbuf, "%d", esc_args[i]);
1481 strcat(id_string, lbuf);
1482 }
1483 strcat(id_string, "c");
1484 }
1485
1486#if 0
1487 /* Is this a good idea ?
1488 * Well we should do a soft reset at this point ...
1489 */
1490 if (!has_compat(VT420) && has_compat(VT100)) {
1491 if (reset_132) request_resize (132, 24, 1);
1492 else request_resize ( 80, 24, 1);
1493 }
1494#endif
e14a5a13 1495 break;
374330e2 1496 }
1497 break;
1498 case SET_GL:
1499 case SET_GR:
e14a5a13 1500 /* VT100 only here, checked above */
374330e2 1501 switch (c) {
1502 case 'A':
1503 cset_attr[termstate == SET_GL ? 0 : 1] = ATTR_GBCHR;
1504 break;
1505 case '0':
1506 cset_attr[termstate == SET_GL ? 0 : 1] = ATTR_LINEDRW;
1507 break;
e14a5a13 1508 case 'B':
374330e2 1509 default: /* specifically, 'B' */
1510 cset_attr[termstate == SET_GL ? 0 : 1] = ATTR_ASCII;
1511 break;
1512 }
e14a5a13 1513 if( !has_compat(VT220) || c != '%' )
8b811b12 1514 termstate = TOPLEVEL;
374330e2 1515 break;
1516 case SEEN_OSC:
1517 osc_w = FALSE;
1518 switch (c) {
374330e2 1519 case 'P': /* Linux palette sequence */
1520 termstate = SEEN_OSC_P;
1521 osc_strlen = 0;
1522 break;
1523 case 'R': /* Linux palette reset */
1524 palette_reset();
1525 term_invalidate();
1526 termstate = TOPLEVEL;
1527 break;
1528 case 'W': /* word-set */
1529 termstate = SEEN_OSC_W;
1530 osc_w = TRUE;
1531 break;
1532 case '0': case '1': case '2': case '3': case '4':
1533 case '5': case '6': case '7': case '8': case '9':
1534 esc_args[0] = 10 * esc_args[0] + c - '0';
1535 break;
1536 case 'L':
1537 /*
1538 * Grotty hack to support xterm and DECterm title
1539 * sequences concurrently.
1540 */
1541 if (esc_args[0] == 2) {
1542 esc_args[0] = 1;
1543 break;
1544 }
1545 /* else fall through */
1546 default:
1547 termstate = OSC_STRING;
1548 osc_strlen = 0;
1549 }
1550 break;
1551 case OSC_STRING:
8b811b12 1552 /*
1553 * This OSC stuff is EVIL. It takes just one character to get into
1554 * sysline mode and it's not initially obvious how to get out.
1555 * So I've added CR and LF as string aborts.
1556 * This shouldn't effect compatibility as I believe embedded
1557 * control characters are supposed to be interpreted (maybe?)
1558 * and they don't display anything useful anyway.
1559 *
1560 * -- RDB
1561 */
1562 if (c == '\n' || c == '\r') {
1563 termstate = TOPLEVEL;
1564 } else if (c == 0234 || c == '\007' ) {
374330e2 1565 /*
1566 * These characters terminate the string; ST and BEL
1567 * terminate the sequence and trigger instant
1568 * processing of it, whereas ESC goes back to SEEN_ESC
1569 * mode unless it is followed by \, in which case it is
1570 * synonymous with ST in the first place.
1571 */
1572 do_osc();
1573 termstate = TOPLEVEL;
1574 } else if (c == '\033')
1575 termstate = OSC_MAYBE_ST;
1576 else if (osc_strlen < OSC_STR_MAX)
1577 osc_string[osc_strlen++] = c;
1578 break;
1579 case SEEN_OSC_P:
1580 {
1581 int max = (osc_strlen == 0 ? 21 : 16);
1582 int val;
1583 if (c >= '0' && c <= '9')
1584 val = c - '0';
1585 else if (c >= 'A' && c <= 'A'+max-10)
1586 val = c - 'A' + 10;
1587 else if (c >= 'a' && c <= 'a'+max-10)
1588 val = c - 'a' + 10;
1589 else
1590 termstate = TOPLEVEL;
1591 osc_string[osc_strlen++] = val;
1592 if (osc_strlen >= 7) {
1593 palette_set (osc_string[0],
1594 osc_string[1] * 16 + osc_string[2],
1595 osc_string[3] * 16 + osc_string[4],
1596 osc_string[5] * 16 + osc_string[6]);
1597 term_invalidate();
1598 termstate = TOPLEVEL;
1599 }
1600 }
1601 break;
1602 case SEEN_OSC_W:
1603 switch (c) {
374330e2 1604 case '0': case '1': case '2': case '3': case '4':
1605 case '5': case '6': case '7': case '8': case '9':
1606 esc_args[0] = 10 * esc_args[0] + c - '0';
1607 break;
1608 default:
1609 termstate = OSC_STRING;
1610 osc_strlen = 0;
1611 }
1612 break;
1613 case SEEN_ESCHASH:
c9def1b8 1614 {
1615 unsigned long *p;
1616 unsigned long nlattr;
1617 int n;
1618
1619 switch (c) {
1620 case '8':
1621 p = scrtop;
1622 n = rows * (cols+1);
1623 while (n--)
1624 *p++ = ATTR_DEFAULT | 'E';
1625 disptop = scrtop;
1626 seen_disp_event = TRUE;
1627 check_selection (scrtop, scrtop + rows * (cols+1));
1628 break;
1629
1630 case '3': nlattr = LATTR_TOP; if(0) {
1631 case '4': nlattr = LATTR_BOT; } if(0) {
1632 case '5': nlattr = LATTR_NORM; } if(0) {
1633 case '6': nlattr = LATTR_WIDE; }
1634
1635 p = scrtop + curs_y * (cols+1) + cols;
1636 *p &= ~LATTR_MODE;
1637 *p |= nlattr;
1638 }
374330e2 1639 }
1640 termstate = TOPLEVEL;
1641 break;
e14a5a13 1642 case VT52_ESC:
1643 termstate = TOPLEVEL;
1644 seen_disp_event = TRUE;
1645 switch (c) {
1646 case 'A':
1647 move (curs_x, curs_y - 1, 1);
1648 break;
1649 case 'B':
1650 move (curs_x, curs_y + 1, 1);
1651 break;
1652 case 'C':
1653 move (curs_x + 1, curs_y, 1);
1654 break;
1655 case 'D':
1656 move (curs_x - 1, curs_y, 1);
1657 break;
1658 case 'F':
1659 cset_attr[cset=0] = ATTR_LINEDRW;
1660 break;
1661 case 'G':
1662 cset_attr[cset=0] = ATTR_ASCII;
1663 break;
1664 case 'H':
1665 move (0, 0, 0);
1666 break;
1667 case 'I':
1668 if (curs_y == 0)
1669 scroll (0, rows-1, -1, TRUE);
1670 else if (curs_y > 0)
1671 curs_y--;
1672 fix_cpos;
1673 wrapnext = FALSE;
1674 break;
1675 case 'J':
1676 erase_lots(FALSE, FALSE, TRUE);
1677 disptop = scrtop;
1678 break;
1679 case 'K':
1680 erase_lots(TRUE, FALSE, TRUE);
1681 break;
1682 case 'V':
1683 /* XXX Print cursor line */
1684 break;
1685 case 'W':
1686 /* XXX Start controller mode */
1687 break;
1688 case 'X':
1689 /* XXX Stop controller mode */
1690 break;
1691 case 'Y':
1692 termstate = VT52_Y1;
1693 break;
1694 case 'Z':
1695 ldisc->send ("\033/Z", 3);
1696 break;
1697 case '=':
ec55b220 1698 app_keypad_keys = TRUE;
e14a5a13 1699 break;
1700 case '>':
ec55b220 1701 app_keypad_keys = FALSE;
e14a5a13 1702 break;
1703 case '<':
1704 /* XXX This should switch to VT100 mode not current or default
1705 * VT mode. But this will only have effect in a VT220+
1706 * emulation.
1707 */
1708 vt52_mode = FALSE;
1709 break;
1710 case '^':
1711 /* XXX Enter auto print mode */
1712 break;
1713 case '_':
1714 /* XXX Exit auto print mode */
1715 break;
1716 case ']':
1717 /* XXX Print screen */
1718 break;
1719 }
1720 break;
1721 case VT52_Y1:
1722 termstate = VT52_Y2;
1723 move(curs_x, c-' ', 0);
1724 break;
1725 case VT52_Y2:
1726 termstate = TOPLEVEL;
1727 move(c-' ', curs_y, 0);
1728 break;
374330e2 1729 }
e14a5a13 1730 if (selstate != NO_SELECTION)
1731 check_selection (cpos, cpos+1);
374330e2 1732 }
c9def1b8 1733 inbuf_head = 0;
1734
1735 if (beep_overload)
1736 {
1737 if(!beep_count) beep_overload=0;
1738 }
1739 else if(beep_count && beep_count<5 && cfg.beep)
1740 beep(beep_count/3);
374330e2 1741}
1742
1743/*
1744 * Compare two lines to determine whether they are sufficiently
1745 * alike to scroll-optimise one to the other. Return the degree of
1746 * similarity.
1747 */
1748static int linecmp (unsigned long *a, unsigned long *b) {
1749 int i, n;
1750
1751 for (i=n=0; i < cols; i++)
1752 n += (*a++ == *b++);
1753 return n;
1754}
1755
1756/*
1757 * Given a context, update the window. Out of paranoia, we don't
1758 * allow WM_PAINT responses to do scrolling optimisations.
1759 */
ec8679e9 1760static void do_paint (Context ctx, int may_optimise){
374330e2 1761 int i, j, start, our_curs_y;
1762 unsigned long attr, rv, cursor;
1763 char ch[1024];
1764
e14a5a13 1765 if (cursor_on) {
1766 if (has_focus) {
217dceef 1767 if (blinker || !cfg.blink_cur)
1768 cursor = ATTR_ACTCURS;
1769 else
1770 cursor = 0;
e14a5a13 1771 }
1772 else
1773 cursor = ATTR_PASCURS;
1774 }
1775 else cursor = 0;
374330e2 1776 rv = (rvideo ? ATTR_REVERSE : 0);
1777 our_curs_y = curs_y + (scrtop - disptop) / (cols+1);
1778
1779 for (i=0; i<rows; i++) {
1780 int idx = i*(cols+1);
c9def1b8 1781 int lattr = (disptop[idx+cols] & LATTR_MODE);
374330e2 1782 for (j=0; j<=cols; j++,idx++) {
1783 unsigned long *d = disptop+idx;
c9def1b8 1784 wanttext[idx] = lattr | ((*d ^ rv
374330e2 1785 ^ (selstart <= d && d < selend ?
1786 ATTR_REVERSE : 0)) |
1787 (i==our_curs_y && j==curs_x ? cursor : 0));
c9def1b8 1788
1789 if (blink_is_real) {
1790 if (has_focus && tblinker && (wanttext[idx]&ATTR_BLINK) )
1791 {
1792 wanttext[idx] &= ATTR_MASK;
1793 wanttext[idx] += ' ';
1794 }
1795 wanttext[idx] &= ~ATTR_BLINK;
1796 }
374330e2 1797 }
1798 }
1799
1800 /*
1801 * We would perform scrolling optimisations in here, if they
1802 * didn't have a nasty tendency to cause the whole sodding
1803 * program to hang for a second at speed-critical moments.
1804 * We'll leave it well alone...
1805 */
1806
1807 for (i=0; i<rows; i++) {
1808 int idx = i*(cols+1);
c9def1b8 1809 int lattr = (wanttext[idx+cols] & LATTR_MODE);
374330e2 1810 start = -1;
1811 for (j=0; j<=cols; j++,idx++) {
1812 unsigned long t = wanttext[idx];
1813 int needs_update = (j < cols && t != disptext[idx]);
1814 int keep_going = (start != -1 && needs_update &&
1815 (t & ATTR_MASK) == attr &&
1816 j-start < sizeof(ch));
1817 if (start != -1 && !keep_going) {
c9def1b8 1818 do_text (ctx, start, i, ch, j-start, attr, lattr);
374330e2 1819 start = -1;
1820 }
1821 if (needs_update) {
1822 if (start == -1) {
1823 start = j;
1824 attr = t & ATTR_MASK;
1825 }
1826 ch[j-start] = (char) (t & CHAR_MASK);
1827 }
1828 disptext[idx] = t;
1829 }
1830 }
1831}
1832
1833/*
e14a5a13 1834 * Flick the switch that says if blinking things should be shown or hidden.
1835 */
1836
1837void term_blink(int flg) {
1838static long last_blink = 0;
c9def1b8 1839static long last_tblink = 0;
e14a5a13 1840 long now, blink_diff;
1841
c9def1b8 1842 now = GetTickCount();
1843 blink_diff = now-last_tblink;
1844
1845 /* Make sure the text blinks no more than 2Hz */
1846 if (blink_diff<0 || blink_diff>450)
1847 {
1848 last_tblink = now;
1849 tblinker = !tblinker;
1850 }
1851
e14a5a13 1852 if (flg) {
1853 blinker = 1;
c9def1b8 1854 last_blink = now;
e14a5a13 1855 return;
1856 }
e14a5a13 1857
1858 blink_diff = now-last_blink;
1859
1860 /* Make sure the cursor blinks no more than 2Hz */
1861 if (blink_diff>=0 && blink_diff<450)
1862 return;
1863
1864 last_blink = now;
1865 blinker = !blinker;
1866}
1867
1868/*
374330e2 1869 * Invalidate the whole screen so it will be repainted in full.
1870 */
1871void term_invalidate(void) {
1872 int i;
1873
1874 for (i=0; i<rows*(cols+1); i++)
1875 disptext[i] = ATTR_INVALID;
1876}
1877
1878/*
1879 * Paint the window in response to a WM_PAINT message.
1880 */
1881void term_paint (Context ctx, int l, int t, int r, int b) {
1882 int i, j, left, top, right, bottom;
1883
1884 left = l / font_width;
1885 right = (r - 1) / font_width;
1886 top = t / font_height;
1887 bottom = (b - 1) / font_height;
e42ad027 1888 for (i = top; i <= bottom && i < rows ; i++)
c9def1b8 1889 {
1890 if ( (disptext[i*(cols+1)+cols]&LATTR_MODE) == LATTR_NORM)
1891 for (j = left; j <= right && j < cols ; j++)
1892 disptext[i*(cols+1)+j] = ATTR_INVALID;
1893 else
1894 for (j = left/2; j <= right/2+1 && j < cols ; j++)
1895 disptext[i*(cols+1)+j] = ATTR_INVALID;
1896 }
374330e2 1897
e14a5a13 1898 /* This should happen soon enough, also for some reason it sometimes
1899 * fails to actually do anything when re-sizing ... painting the wrong
1900 * window perhaps ?
374330e2 1901 do_paint (ctx, FALSE);
e14a5a13 1902 */
374330e2 1903}
1904
1905/*
1906 * Attempt to scroll the scrollback. The second parameter gives the
1907 * position we want to scroll to; the first is +1 to denote that
1908 * this position is relative to the beginning of the scrollback, -1
1909 * to denote it is relative to the end, and 0 to denote that it is
1910 * relative to the current position.
1911 */
1912void term_scroll (int rel, int where) {
1913 int n = where * (cols+1);
1914
1915 disptop = (rel < 0 ? scrtop :
1916 rel > 0 ? sbtop : disptop) + n;
1917 if (disptop < sbtop)
1918 disptop = sbtop;
1919 if (disptop > scrtop)
1920 disptop = scrtop;
1921 update_sbar();
1922 term_update();
1923}
1924
1925/*
1926 * Spread the selection outwards according to the selection mode.
1927 */
1928static unsigned long *sel_spread_half (unsigned long *p, int dir) {
1929 unsigned long *linestart, *lineend;
1930 int x;
1931 short wvalue;
1932
1933 x = (p - text) % (cols+1);
1934 linestart = p - x;
1935 lineend = linestart + cols;
1936
1937 switch (selmode) {
1938 case SM_CHAR:
1939 /*
1940 * In this mode, every character is a separate unit, except
1941 * for runs of spaces at the end of a non-wrapping line.
1942 */
1943 if (!(linestart[cols] & ATTR_WRAPPED)) {
1944 unsigned long *q = lineend;
1945 while (q > linestart && (q[-1] & CHAR_MASK) == 0x20)
1946 q--;
1947 if (q == lineend)
1948 q--;
1949 if (p >= q)
1950 p = (dir == -1 ? q : lineend - 1);
1951 }
1952 break;
1953 case SM_WORD:
1954 /*
1955 * In this mode, the units are maximal runs of characters
1956 * whose `wordness' has the same value.
1957 */
1958 wvalue = wordness[*p & CHAR_MASK];
1959 if (dir == +1) {
1960 while (p < lineend && wordness[p[1] & CHAR_MASK] == wvalue)
1961 p++;
1962 } else {
1963 while (p > linestart && wordness[p[-1] & CHAR_MASK] == wvalue)
1964 p--;
1965 }
1966 break;
1967 case SM_LINE:
1968 /*
1969 * In this mode, every line is a unit.
1970 */
1971 p = (dir == -1 ? linestart : lineend - 1);
1972 break;
1973 }
1974 return p;
1975}
1976
1977static void sel_spread (void) {
1978 selstart = sel_spread_half (selstart, -1);
1979 selend = sel_spread_half (selend - 1, +1) + 1;
1980}
1981
1982void term_mouse (Mouse_Button b, Mouse_Action a, int x, int y) {
37508af4 1983 unsigned long *selpoint;
1984
1985 if (y<0) y = 0;
1986 if (y>=rows) y = rows-1;
094ed2a6 1987 if (x<0) {
1988 if (y > 0) {
1989 x = cols-1;
1990 y--;
1991 } else
1992 x = 0;
1993 }
37508af4 1994 if (x>=cols) x = cols-1;
1995
c9def1b8 1996 selpoint = disptop + y * (cols+1);
1997 if ((selpoint[cols]&LATTR_MODE) != LATTR_NORM)
1998 selpoint += x/2;
1999 else
2000 selpoint += x;
374330e2 2001
2002 if (b == MB_SELECT && a == MA_CLICK) {
2003 deselect();
2004 selstate = ABOUT_TO;
2005 selanchor = selpoint;
2006 selmode = SM_CHAR;
2007 } else if (b == MB_SELECT && (a == MA_2CLK || a == MA_3CLK)) {
2008 deselect();
2009 selmode = (a == MA_2CLK ? SM_WORD : SM_LINE);
2010 selstate = DRAGGING;
2011 selstart = selanchor = selpoint;
2012 selend = selstart + 1;
2013 sel_spread();
2014 } else if ((b == MB_SELECT && a == MA_DRAG) ||
2015 (b == MB_EXTEND && a != MA_RELEASE)) {
2016 if (selstate == ABOUT_TO && selanchor == selpoint)
2017 return;
2018 if (b == MB_EXTEND && a != MA_DRAG && selstate == SELECTED) {
2019 if (selpoint-selstart < (selend-selstart)/2)
2020 selanchor = selend - 1;
2021 else
2022 selanchor = selstart;
2023 selstate = DRAGGING;
2024 }
2025 if (selstate != ABOUT_TO && selstate != DRAGGING)
2026 selanchor = selpoint;
2027 selstate = DRAGGING;
2028 if (selpoint < selanchor) {
2029 selstart = selpoint;
2030 selend = selanchor + 1;
2031 } else {
2032 selstart = selanchor;
2033 selend = selpoint + 1;
2034 }
2035 sel_spread();
2036 } else if ((b == MB_SELECT || b == MB_EXTEND) && a == MA_RELEASE) {
2037 if (selstate == DRAGGING) {
2038 /*
2039 * We've completed a selection. We now transfer the
2040 * data to the clipboard.
2041 */
2042 unsigned char *p = selspace;
2043 unsigned long *q = selstart;
2044
2045 while (q < selend) {
2046 int nl = FALSE;
2047 unsigned long *lineend = q - (q-text) % (cols+1) + cols;
2048 unsigned long *nlpos = lineend;
2049
2050 if (!(*nlpos & ATTR_WRAPPED)) {
2051 while ((nlpos[-1] & CHAR_MASK) == 0x20 && nlpos > q)
2052 nlpos--;
2053 if (nlpos < selend)
2054 nl = TRUE;
2055 }
2056 while (q < nlpos && q < selend)
ec55b220 2057 {
2058 /* VT Specials -> ISO8859-1 */
2059 static const char poorman2[] =
2060 "* # HTFFCRLF\xB0 \xB1 NLVT+ + + + + - - - - - + + + + | <=>=PI!=\xA3 \xB7 ";
2061
2062 int ch = (*q & CHAR_MASK);
2063
2064 if ((*q & ATTR_LINEDRW) && ch >= 0x60 && ch < 0x7F )
2065 {
2066 int x;
2067 *p++ = poorman2[2*(ch-0x60)];
2068 if ( (x = poorman2[2*(ch-0x60)+1]) != ' ')
2069 *p++ = x;
2070 }
2071#if 0
2072 else if ((*q & ATTR_GBCHR) && ch == '#')
2073 *p++ = (unsigned char) 0xA3;
2074#endif
2075 else
2076 *p++ = (unsigned char) ch;
2077 q++;
2078 }
374330e2 2079 if (nl) {
2080 int i;
2081 for (i=0; i<sizeof(sel_nl); i++)
2082 *p++ = sel_nl[i];
2083 }
2084 q = lineend + 1; /* start of next line */
2085 }
f0df44da 2086 write_clip (selspace, p - selspace, FALSE);
374330e2 2087 selstate = SELECTED;
2088 } else
2089 selstate = NO_SELECTION;
2090 } else if (b == MB_PASTE && (a==MA_CLICK || a==MA_2CLK || a==MA_3CLK)) {
2091 char *data;
2092 int len;
2093
2094 get_clip((void **) &data, &len);
2095 if (data) {
2096 char *p, *q;
c9def1b8 2097
2098 if (paste_buffer) sfree(paste_buffer);
2099 paste_pos = paste_hold = paste_len = 0;
2100 paste_buffer = smalloc(len);
2101
374330e2 2102 p = q = data;
2103 while (p < data+len) {
2104 while (p < data+len &&
2105 !(p <= data+len-sizeof(sel_nl) &&
2106 !memcmp(p, sel_nl, sizeof(sel_nl))))
2107 p++;
14963b8f 2108
2109 {
2110 int i;
2111 unsigned char c;
2112 for(i=0;i<p-q;i++)
2113 {
2114 c=xlat_kbd2tty(q[i]);
c9def1b8 2115 paste_buffer[paste_len++] = c;
14963b8f 2116 }
2117 }
2118
374330e2 2119 if (p <= data+len-sizeof(sel_nl) &&
2120 !memcmp(p, sel_nl, sizeof(sel_nl))) {
c9def1b8 2121 paste_buffer[paste_len++] = '\r';
374330e2 2122 p += sizeof(sel_nl);
2123 }
2124 q = p;
2125 }
c9def1b8 2126
2127 /* Assume a small paste will be OK in one go. */
2128 if (paste_len<256) {
2129 ldisc->send (paste_buffer, paste_len);
2130 if (paste_buffer) sfree(paste_buffer);
2131 paste_buffer = 0;
2132 paste_pos = paste_hold = paste_len = 0;
2133 }
374330e2 2134 }
2135 get_clip(NULL, NULL);
2136 }
2137
2138 term_update();
2139}
2140
c9def1b8 2141void term_nopaste() {
2142 if(paste_len == 0) return;
2143 sfree(paste_buffer);
2144 paste_buffer = 0;
2145 paste_len = 0;
2146}
2147
2148void term_paste() {
2149static long last_paste = 0;
2150 long now, paste_diff;
2151
2152 if(paste_len == 0) return;
2153
2154 /* Don't wait forever to paste */
2155 if(paste_hold) {
2156 now = GetTickCount();
2157 paste_diff = now-last_paste;
2158 if (paste_diff>=0 && paste_diff<450)
2159 return;
2160 }
2161 paste_hold = 0;
2162
2163 while(paste_pos<paste_len)
2164 {
2165 char c = paste_buffer[paste_pos++];
2166 ldisc->send (&c, 1);
2167
2168 if (c =='\r') {
2169 paste_hold = 1;
2170 return;
2171 }
2172 }
2173 sfree(paste_buffer);
2174 paste_buffer = 0;
2175 paste_len = 0;
2176}
2177
374330e2 2178static void deselect (void) {
2179 selstate = NO_SELECTION;
2180 selstart = selend = scrtop;
2181}
2182
2183void term_deselect (void) {
2184 deselect();
2185 term_update();
2186}
Local modifications for Simon Tatham's `PuTTY' SSH client and terminal emulator