source: neercs/trunk/src/ansi.c @ 4110

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