source: neercs/trunk/src/term.c @ 4016

Last change on this file since 4016 was 4016, checked in by Jean-Yves Lamoureux, 11 years ago
  • Implemented "DA -- Device Attributes" ansi sequence (vttest 6/4)
  • Property svn:keywords set to Id
File size: 38.6 KB
Line 
1/*
2 *  neercs        console-based window manager
3 *  Copyright (c) 2006 Sam Hocevar <sam@zoy.org>
4 *                All Rights Reserved
5 *
6 *  $Id: term.c 4016 2009-11-23 11:45:17Z jylam $
7 *
8 *  This program is free software. It comes without any warranty, to
9 *  the extent permitted by applicable law. You can redistribute it
10 *  and/or modify it under the terms of the Do What The Fuck You Want
11 *  To Public License, Version 2, as published by Sam Hocevar. See
12 *  http://sam.zoy.org/wtfpl/COPYING for more details.
13 */
14
15#include "config.h"
16
17#define _XOPEN_SOURCE
18#include <stdlib.h>
19#include <stdio.h>
20#include <string.h>
21#if defined HAVE_PTY_H
22#   include <pty.h>             /* for openpty and forkpty */
23#else
24#   include <util.h>            /* for OS X */
25#endif
26#include <unistd.h>
27#include <fcntl.h>
28
29#include <caca.h>
30#include <caca.h>
31
32#include "neercs.h"
33
34/* DEC ACS with common extensions */
35static uint32_t dec_acs(uint32_t uc)
36{
37    switch (uc)
38    {
39    case '+':
40        return 0x2192;          /* RIGHTWARDS ARROW */
41    case ',':
42        return 0x2190;          /* LEFTWARDS ARROW */
43    case '-':
44        return 0x2191;          /* UPWARDS ARROW */
45    case '.':
46        return 0x2193;          /* DOWNWARDS ARROW */
47    case '0':
48        return 0x25AE;          /* BLACK VERTICAL RECTANGLE */
49    case '_':
50        return 0x25AE;          /* BLACK VERTICAL RECTANGLE */
51    case '`':
52        return 0x25C6;          /* BLACK DIAMOND */
53    case 'a':
54        return 0x2592;          /* MEDIUM SHADE */
55    case 'b':
56        return 0x2409;          /* SYMBOL FOR HORIZONTAL TABULATION */
57    case 'c':
58        return 0x240C;          /* SYMBOL FOR FORM FEED */
59    case 'd':
60        return 0x240D;          /* SYMBOL FOR CARRIAGE RETURN */
61    case 'e':
62        return 0x240A;          /* SYMBOL FOR LINE FEED */
63    case 'f':
64        return 0x00B0;          /* DEGREE SIGN */
65    case 'g':
66        return 0x00B1;          /* PLUS-MINUS SIGN */
67    case 'h':
68        return 0x2424;          /* SYMBOL FOR NEWLINE */
69    case 'i':
70        return 0x240B;          /* SYMBOL FOR VERTICAL TABULATION */
71    case 'j':
72        return 0x2518;          /* BOX DRAWINGS LIGHT UP AND LEFT */
73    case 'k':
74        return 0x2510;          /* BOX DRAWINGS LIGHT DOWN AND LEFT */
75    case 'l':
76        return 0x250C;          /* BOX DRAWINGS LIGHT DOWN AND RIGHT */
77    case 'm':
78        return 0x2514;          /* BOX DRAWINGS LIGHT UP AND RIGHT */
79    case 'n':
80        return 0x253C;          /* BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL */
81    case 'o':
82        return 0x23BA;          /* HORIZONTAL SCAN LINE-1 */
83    case 'p':
84        return 0x23BB;          /* HORIZONTAL SCAN LINE-3 */
85    case 'q':
86        return 0x2500;          /* BOX DRAWINGS LIGHT HORIZONTAL */
87    case 'r':
88        return 0x23BC;          /* HORIZONTAL SCAN LINE-7 */
89    case 's':
90        return 0x23BD;          /* HORIZONTAL SCAN LINE-9 */
91    case 't':
92        return 0x251C;          /* BOX DRAWINGS LIGHT VERTICAL AND RIGHT */
93    case 'u':
94        return 0x2524;          /* BOX DRAWINGS LIGHT VERTICAL AND LEFT */
95    case 'v':
96        return 0x2534;          /* BOX DRAWINGS LIGHT UP AND HORIZONTAL */
97    case 'w':
98        return 0x252C;          /* BOX DRAWINGS LIGHT DOWN AND HORIZONTAL */
99    case 'x':
100        return 0x2502;          /* BOX DRAWINGS LIGHT VERTICAL */
101    case 'y':
102        return 0x2264;          /* LESS-THAN OR EQUAL TO */
103    case 'z':
104        return 0x2265;          /* GREATER-THAN OR EQUAL TO */
105    case '{':
106        return 0x03C0;          /* GREEK SMALL LETTER PI */
107    case '|':
108        return 0x2260;          /* NOT EQUAL TO */
109    case '}':
110        return 0x00A3;          /* POUND SIGN */
111    case '~':
112        return 0x00B7;          /* MIDDLE DOT */
113    default:
114        return uc;
115    }
116};
117
118static void reset_conv_state(struct screen *);
119
120#define LITERAL2CHAR(i0,i1) (((i0) << 8) | (i1))
121
122#define LITERAL3CHAR(i0,i1,i2) LITERAL2CHAR(LITERAL2CHAR(i0, i1), i2)
123
124static void ansi_parse_grcm(struct screen *,
125                            unsigned int, unsigned int const *);
126
127static int handle_single_char(unsigned char c, int *x, int *y,
128                              struct screen_list *screen_list,
129                              struct screen *sc);
130
131static int handle_single_char(unsigned char c, int *x, int *y,
132                              struct screen_list *screen_list,
133                              struct screen *sc)
134{
135    if (c == '\r')
136    {
137        *x = 0;
138    }
139
140    else if (c == '\n')
141    {
142        *x = 0;
143        *y = *y + 1;
144    }
145    else if (c == '\a')
146    {
147        if (!sc->bell)
148            screen_list->in_bell++;
149        sc->bell = 1;
150    }
151
152    else if (c == '\t')
153    {
154        *x = (*x + 7) & ~7;
155    }
156
157    else if (c == '\x08')
158    {
159        if (*x > 0)
160            *x = *x - 1;
161    }
162    else if (c == '\x0b')
163    {
164        /* Vertical tab */
165        /* Not sure about the real meaning of it, just y++ for now */
166        if (*y < caca_get_canvas_height(sc->cv))
167            *y = *y + 1;
168    }
169    else if (c == '\x0e')
170    {
171        /* Shift Out (Ctrl-N) -> Switch to Alternate Character Set: invokes
172           the G1 character set. */
173        sc->conv_state.glr[0] = 1;
174    }
175
176    else if (c == '\x0f')
177    {
178        /* Shift In (Ctrl-O) -> Switch to Standard Character Set: invokes the
179           G0 character set. */
180        sc->conv_state.glr[0] = 0;
181    }
182    else
183    {
184        return 1;
185    }
186    return 0;
187
188}
189
190long int import_term(struct screen_list *screen_list, struct screen *sc,
191                     void const *data, unsigned int size)
192{
193    unsigned char const *buffer = (unsigned char const *)data;
194    unsigned int i, j, k, skip, dummy = 0;
195    unsigned int width, height, top, bottom;
196    uint32_t savedattr;
197    int x = 0, y = 0, save_x = 0, save_y = 0;
198
199
200    debug("ansi : import_term\n");
201
202    width = caca_get_canvas_width(sc->cv);
203    height = caca_get_canvas_height(sc->cv);
204    x = caca_get_cursor_x(sc->cv);
205    y = caca_get_cursor_y(sc->cv);
206    top = 1;
207    bottom = height;
208
209    if (!sc->init)
210    {
211        sc->dfg = CACA_LIGHTGRAY;
212        sc->dbg = CACA_BLACK;
213
214        caca_set_color_ansi(sc->cv, sc->dfg, sc->dbg);
215        sc->clearattr = caca_get_attr(sc->cv, -1, -1);
216
217        ansi_parse_grcm(sc, 1, &dummy);
218
219        reset_conv_state(sc);
220
221        sc->init = 1;
222    }
223
224    for (i = 0; i < size; i += skip)
225    {
226        uint32_t ch = 0;
227        int wch = 0;
228
229        skip = 1;
230
231#define ASCCHAR(c) (c>31&&c<127)?c:'?'
232        if (buffer[i] == '\033')
233        {
234            debug("ansi ESC : '%c%c%c%c%c'\n",
235                  ASCCHAR(buffer[i + 1]),
236                  ASCCHAR(buffer[i + 2]),
237                  ASCCHAR(buffer[i + 3]),
238                  ASCCHAR(buffer[i + 4]), ASCCHAR(buffer[i + 5]));
239        }
240
241        /* Control codes (ASCII < \x20) */
242        if (!handle_single_char(buffer[i], &x, &y, screen_list, sc))
243        {
244        }
245
246        /* If there are not enough characters to parse the escape sequence,
247           wait until the next try. We require 3. */
248
249        else if (buffer[i] == '\033' && i + 2 >= size)
250            break;
251
252        /* Single Shift Select of G2 Character Set (SS2: 0x8e): affects next
253           character only */
254        else if (buffer[i] == '\033' && buffer[i + 1] == 'N')
255        {
256            sc->conv_state.ss = 2;
257            skip += 1;
258        }
259        /* Reverse Index (RI) go up one line, reverse scroll if necessary */
260        else if (buffer[i] == '\033' && buffer[i + 1] == 'M')
261        {
262            /* FIXME : not sure about the meaning of 'go up one line' and 'if
263               necessary' words. Implemented as a scroller only. */
264            for (j = bottom - 1; j > top; j--)
265            {
266                for (k = 0; k < width; k++)
267                {
268                    caca_put_char(sc->cv, k, j,
269                                  caca_get_char(sc->cv, k, j - 1));
270                    caca_put_attr(sc->cv, k, j,
271                                  caca_get_attr(sc->cv, k, j - 1));
272                }
273            }
274            caca_draw_line(sc->cv, 0, top - 1, width - 1, top - 1, ' ');
275            skip += 1;
276        }
277
278        /* Single Shift Select of G3 Character Set (SS2: 0x8f): affects next
279           character only */
280        else if (buffer[i] == '\033' && buffer[i + 1] == 'O')
281        {
282            sc->conv_state.ss = 3;
283            skip += 1;
284        }
285
286        /* LOCKING-SHIFT TWO (LS2), ISO 2022, ECMA-48 (1986), ISO 6429 : 1988 */
287        else if (buffer[i] == '\033' && buffer[i + 1] == 'n')
288        {
289            sc->conv_state.glr[0] = 2;
290            skip += 1;
291        }
292
293        /* LOCKING-SHIFT THREE (LS3) ISO 2022, ECMA-48 (1986), ISO 6429 : 1988
294         */
295        else if (buffer[i] == '\033' && buffer[i + 1] == 'o')
296        {
297            sc->conv_state.glr[0] = 3;
298            skip += 1;
299        }
300
301        /* RESET TO INITIAL STATE (RIS), ECMA-48 (1986), ISO 6429 : 1988 */
302        else if (buffer[i] == '\033' && buffer[i + 1] == 'c')
303        {
304            sc->dfg = CACA_DEFAULT;
305            sc->dbg = CACA_DEFAULT;
306
307            caca_set_color_ansi(sc->cv, sc->dfg, sc->dbg);
308            sc->clearattr = caca_get_attr(sc->cv, -1, -1);
309            ansi_parse_grcm(sc, 1, &dummy);
310
311            reset_conv_state(sc);
312            skip += 1;
313        }
314
315        /* Coding Method Delimiter (CMD), ECMA-48 (1991), ISO/IEC 6429:1992
316           (ISO IR 189) */
317        else if (buffer[i] == '\033' && buffer[i + 1] == 'd')
318        {
319            reset_conv_state(sc);
320            skip += 1;
321        }
322
323        /* GZDM4, G0-Designators, multi, 94^n chars [grandfathered short form
324           from ISO 2022:1986] */
325        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
326                 && (buffer[i + 2] >= '@') && (buffer[i + 2] <= 'C'))
327        {
328            sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 2]);
329            skip += 2;
330        }
331
332        /* GnDMx Gn-Designators, 9x^n chars; need one more char to distinguish
333           these */
334        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
335                 && (i + 3 >= size))
336            break;
337
338        /* GZD4 G0-Designator, 94 chars */
339        else if (buffer[i] == '\033' && buffer[i + 1] == '(')
340        {
341            sc->conv_state.gn[0] = buffer[i + 2];
342            skip += 2;
343        }
344
345        /* G1D4 G1-Designator, 94 chars */
346        else if (buffer[i] == '\033' && buffer[i + 1] == ')')
347        {
348            sc->conv_state.gn[1] = buffer[i + 2];
349            skip += 2;
350        }
351
352        /* G2D4 G2-Designator, 94 chars */
353        else if (buffer[i] == '\033' && buffer[i + 1] == '*')
354        {
355            sc->conv_state.gn[2] = buffer[i + 2];
356            skip += 2;
357        }
358
359        /* G3D4 G3-Designator, 94 chars */
360        else if (buffer[i] == '\033' && buffer[i + 1] == '+')
361        {
362            sc->conv_state.gn[3] = buffer[i + 2];
363            skip += 2;
364        }
365
366        /* G2D6 G2-Designator, 96 chars */
367        else if (buffer[i] == '\033' && buffer[i + 1] == '.')
368        {
369            sc->conv_state.gn[2] = LITERAL2CHAR('.', buffer[i + 2]);
370            skip += 2;
371        }
372
373        /* G3D6 G3-Designator, 96 chars */
374        else if (buffer[i] == '\033' && buffer[i + 1] == '/')
375        {
376            sc->conv_state.gn[3] = LITERAL2CHAR('.', buffer[i + 2]);
377            skip += 2;
378        }
379
380        /* GZDM4 G0-Designator, 94^n chars */
381        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
382                 && buffer[i + 2] == '(')
383        {
384            sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 3]);
385            skip += 3;
386        }
387
388        /* G1DM4 G1-Designator, 94^n chars */
389        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
390                 && buffer[i + 2] == ')')
391        {
392            sc->conv_state.gn[1] = LITERAL2CHAR('$', buffer[i + 3]);
393            skip += 3;
394        }
395
396        /* G2DM4 G2-Designator, 94^n chars */
397        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
398                 && buffer[i + 2] == '*')
399        {
400            sc->conv_state.gn[2] = LITERAL2CHAR('$', buffer[i + 3]);
401            skip += 3;
402        }
403
404        /* G3DM4 G3-Designator, 94^n chars */
405        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
406                 && buffer[i + 2] == '+')
407        {
408            sc->conv_state.gn[3] = LITERAL2CHAR('$', buffer[i + 3]);
409            skip += 3;
410        }
411
412        /* G2DM6 G2-Designator, 96^n chars */
413        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
414                 && buffer[i + 2] == '.')
415        {
416            sc->conv_state.gn[2] = LITERAL3CHAR('$', '.', buffer[i + 3]);
417            skip += 3;
418        }
419
420        /* G3DM6 G3-Designator, 96^n chars */
421        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
422                 && buffer[i + 2] == '/')
423        {
424            sc->conv_state.gn[3] = LITERAL3CHAR('$', '.', buffer[i + 3]);
425            skip += 3;
426        }
427        else if (buffer[i] == '\033' && buffer[i + 1] == '#')
428        {
429            debug("ansi private '#' sequence\n");
430
431            switch (buffer[i + 2])
432            {
433            case '8':          /* DECALN Fills the entire screen area with
434                                   uppercase Es for screen focus and
435                                   alignment. */
436                for (j = 0; j < height; j++)
437                {
438                    for (k = 0; k < width; k++)
439                    {
440                        caca_put_char(sc->cv, k, j, 'E');
441                    }
442                }
443                skip += 2;
444                break;
445
446            default:
447                debug("Unknow private sequence 'ESC#%c'\n", buffer[i + 2]);
448                continue;
449            }
450
451        }
452        /* Interpret escape commands, as per Standard ECMA-48 "Control
453           Functions for Coded Character Sets", 5.4. Control sequences. */
454        else if (buffer[i] == '\033' && buffer[i + 1] == '[')
455        {
456            unsigned int argc = 0, argv[101];
457            unsigned int param, inter, junk, final;
458
459
460            /* Compute offsets to parameter bytes, intermediate bytes and to
461               the final byte. Only the final byte is mandatory, there can be
462               zero of the others. 0 param=2 inter final final+1
463               +-----+------------------+---------------------+-----------------+
464               | CSI | parameter bytes | intermediate bytes | final byte | | |
465               0x30 - 0x3f | 0x20 - 0x2f | 0x40 - 0x7e | | ^[[ | 0123456789:;<=>?
466               | SPC !"#$%&'()*+,-./ | azAZ@[\]^_`{|}~ |
467               +-----+------------------+---------------------+-----------------+ */
468            param = 2;
469
470            /* vttest use to interleave control characters (\014 CR or \010
471               BS) into CSI sequences, either directly after ESC[ or after
472               param. Can't find anything related to this in any documentation
473               nor XTerm sources, thought. */
474
475            for (junk = param; i + junk < size; junk++)
476                if (buffer[i + junk] < 0x20)
477                {
478                    handle_single_char(buffer[i + junk], &x, &y, screen_list,
479                                       sc);
480                }
481                else
482                {
483                    break;
484                }
485
486            /* Intermediate offset */
487            for (inter = junk; i + inter < size; inter++)
488                if (buffer[i + inter] < 0x30 || buffer[i + inter] > 0x3f)
489                {
490                    break;
491                }
492            /* Interleaved character */
493            for (junk = inter; i + junk < size; junk++)
494                if (buffer[i + junk] < 0x20)
495                {
496                    handle_single_char(buffer[i + junk], &x, &y, screen_list,
497                                       sc);
498                }
499                else
500                {
501                    break;
502                }
503
504            /* Final Byte offset */
505            for (final = junk; i + final < size; final++)
506                if (buffer[i + final] < 0x20 || buffer[i + final] > 0x2f)
507                {
508                    break;
509                }
510            if (i + final >= size
511                || buffer[i + final] < 0x40 || buffer[i + final] > 0x7e)
512            {
513                debug("ansi Invalid Final Byte (%d %c)\n", buffer[i + final],
514                      buffer[i + final]);
515                break;          /* Invalid Final Byte */
516            }
517
518            skip += final;
519
520            /* Sanity checks */
521            if (param < inter && buffer[i + param] >= 0x3c)
522            {
523                /* Private sequence, only parse what we know */
524                debug("ansi import: private sequence \"^[[%.*s\"",
525                      final - param + 1, buffer + i + param);
526                continue;       /* Private sequence, skip it entirely */
527            }
528
529            if (final - param > 100)
530                continue;       /* Suspiciously long sequence, skip it */
531
532            /* Parse parameter bytes as per ECMA-48 5.4.2: Parameter string
533               format */
534            if (param < inter)
535            {
536                argv[0] = 0;
537                for (j = param; j < inter; j++)
538                {
539                    if (buffer[i + j] == ';')
540                        argv[++argc] = 0;
541                    else if (buffer[i + j] >= '0' && buffer[i + j] <= '9')
542                        argv[argc] = 10 * argv[argc] + (buffer[i + j] - '0');
543                }
544                argc++;
545            }
546
547            /* Interpret final byte. The code representations are given in
548               ECMA-48 5.4: Control sequences, and the code definitions are
549               given in ECMA-48 8.3: Definition of control functions. */
550            debug("ansi import: command '%c'", buffer[i + final]);
551            switch (buffer[i + final])
552            {
553            case 'A':          /* CUU (0x41) - Cursor Up */
554                y -= argc ? argv[0] : 1;
555                if (y < 0)
556                    y = 0;
557                break;
558            case 'B':          /* CUD (0x42) - Cursor Down */
559                y += argc ? argv[0] : 1;
560                break;
561            case 'C':          /* CUF (0x43) - Cursor Right */
562                x += argc ? argv[0] : 1;
563                break;
564            case 'D':          /* CUB (0x44) - Cursor Left */
565                x -= argc ? argv[0] : 1;
566                if (x < 0)
567                    x = 0;
568                break;
569            case 'G':          /* CHA (0x47) - Cursor Character Absolute */
570                x = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
571                break;
572            case 'H':          /* CUP (0x48) - Cursor Position */
573                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
574                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
575                debug("ansi CUP : Cursor at %dx%d\n", x, y);
576                break;
577            case 'J':          /* ED (0x4a) - Erase In Page */
578                savedattr = caca_get_attr(sc->cv, -1, -1);
579                caca_set_attr(sc->cv, sc->clearattr);
580                if (!argc || argv[0] == 0)
581                {
582                    caca_draw_line(sc->cv, x, y, width, y, ' ');
583                    caca_fill_box(sc->cv, 0, y + 1, width, height - 1, ' ');
584                }
585                else if (argv[0] == 1)
586                {
587                    caca_fill_box(sc->cv, 0, 0, width, y, ' ');
588                    caca_draw_line(sc->cv, 0, y, x, y, ' ');
589                }
590                else if (argv[0] == 2)
591                {
592                    // x = y = 0;
593                    caca_fill_box(sc->cv, 0, 0, width, height, ' ');
594                }
595                caca_set_attr(sc->cv, savedattr);
596                break;
597            case 'K':          /* EL (0x4b) - Erase In Line */
598                debug("ansi EL : cursor at %dx%d\n", x, y);
599                if (!argc || argv[0] == 0)
600                {
601                    caca_draw_line(sc->cv, x, y, width, y, ' ');
602                }
603                else if (argv[0] == 1)
604                {
605                    caca_draw_line(sc->cv, 0, y, x, y, ' ');
606                }
607                else if (argv[0] == 2)
608                {
609                    caca_draw_line(sc->cv, 0, y, width, y, ' ');
610                }
611                break;
612            case 'L':          /* IL - Insert line */
613                {
614                    unsigned int nb_lines = argc ? argv[0] : 1;
615                    for (j = bottom - 1; j >= (unsigned int)y + nb_lines; j--)
616                    {
617                        for (k = 0; k < width; k++)
618                        {
619                            caca_put_char(sc->cv, k, j,
620                                          caca_get_char(sc->cv, k,
621                                                        j - nb_lines));
622                            caca_put_attr(sc->cv, k, j,
623                                          caca_get_attr(sc->cv, k,
624                                                        j - nb_lines));
625                        }
626                        caca_draw_line(sc->cv, 0, j - nb_lines, width,
627                                       j - nb_lines, ' ');
628                    }
629                }
630                break;
631            case 'P':          /* DCH (0x50) - Delete Character */
632                if (!argc || argv[0] == 0)
633                    argv[0] = 1;        /* echo -ne 'foobar\r\e[0P\n' */
634                /* Jylam : Start from x, not 0 */
635                for (j = x; (unsigned int)(j + argv[0]) < width; j++)
636                {
637                    caca_put_char(sc->cv, j, y,
638                                  caca_get_char(sc->cv, j + argv[0], y));
639                    caca_put_attr(sc->cv, j, y,
640                                  caca_get_attr(sc->cv, j + argv[0], y));
641                }
642                break;          /* Jylam: this one was missing I guess */
643#if 0
644                savedattr = caca_get_attr(sc->cv, -1, -1);
645                caca_set_attr(sc->cv, sc->clearattr);
646                for (; (unsigned int)j < width; j++)
647                    caca_put_char(sc->cv, j, y, ' ');
648                caca_set_attr(sc->cv, savedattr);
649#endif
650            case 'X':          /* ECH (0x58) - Erase Character */
651                if (argc && argv[0])
652                {
653                    savedattr = caca_get_attr(sc->cv, -1, -1);
654                    caca_set_attr(sc->cv, sc->clearattr);
655                    caca_draw_line(sc->cv, x, y, x + argv[0] - 1, y, ' ');
656                    caca_set_attr(sc->cv, savedattr);
657                }
658            case 'c':          /* DA -- Device Attributes */
659                    /*
660                     0 Base VT100, no options
661                     1 Processor options (STP)
662                     2 Advanced video option (AVO)
663                     3 AVO and STP
664                     4 Graphics processor option (GPO)
665                     5 GPO and STP
666                     6 GPO and AVO
667                     7 GPO, STP, and AVO
668                     */
669                    /* Warning, argument is Pn */
670                debug("ansi Got command c, argc %d, argv[0] (%d)\n", argc, argv[0], argv[0]);
671                if (!argc || argv[0] == 0)
672                {
673                    send_ansi_sequence(screen_list, "\x1b[?1;0c");
674                }
675                else
676                {
677                    switch (argv[0])
678                    {
679                    case 1:
680                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x1c");
681                        break;
682                    case 2:
683                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x2c");
684                        break;
685                    case 3:
686                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x3c");
687                        break;
688                    case 4:
689                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x4c");
690                        break;
691                    case 5:
692                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x5c");
693                        break;
694                    case 6:
695                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x6c");
696                        break;
697                    case 7:
698                        send_ansi_sequence(screen_list, "\x1b[?\x1;\x7c");
699                        break;
700                        default:
701                            debug("Unsupported DA option '%d'\n", argv[0]);
702                            break;
703                    }
704                }
705                break;
706            case 'd':          /* VPA (0x64) - Line Position Absolute */
707                y = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
708                break;
709            case 'f':          /* HVP (0x66) - Character And Line Position */
710                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
711                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
712                break;
713            case 'r':          /* FIXME */
714                if (argc == 2)  /* DCSTBM - Set top and bottom margin */
715                {
716                    debug("DCSTBM %d %d", argv[0], argv[1]);
717                    top = argv[0];
718                    bottom = argv[1];
719                }
720                else
721                    debug("ansi import: command r with %d params", argc);
722                break;
723            case 'h':          /* SM (0x68) - FIXME */
724                debug("ansi import: set mode %i", argc ? (int)argv[0] : -1);
725                break;
726            case 'l':          /* RM (0x6c) - FIXME */
727                debug("ansi import: reset mode %i", argc ? (int)argv[0] : -1);
728                break;
729            case 'm':          /* SGR (0x6d) - Select Graphic Rendition */
730                if (argc)
731                    ansi_parse_grcm(sc, argc, argv);
732                else
733                    ansi_parse_grcm(sc, 1, &dummy);
734                break;
735            case 's':          /* Private (save cursor position) */
736                save_x = x;
737                save_y = y;
738                break;
739            case 'u':          /* Private (reload cursor position) */
740                x = save_x;
741                y = save_y;
742                break;
743            default:
744                debug("ansi import: unknown command \"^[%.*s\"",
745                      final - param + 1, buffer + i + param);
746                break;
747            }
748        }
749
750        /* Parse OSC stuff. */
751        else if (buffer[i] == '\033' && buffer[i + 1] == ']')
752        {
753            char *string;
754            unsigned int command = 0;
755            unsigned int mode = 2, semicolon, final;
756
757            for (semicolon = mode; i + semicolon < size; semicolon++)
758            {
759                if (buffer[i + semicolon] < '0' || buffer[i + semicolon] > '9')
760                    break;
761                command = 10 * command + (buffer[i + semicolon] - '0');
762            }
763
764            if (i + semicolon >= size || buffer[i + semicolon] != ';')
765                break;          /* Invalid Mode */
766
767            for (final = semicolon + 1; i + final < size; final++)
768                if (buffer[i + final] < 0x20)
769                    break;
770
771            if (i + final >= size || buffer[i + final] != '\a')
772                break;          /* Not enough data or no bell found */
773            /* FIXME: XTerm also reacts to <ESC><backslash> and <ST> */
774            /* FIXME: differenciate between not enough data (try again) and
775               invalid data (print shit) */
776
777            skip += final;
778
779            string = malloc(final - (semicolon + 1) + 1);
780            memcpy(string, buffer + i + (semicolon + 1),
781                   final - (semicolon + 1));
782            string[final - (semicolon + 1)] = '\0';
783            debug("ansi import: got OSC command %i string '%s'", command,
784                  string);
785            if (command == 0 || command == 2)
786            {
787                if (sc->title)
788                    free(sc->title);
789                sc->title = string;
790            }
791            else
792                free(string);
793        }
794
795        /* Get the character we’re going to paste */
796        else
797        {
798            size_t bytes;
799
800            if (i + 6 < size)
801            {
802                ch = caca_utf8_to_utf32((char const *)(buffer + i), &bytes);
803            }
804            else
805            {
806                /* Add a trailing zero to what we're going to read */
807                char tmp[7];
808                memcpy(tmp, buffer + i, size - i);
809                tmp[size - i] = '\0';
810                ch = caca_utf8_to_utf32(tmp, &bytes);
811            }
812
813            if (!bytes)
814            {
815                /* If the Unicode is invalid, assume it was latin1. */
816                ch = buffer[i];
817                bytes = 1;
818            }
819
820            /* very incomplete ISO-2022 implementation tailored to DEC ACS */
821            if (sc->conv_state.cs == '@')
822            {
823                if (((ch > ' ') && (ch <= '~'))
824                    &&
825                    (sc->conv_state.
826                     gn[sc->conv_state.ss ? sc->conv_state.
827                        gn[sc->conv_state.ss] : sc->conv_state.glr[0]] == '0'))
828                {
829                    ch = dec_acs(ch);
830                }
831                else if (((ch > 0x80) && (ch < 0xff))
832                         && (sc->conv_state.gn[sc->conv_state.glr[1]] == '0'))
833                {
834                    ch = dec_acs(ch + ' ' - 0x80);
835                }
836            }
837            sc->conv_state.ss = 0;      /* no single-shift (GL) */
838
839            wch = caca_utf32_is_fullwidth(ch) ? 2 : 1;
840
841            skip += bytes - 1;
842        }
843
844        /* Wrap long lines or grow horizontally */
845        while ((unsigned int)x + wch > width)
846        {
847            x -= width;
848            y++;
849        }
850
851        /* Scroll or grow vertically */
852        if ((unsigned int)y >= bottom)
853        {
854            int lines = (y - bottom) + 1;
855
856            savedattr = caca_get_attr(sc->cv, -1, -1);
857
858            for (j = top - 1; j + lines < bottom; j++)
859            {
860                for (k = 0; k < width; k++)
861                {
862                    caca_put_char(sc->cv, k, j,
863                                  caca_get_char(sc->cv, k, j + lines));
864                    caca_put_attr(sc->cv, k, j,
865                                  caca_get_attr(sc->cv, k, j + lines));
866                }
867            }
868            caca_set_attr(sc->cv, sc->clearattr);
869            caca_fill_box(sc->cv, 0, bottom - lines, width, bottom - 1, ' ');
870            y -= lines;
871            caca_set_attr(sc->cv, savedattr);
872        }
873
874        /* Now paste our character, if any */
875        if (wch)
876        {
877            caca_put_char(sc->cv, x, y, ch);
878            x += wch;
879        }
880    }
881
882    caca_gotoxy(sc->cv, x, y);
883
884    if (i)
885        sc->changed = 1;
886    return i;
887}
888
889/* Coding Method Delimiter (CMD), ECMA-48 (1991), ISO/IEC 6429:1992 (ISO IR
890   189) */
891
892static void reset_conv_state(struct screen *sc)
893{
894    sc->conv_state.cs = '@';    /* ISO-2022 coding system */
895    sc->conv_state.cn[0] = '@'; /* ISO 646 C0 control charset */
896    sc->conv_state.cn[1] = 'C'; /* ISO 6429-1983 C1 control charset */
897    sc->conv_state.glr[0] = 0;  /* G0 in GL */
898    sc->conv_state.glr[1] = 2;  /* G2 in GR */
899    sc->conv_state.gn[0] = 'B'; /* US-ASCII G0 charset */
900    sc->conv_state.gn[1] = '0'; /* DEC ACS G1 charset */
901    sc->conv_state.gn[2] = LITERAL2CHAR('.', 'A');      /* ISO 8859-1 G2
902                                                           charset */
903    sc->conv_state.gn[3] = LITERAL2CHAR('.', 'A');      /* ISO 8859-1 G3
904                                                           charset */
905    sc->conv_state.ss = 0;      /* no single-shift (GL) */
906    sc->conv_state.ctrl8bit = 1;
907}
908
909/* XXX : ANSI loader helper */
910
911static void ansi_parse_grcm(struct screen *sc,
912                            unsigned int argc, unsigned int const *argv)
913{
914    static uint8_t const ansi2caca[] = {
915        CACA_BLACK, CACA_RED, CACA_GREEN, CACA_BROWN,
916        CACA_BLUE, CACA_MAGENTA, CACA_CYAN, CACA_LIGHTGRAY
917    };
918
919    unsigned int j;
920    uint8_t efg, ebg;           /* Effective (libcaca) fg/bg */
921
922    for (j = 0; j < argc; j++)
923    {
924        /* Defined in ECMA-48 8.3.117: SGR - SELECT GRAPHIC RENDITION */
925        if (argv[j] >= 30 && argv[j] <= 37)
926            sc->fg = ansi2caca[argv[j] - 30];
927        else if (argv[j] >= 40 && argv[j] <= 47)
928            sc->bg = ansi2caca[argv[j] - 40];
929        else if (argv[j] >= 90 && argv[j] <= 97)
930            sc->fg = ansi2caca[argv[j] - 90] + 8;
931        else if (argv[j] >= 100 && argv[j] <= 107)
932            sc->bg = ansi2caca[argv[j] - 100] + 8;
933        else
934            switch (argv[j])
935            {
936            case 0:            /* default rendition */
937                sc->fg = sc->dfg;
938                sc->bg = sc->dbg;
939                sc->bold = sc->blink = sc->italics = sc->negative
940                    = sc->concealed = sc->underline = sc->faint = sc->strike
941                    = sc->proportional = 0;
942                break;
943            case 1:            /* bold or increased intensity */
944                sc->bold = 1;
945                break;
946            case 2:            /* faint, decreased intensity or second colour
947                                 */
948                sc->faint = 1;
949                break;
950            case 3:            /* italicized */
951                sc->italics = 1;
952                break;
953            case 4:            /* singly underlined */
954                sc->underline = 1;
955                break;
956            case 5:            /* slowly blinking (less then 150 per minute) */
957            case 6:            /* rapidly blinking (150 per minute or more) */
958                sc->blink = 1;
959                break;
960            case 7:            /* negative image */
961                sc->negative = 1;
962                break;
963            case 8:            /* concealed characters */
964                sc->concealed = 1;
965                break;
966            case 9:            /* crossed-out (characters still legible but
967                                   marked as to be deleted */
968                sc->strike = 1;
969                break;
970            case 21:           /* doubly underlined */
971                sc->underline = 1;
972                break;
973            case 22:           /* normal colour or normal intensity (neither
974                                   bold nor faint) */
975                sc->bold = sc->faint = 0;
976                break;
977            case 23:           /* not italicized, not fraktur */
978                sc->italics = 0;
979                break;
980            case 24:           /* not underlined (neither singly nor doubly) */
981                sc->underline = 0;
982                break;
983            case 25:           /* steady (not blinking) */
984                sc->blink = 0;
985                break;
986            case 26:           /* (reserved for proportional spacing as
987                                   specified in CCITT Recommendation T.61) */
988                sc->proportional = 1;
989                break;
990            case 27:           /* positive image */
991                sc->negative = 0;
992                break;
993            case 28:           /* revealed characters */
994                sc->concealed = 0;
995                break;
996            case 29:           /* not crossed out */
997                sc->strike = 0;
998                break;
999            case 38:           /* (reserved for future standardization,
1000                                   intended for setting character foreground
1001                                   colour as specified in ISO 8613-6 [CCITT
1002                                   Recommendation T.416]) */
1003                break;
1004            case 39:           /* default display colour
1005                                   (implementation-defined) */
1006                sc->fg = sc->dfg;
1007                break;
1008            case 48:           /* (reserved for future standardization,
1009                                   intended for setting character background
1010                                   colour as specified in ISO 8613-6 [CCITT
1011                                   Recommendation T.416]) */
1012                break;
1013            case 49:           /* default background colour
1014                                   (implementation-defined) */
1015                sc->bg = sc->dbg;
1016                break;
1017            case 50:           /* (reserved for cancelling the effect of the
1018                                   rendering aspect established by parameter
1019                                   value 26) */
1020                sc->proportional = 0;
1021                break;
1022            default:
1023                debug("ansi import: unknown sgr %i", argv[j]);
1024                break;
1025            }
1026    }
1027
1028    if (sc->concealed)
1029    {
1030        efg = ebg = CACA_TRANSPARENT;
1031    }
1032    else
1033    {
1034        efg = sc->negative ? sc->bg : sc->fg;
1035        ebg = sc->negative ? sc->fg : sc->bg;
1036
1037        if (sc->bold)
1038        {
1039            if (efg < 8)
1040                efg += 8;
1041            else if (efg == CACA_DEFAULT)
1042                efg = CACA_WHITE;
1043        }
1044    }
1045
1046    caca_set_color_ansi(sc->cv, efg, ebg);
1047}
1048
1049int create_pty(char *cmd, unsigned int w, unsigned int h, int *cpid)
1050{
1051    char **argv;
1052    int fd;
1053    pid_t pid;
1054
1055    pid = forkpty(&fd, NULL, NULL, NULL);
1056    if (pid < 0)
1057    {
1058        fprintf(stderr, "forkpty() error\n");
1059        return -1;
1060    }
1061    else if (pid == 0)
1062    {
1063        set_tty_size(0, w, h);
1064        putenv("CACA_DRIVER=slang");
1065        putenv("TERM=xterm");
1066        argv = malloc(2 * sizeof(char *));
1067        if (!argv)
1068        {
1069            fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__,
1070                    __LINE__);
1071            return -1;
1072        }
1073        argv[0] = cmd;
1074        argv[1] = NULL;
1075        execvp(cmd, argv);
1076        fprintf(stderr, "execvp() error\n");
1077        return -1;
1078    }
1079
1080    *cpid = pid;
1081
1082    fcntl(fd, F_SETFL, O_NDELAY);
1083    return fd;
1084}
1085
1086int create_pty_grab(long pid, unsigned int w, unsigned int h, int *newpid)
1087{
1088    int fdm, fds;
1089
1090    int ret = openpty(&fdm, &fds, NULL, NULL, NULL);
1091
1092    if (ret < 0)
1093    {
1094        fprintf(stderr, "open() error\n");
1095        return -1;
1096    }
1097
1098    set_tty_size(0, w, h);
1099    grab_process(pid, ptsname(fdm), fds, newpid);
1100
1101    fcntl(fdm, F_SETFL, O_NDELAY);
1102    return fdm;
1103}
1104
1105int set_tty_size(int fd, unsigned int w, unsigned int h)
1106{
1107    struct winsize ws;
1108
1109    memset(&ws, 0, sizeof(ws));
1110    ws.ws_row = h;
1111    ws.ws_col = w;
1112    ioctl(fd, TIOCSWINSZ, (char *)&ws);
1113
1114    return 0;
1115}
1116
1117
1118
1119int update_terms(struct screen_list *screen_list)
1120{
1121    int i, refresh = 0;
1122    for (i = 0; i < screen_list->count; i++)
1123    {
1124        if (screen_list->screen[i]->total && !screen_list->dont_update_coords)
1125        {
1126            unsigned long int bytes;
1127
1128            bytes = import_term(screen_list,
1129                                screen_list->screen[i],
1130                                screen_list->screen[i]->buf,
1131                                screen_list->screen[i]->total);
1132
1133            if (bytes > 0)
1134            {
1135                screen_list->screen[i]->total -= bytes;
1136                memmove(screen_list->screen[i]->buf,
1137                        screen_list->screen[i]->buf + bytes,
1138                        screen_list->screen[i]->total);
1139                if (screen_list->screen[i]->visible || screen_list->mini)
1140                    refresh = 1;
1141            }
1142        }
1143    }
1144    return refresh;
1145}
Note: See TracBrowser for help on using the repository browser.