source: trunk/tools/neercs/term/ansi.cpp @ 2183

Last change on this file since 2183 was 2183, checked in by sam, 7 years ago

build: fix the WTFPL site URL in all code comments.

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