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

Last change on this file since 3988 was 3988, checked in by Jean-Yves Lamoureux, 11 years ago
  • Added ESC#8 private command, fixed EL and ED behaviours
  • Property svn:keywords set to Id
File size: 34.5 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 3988 2009-11-21 12:06:46Z 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
127long int import_term(struct screen_list *screen_list, struct screen *sc,
128                     void const *data, unsigned int size)
129{
130    unsigned char const *buffer = (unsigned char const *)data;
131    unsigned int i, j, k, skip, dummy = 0;
132    unsigned int width, height, top, bottom;
133    uint32_t savedattr;
134    int x = 0, y = 0, save_x = 0, save_y = 0;
135
136
137    debug("ansi : import_term\n");
138
139    width = caca_get_canvas_width(sc->cv);
140    height = caca_get_canvas_height(sc->cv);
141    x = caca_get_cursor_x(sc->cv);
142    y = caca_get_cursor_y(sc->cv);
143    top = 1;
144    bottom = height;
145
146    if (!sc->init)
147    {
148        sc->dfg = CACA_LIGHTGRAY;
149        sc->dbg = CACA_BLACK;
150
151        caca_set_color_ansi(sc->cv, sc->dfg, sc->dbg);
152        sc->clearattr = caca_get_attr(sc->cv, -1, -1);
153
154        ansi_parse_grcm(sc, 1, &dummy);
155
156        reset_conv_state(sc);
157
158        sc->init = 1;
159    }
160
161    for (i = 0; i < size; i += skip)
162    {
163        uint32_t ch = 0;
164        int wch = 0;
165
166        skip = 1;
167
168        if (buffer[i] == '\r')
169        {
170            x = 0;
171        }
172
173        else if (buffer[i] == '\n')
174        {
175            x = 0;
176            y++;
177        }
178        else if (buffer[i] == '\a')
179        {
180            if (!sc->bell)
181                screen_list->in_bell++;
182            sc->bell = 1;
183        }
184
185        else if (buffer[i] == '\t')
186        {
187            x = (x + 7) & ~7;
188        }
189
190        else if (buffer[i] == '\x08')
191        {
192            if (x > 0)
193                x--;
194        }
195
196        else if (buffer[i] == '\x0e')
197        {
198            /* Shift Out (Ctrl-N) -> Switch to Alternate Character Set:
199               invokes the G1 character set. */
200            sc->conv_state.glr[0] = 1;
201        }
202
203        else if (buffer[i] == '\x0f')
204        {
205            /* Shift In (Ctrl-O) -> Switch to Standard Character Set: invokes
206               the G0 character set. */
207            sc->conv_state.glr[0] = 0;
208        }
209
210        /* If there are not enough characters to parse the escape sequence,
211           wait until the next try. We require 3. */
212        else if (buffer[i] == '\033' && i + 2 >= size)
213            break;
214
215        /* Single Shift Select of G2 Character Set (SS2: 0x8e): affects next
216           character only */
217        else if (buffer[i] == '\033' && buffer[i + 1] == 'N')
218        {
219            sc->conv_state.ss = 2;
220            skip += 1;
221        }
222        /* Reverse Index (RI) go up one line, reverse scroll if necessary */
223        else if (buffer[i] == '\033' && buffer[i + 1] == 'M')
224        {
225            /* FIXME : not sure about the meaning of 'go up one line' and 'if
226               necessary' words. Implemented as a scroller only. */
227            for (j = bottom - 1; j > top; j--)
228            {
229                for (k = 0; k < width; k++)
230                {
231                    caca_put_char(sc->cv, k, j,
232                                  caca_get_char(sc->cv, k, j - 1));
233                    caca_put_attr(sc->cv, k, j,
234                                  caca_get_attr(sc->cv, k, j - 1));
235                }
236            }
237            caca_draw_line(sc->cv, 0, top - 1, width - 1, top - 1, ' ');
238            skip += 1;
239        }
240
241        /* Single Shift Select of G3 Character Set (SS2: 0x8f): affects next
242           character only */
243        else if (buffer[i] == '\033' && buffer[i + 1] == 'O')
244        {
245            sc->conv_state.ss = 3;
246            skip += 1;
247        }
248
249        /* LOCKING-SHIFT TWO (LS2), ISO 2022, ECMA-48 (1986), ISO 6429 : 1988 */
250        else if (buffer[i] == '\033' && buffer[i + 1] == 'n')
251        {
252            sc->conv_state.glr[0] = 2;
253            skip += 1;
254        }
255
256        /* LOCKING-SHIFT THREE (LS3) ISO 2022, ECMA-48 (1986), ISO 6429 : 1988
257         */
258        else if (buffer[i] == '\033' && buffer[i + 1] == 'o')
259        {
260            sc->conv_state.glr[0] = 3;
261            skip += 1;
262        }
263
264        /* RESET TO INITIAL STATE (RIS), ECMA-48 (1986), ISO 6429 : 1988 */
265        else if (buffer[i] == '\033' && buffer[i + 1] == 'c')
266        {
267            sc->dfg = CACA_DEFAULT;
268            sc->dbg = CACA_DEFAULT;
269
270            caca_set_color_ansi(sc->cv, sc->dfg, sc->dbg);
271            sc->clearattr = caca_get_attr(sc->cv, -1, -1);
272            ansi_parse_grcm(sc, 1, &dummy);
273
274            reset_conv_state(sc);
275            skip += 1;
276        }
277
278        /* Coding Method Delimiter (CMD), ECMA-48 (1991), ISO/IEC 6429:1992
279           (ISO IR 189) */
280        else if (buffer[i] == '\033' && buffer[i + 1] == 'd')
281        {
282            reset_conv_state(sc);
283            skip += 1;
284        }
285
286        /* GZDM4, G0-Designators, multi, 94^n chars [grandfathered short form
287           from ISO 2022:1986] */
288        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
289                 && (buffer[i + 2] >= '@') && (buffer[i + 2] <= 'C'))
290        {
291            sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 2]);
292            skip += 2;
293        }
294
295        /* GnDMx Gn-Designators, 9x^n chars; need one more char to distinguish
296           these */
297        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
298                 && (i + 3 >= size))
299            break;
300
301        /* GZD4 G0-Designator, 94 chars */
302        else if (buffer[i] == '\033' && buffer[i + 1] == '(')
303        {
304            sc->conv_state.gn[0] = buffer[i + 2];
305            skip += 2;
306        }
307
308        /* G1D4 G1-Designator, 94 chars */
309        else if (buffer[i] == '\033' && buffer[i + 1] == ')')
310        {
311            sc->conv_state.gn[1] = buffer[i + 2];
312            skip += 2;
313        }
314
315        /* G2D4 G2-Designator, 94 chars */
316        else if (buffer[i] == '\033' && buffer[i + 1] == '*')
317        {
318            sc->conv_state.gn[2] = buffer[i + 2];
319            skip += 2;
320        }
321
322        /* G3D4 G3-Designator, 94 chars */
323        else if (buffer[i] == '\033' && buffer[i + 1] == '+')
324        {
325            sc->conv_state.gn[3] = buffer[i + 2];
326            skip += 2;
327        }
328
329        /* G2D6 G2-Designator, 96 chars */
330        else if (buffer[i] == '\033' && buffer[i + 1] == '.')
331        {
332            sc->conv_state.gn[2] = LITERAL2CHAR('.', buffer[i + 2]);
333            skip += 2;
334        }
335
336        /* G3D6 G3-Designator, 96 chars */
337        else if (buffer[i] == '\033' && buffer[i + 1] == '/')
338        {
339            sc->conv_state.gn[3] = LITERAL2CHAR('.', buffer[i + 2]);
340            skip += 2;
341        }
342
343        /* GZDM4 G0-Designator, 94^n chars */
344        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
345                 && buffer[i + 2] == '(')
346        {
347            sc->conv_state.gn[0] = LITERAL2CHAR('$', buffer[i + 3]);
348            skip += 3;
349        }
350
351        /* G1DM4 G1-Designator, 94^n chars */
352        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
353                 && buffer[i + 2] == ')')
354        {
355            sc->conv_state.gn[1] = LITERAL2CHAR('$', buffer[i + 3]);
356            skip += 3;
357        }
358
359        /* G2DM4 G2-Designator, 94^n chars */
360        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
361                 && buffer[i + 2] == '*')
362        {
363            sc->conv_state.gn[2] = LITERAL2CHAR('$', buffer[i + 3]);
364            skip += 3;
365        }
366
367        /* G3DM4 G3-Designator, 94^n chars */
368        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
369                 && buffer[i + 2] == '+')
370        {
371            sc->conv_state.gn[3] = LITERAL2CHAR('$', buffer[i + 3]);
372            skip += 3;
373        }
374
375        /* G2DM6 G2-Designator, 96^n chars */
376        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
377                 && buffer[i + 2] == '.')
378        {
379            sc->conv_state.gn[2] = LITERAL3CHAR('$', '.', buffer[i + 3]);
380            skip += 3;
381        }
382
383        /* G3DM6 G3-Designator, 96^n chars */
384        else if (buffer[i] == '\033' && buffer[i + 1] == '$'
385                 && buffer[i + 2] == '/')
386        {
387            sc->conv_state.gn[3] = LITERAL3CHAR('$', '.', buffer[i + 3]);
388            skip += 3;
389        }
390        else if (buffer[i] == '\033' && buffer[i + 1] == '#')
391        {
392            debug("ansi private '#' sequence\n");
393
394            switch (buffer[i + 2])
395            {
396            case '8':          /* DECALN Fills the entire screen area with
397                                   uppercase Es for screen focus and
398                                   alignment. */
399                for (j = 0; j < height; j++)
400                {
401                    for (k = 0; k < width; k++)
402                    {
403                        caca_put_char(sc->cv, k, j, 'E');
404                    }
405                }
406                skip += 2;
407                break;
408
409            default:
410                debug("Unknow private sequence 'ESC#%c'\n", buffer[i + 2]);
411                continue;
412            }
413
414        }
415        /* Interpret escape commands, as per Standard ECMA-48 "Control
416           Functions for Coded Character Sets", 5.4. Control sequences. */
417        else if (buffer[i] == '\033' && buffer[i + 1] == '[')
418        {
419            unsigned int argc = 0, argv[101];
420            unsigned int param, inter, final;
421
422
423            /* Compute offsets to parameter bytes, intermediate bytes and to
424               the final byte. Only the final byte is mandatory, there can be
425               zero of the others. 0 param=2 inter final final+1
426               +-----+------------------+---------------------+-----------------+
427               | CSI | parameter bytes | intermediate bytes | final byte | | |
428               0x30 - 0x3f | 0x20 - 0x2f | 0x40 - 0x7e | | ^[[ | 0123456789:;<=>?
429               | SPC !"#$%&'()*+,-./ | azAZ@[\]^_`{|}~ |
430               +-----+------------------+---------------------+-----------------+ */
431            param = 2;
432
433            for (inter = param; i + inter < size; inter++)
434                if (buffer[i + inter] < 0x30 || buffer[i + inter] > 0x3f)
435                    break;
436
437            for (final = inter; i + final < size; final++)
438                if (buffer[i + final] < 0x20 || buffer[i + final] > 0x2f)
439                    break;
440
441            if (i + final >= size
442                || buffer[i + final] < 0x40 || buffer[i + final] > 0x7e)
443                break;          /* Invalid Final Byte */
444
445            skip += final;
446
447            /* Sanity checks */
448            if (param < inter && buffer[i + param] >= 0x3c)
449            {
450                /* Private sequence, only parse what we know */
451                debug("ansi import: private sequence \"^[[%.*s\"",
452                      final - param + 1, buffer + i + param);
453                continue;       /* Private sequence, skip it entirely */
454            }
455
456            if (final - param > 100)
457                continue;       /* Suspiciously long sequence, skip it */
458
459            /* Parse parameter bytes as per ECMA-48 5.4.2: Parameter string
460               format */
461            if (param < inter)
462            {
463                argv[0] = 0;
464                for (j = param; j < inter; j++)
465                {
466                    if (buffer[i + j] == ';')
467                        argv[++argc] = 0;
468                    else if (buffer[i + j] >= '0' && buffer[i + j] <= '9')
469                        argv[argc] = 10 * argv[argc] + (buffer[i + j] - '0');
470                }
471                argc++;
472            }
473
474            /* Interpret final byte. The code representations are given in
475               ECMA-48 5.4: Control sequences, and the code definitions are
476               given in ECMA-48 8.3: Definition of control functions. */
477            debug("ansi import: command '%c'", buffer[i + final]);
478            switch (buffer[i + final])
479            {
480            case 'A':          /* CUU (0x41) - Cursor Up */
481                y -= argc ? argv[0] : 1;
482                if (y < 0)
483                    y = 0;
484                break;
485            case 'B':          /* CUD (0x42) - Cursor Down */
486                y += argc ? argv[0] : 1;
487                break;
488            case 'C':          /* CUF (0x43) - Cursor Right */
489                x += argc ? argv[0] : 1;
490                break;
491            case 'D':          /* CUB (0x44) - Cursor Left */
492                x -= argc ? argv[0] : 1;
493                if (x < 0)
494                    x = 0;
495                break;
496            case 'G':          /* CHA (0x47) - Cursor Character Absolute */
497                x = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
498                break;
499            case 'H':          /* CUP (0x48) - Cursor Position */
500                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
501                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
502                debug("ansi CUP : Cursor at %dx%d\n", x, y);
503                break;
504            case 'J':          /* ED (0x4a) - Erase In Page */
505                savedattr = caca_get_attr(sc->cv, -1, -1);
506                caca_set_attr(sc->cv, sc->clearattr);
507                if (!argc || argv[0] == 0)
508                {
509                    caca_draw_line(sc->cv, x, y, width, y, ' ');
510                    caca_fill_box(sc->cv, 0, y + 1, width, height - 1, ' ');
511                }
512                else if (argv[0] == 1)
513                {
514                    caca_fill_box(sc->cv, 0, 0, width, y, ' ');
515                    caca_draw_line(sc->cv, 0, y, x, y, ' ');
516                }
517                else if (argv[0] == 2)
518                {
519                    // x = y = 0;
520                    caca_fill_box(sc->cv, 0, 0, width, height, ' ');
521                }
522                caca_set_attr(sc->cv, savedattr);
523                break;
524            case 'K':          /* EL (0x4b) - Erase In Line */
525                debug("ansi EL : cursor at %dx%d\n", x, y);
526                if (!argc || argv[0] == 0)
527                {
528                    caca_draw_line(sc->cv, x, y, width, y, ' ');
529                }
530                else if (argv[0] == 1)
531                {
532                    caca_draw_line(sc->cv, 0, y, x, y, ' ');
533                }
534                else if (argv[0] == 2)
535                {
536                    caca_draw_line(sc->cv, 0, y, width, y, ' ');
537                }
538                break;
539            case 'L':          /* IL - Insert line */
540                {
541                    unsigned int nb_lines = argc ? argv[0] : 1;
542                    for (j = bottom - 1; j >= (unsigned int)y + nb_lines; j--)
543                    {
544                        for (k = 0; k < width; k++)
545                        {
546                            caca_put_char(sc->cv, k, j,
547                                          caca_get_char(sc->cv, k,
548                                                        j - nb_lines));
549                            caca_put_attr(sc->cv, k, j,
550                                          caca_get_attr(sc->cv, k,
551                                                        j - nb_lines));
552                        }
553                        caca_draw_line(sc->cv, 0, j - nb_lines, width,
554                                       j - nb_lines, ' ');
555                    }
556                }
557                break;
558            case 'P':          /* DCH (0x50) - Delete Character */
559                if (!argc || argv[0] == 0)
560                    argv[0] = 1;        /* echo -ne 'foobar\r\e[0P\n' */
561                /* Jylam : Start from x, not 0 */
562                for (j = x; (unsigned int)(j + argv[0]) < width; j++)
563                {
564                    caca_put_char(sc->cv, j, y,
565                                  caca_get_char(sc->cv, j + argv[0], y));
566                    caca_put_attr(sc->cv, j, y,
567                                  caca_get_attr(sc->cv, j + argv[0], y));
568                }
569                break;          /* Jylam: this one was missing I guess */
570#if 0
571                savedattr = caca_get_attr(sc->cv, -1, -1);
572                caca_set_attr(sc->cv, sc->clearattr);
573                for (; (unsigned int)j < width; j++)
574                    caca_put_char(sc->cv, j, y, ' ');
575                caca_set_attr(sc->cv, savedattr);
576#endif
577            case 'X':          /* ECH (0x58) - Erase Character */
578                if (argc && argv[0])
579                {
580                    savedattr = caca_get_attr(sc->cv, -1, -1);
581                    caca_set_attr(sc->cv, sc->clearattr);
582                    caca_draw_line(sc->cv, x, y, x + argv[0] - 1, y, ' ');
583                    caca_set_attr(sc->cv, savedattr);
584                }
585            case 'd':          /* VPA (0x64) - Line Position Absolute */
586                y = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
587                break;
588            case 'f':          /* HVP (0x66) - Character And Line Position */
589                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
590                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
591                break;
592            case 'r':          /* FIXME */
593                if (argc == 2)  /* DCSTBM - Set top and bottom margin */
594                {
595                    debug("DCSTBM %d %d", argv[0], argv[1]);
596                    top = argv[0];
597                    bottom = argv[1];
598                }
599                else
600                    debug("ansi import: command r with %d params", argc);
601                break;
602            case 'h':          /* SM (0x68) - FIXME */
603                debug("ansi import: set mode %i", argc ? (int)argv[0] : -1);
604                break;
605            case 'l':          /* RM (0x6c) - FIXME */
606                debug("ansi import: reset mode %i", argc ? (int)argv[0] : -1);
607                break;
608            case 'm':          /* SGR (0x6d) - Select Graphic Rendition */
609                if (argc)
610                    ansi_parse_grcm(sc, argc, argv);
611                else
612                    ansi_parse_grcm(sc, 1, &dummy);
613                break;
614            case 's':          /* Private (save cursor position) */
615                save_x = x;
616                save_y = y;
617                break;
618            case 'u':          /* Private (reload cursor position) */
619                x = save_x;
620                y = save_y;
621                break;
622            default:
623                debug("ansi import: unknown command \"^[[%.*s\"",
624                      final - param + 1, buffer + i + param);
625                break;
626            }
627        }
628
629        /* Parse OSC stuff. */
630        else if (buffer[i] == '\033' && buffer[i + 1] == ']')
631        {
632            char *string;
633            unsigned int command = 0;
634            unsigned int mode = 2, semicolon, final;
635
636            for (semicolon = mode; i + semicolon < size; semicolon++)
637            {
638                if (buffer[i + semicolon] < '0' || buffer[i + semicolon] > '9')
639                    break;
640                command = 10 * command + (buffer[i + semicolon] - '0');
641            }
642
643            if (i + semicolon >= size || buffer[i + semicolon] != ';')
644                break;          /* Invalid Mode */
645
646            for (final = semicolon + 1; i + final < size; final++)
647                if (buffer[i + final] < 0x20)
648                    break;
649
650            if (i + final >= size || buffer[i + final] != '\a')
651                break;          /* Not enough data or no bell found */
652            /* FIXME: XTerm also reacts to <ESC><backslash> and <ST> */
653            /* FIXME: differenciate between not enough data (try again) and
654               invalid data (print shit) */
655
656            skip += final;
657
658            string = malloc(final - (semicolon + 1) + 1);
659            memcpy(string, buffer + i + (semicolon + 1),
660                   final - (semicolon + 1));
661            string[final - (semicolon + 1)] = '\0';
662            debug("ansi import: got OSC command %i string '%s'", command,
663                  string);
664            if (command == 0 || command == 2)
665            {
666                if (sc->title)
667                    free(sc->title);
668                sc->title = string;
669            }
670            else
671                free(string);
672        }
673
674        /* Get the character we’re going to paste */
675        else
676        {
677            size_t bytes;
678
679            if (i + 6 < size)
680            {
681                ch = caca_utf8_to_utf32((char const *)(buffer + i), &bytes);
682            }
683            else
684            {
685                /* Add a trailing zero to what we're going to read */
686                char tmp[7];
687                memcpy(tmp, buffer + i, size - i);
688                tmp[size - i] = '\0';
689                ch = caca_utf8_to_utf32(tmp, &bytes);
690            }
691
692            if (!bytes)
693            {
694                /* If the Unicode is invalid, assume it was latin1. */
695                ch = buffer[i];
696                bytes = 1;
697            }
698
699            /* very incomplete ISO-2022 implementation tailored to DEC ACS */
700            if (sc->conv_state.cs == '@')
701            {
702                if (((ch > ' ') && (ch <= '~'))
703                    &&
704                    (sc->conv_state.
705                     gn[sc->conv_state.ss ? sc->conv_state.
706                        gn[sc->conv_state.ss] : sc->conv_state.glr[0]] == '0'))
707                {
708                    ch = dec_acs(ch);
709                }
710                else if (((ch > 0x80) && (ch < 0xff))
711                         && (sc->conv_state.gn[sc->conv_state.glr[1]] == '0'))
712                {
713                    ch = dec_acs(ch + ' ' - 0x80);
714                }
715            }
716            sc->conv_state.ss = 0;      /* no single-shift (GL) */
717
718            wch = caca_utf32_is_fullwidth(ch) ? 2 : 1;
719
720            skip += bytes - 1;
721        }
722
723        /* Wrap long lines or grow horizontally */
724        while ((unsigned int)x + wch > width)
725        {
726            x -= width;
727            y++;
728        }
729
730        /* Scroll or grow vertically */
731        if ((unsigned int)y >= bottom)
732        {
733            int lines = (y - bottom) + 1;
734
735            savedattr = caca_get_attr(sc->cv, -1, -1);
736
737            for (j = top - 1; j + lines < bottom; j++)
738            {
739                for (k = 0; k < width; k++)
740                {
741                    caca_put_char(sc->cv, k, j,
742                                  caca_get_char(sc->cv, k, j + lines));
743                    caca_put_attr(sc->cv, k, j,
744                                  caca_get_attr(sc->cv, k, j + lines));
745                }
746            }
747            caca_set_attr(sc->cv, sc->clearattr);
748            caca_fill_box(sc->cv, 0, bottom - lines, width, bottom - 1, ' ');
749            y -= lines;
750            caca_set_attr(sc->cv, savedattr);
751        }
752
753        /* Now paste our character, if any */
754        if (wch)
755        {
756            caca_put_char(sc->cv, x, y, ch);
757            x += wch;
758        }
759    }
760
761    caca_gotoxy(sc->cv, x, y);
762
763    if (i)
764        sc->changed = 1;
765    return i;
766}
767
768/* Coding Method Delimiter (CMD), ECMA-48 (1991), ISO/IEC 6429:1992 (ISO IR
769   189) */
770
771static void reset_conv_state(struct screen *sc)
772{
773    sc->conv_state.cs = '@';    /* ISO-2022 coding system */
774    sc->conv_state.cn[0] = '@'; /* ISO 646 C0 control charset */
775    sc->conv_state.cn[1] = 'C'; /* ISO 6429-1983 C1 control charset */
776    sc->conv_state.glr[0] = 0;  /* G0 in GL */
777    sc->conv_state.glr[1] = 2;  /* G2 in GR */
778    sc->conv_state.gn[0] = 'B'; /* US-ASCII G0 charset */
779    sc->conv_state.gn[1] = '0'; /* DEC ACS G1 charset */
780    sc->conv_state.gn[2] = LITERAL2CHAR('.', 'A');      /* ISO 8859-1 G2
781                                                           charset */
782    sc->conv_state.gn[3] = LITERAL2CHAR('.', 'A');      /* ISO 8859-1 G3
783                                                           charset */
784    sc->conv_state.ss = 0;      /* no single-shift (GL) */
785    sc->conv_state.ctrl8bit = 1;
786}
787
788/* XXX : ANSI loader helper */
789
790static void ansi_parse_grcm(struct screen *sc,
791                            unsigned int argc, unsigned int const *argv)
792{
793    static uint8_t const ansi2caca[] = {
794        CACA_BLACK, CACA_RED, CACA_GREEN, CACA_BROWN,
795        CACA_BLUE, CACA_MAGENTA, CACA_CYAN, CACA_LIGHTGRAY
796    };
797
798    unsigned int j;
799    uint8_t efg, ebg;           /* Effective (libcaca) fg/bg */
800
801    for (j = 0; j < argc; j++)
802    {
803        /* Defined in ECMA-48 8.3.117: SGR - SELECT GRAPHIC RENDITION */
804        if (argv[j] >= 30 && argv[j] <= 37)
805            sc->fg = ansi2caca[argv[j] - 30];
806        else if (argv[j] >= 40 && argv[j] <= 47)
807            sc->bg = ansi2caca[argv[j] - 40];
808        else if (argv[j] >= 90 && argv[j] <= 97)
809            sc->fg = ansi2caca[argv[j] - 90] + 8;
810        else if (argv[j] >= 100 && argv[j] <= 107)
811            sc->bg = ansi2caca[argv[j] - 100] + 8;
812        else
813            switch (argv[j])
814            {
815            case 0:            /* default rendition */
816                sc->fg = sc->dfg;
817                sc->bg = sc->dbg;
818                sc->bold = sc->blink = sc->italics = sc->negative
819                    = sc->concealed = sc->underline = sc->faint = sc->strike
820                    = sc->proportional = 0;
821                break;
822            case 1:            /* bold or increased intensity */
823                sc->bold = 1;
824                break;
825            case 2:            /* faint, decreased intensity or second colour
826                                 */
827                sc->faint = 1;
828                break;
829            case 3:            /* italicized */
830                sc->italics = 1;
831                break;
832            case 4:            /* singly underlined */
833                sc->underline = 1;
834                break;
835            case 5:            /* slowly blinking (less then 150 per minute) */
836            case 6:            /* rapidly blinking (150 per minute or more) */
837                sc->blink = 1;
838                break;
839            case 7:            /* negative image */
840                sc->negative = 1;
841                break;
842            case 8:            /* concealed characters */
843                sc->concealed = 1;
844                break;
845            case 9:            /* crossed-out (characters still legible but
846                                   marked as to be deleted */
847                sc->strike = 1;
848                break;
849            case 21:           /* doubly underlined */
850                sc->underline = 1;
851                break;
852            case 22:           /* normal colour or normal intensity (neither
853                                   bold nor faint) */
854                sc->bold = sc->faint = 0;
855                break;
856            case 23:           /* not italicized, not fraktur */
857                sc->italics = 0;
858                break;
859            case 24:           /* not underlined (neither singly nor doubly) */
860                sc->underline = 0;
861                break;
862            case 25:           /* steady (not blinking) */
863                sc->blink = 0;
864                break;
865            case 26:           /* (reserved for proportional spacing as
866                                   specified in CCITT Recommendation T.61) */
867                sc->proportional = 1;
868                break;
869            case 27:           /* positive image */
870                sc->negative = 0;
871                break;
872            case 28:           /* revealed characters */
873                sc->concealed = 0;
874                break;
875            case 29:           /* not crossed out */
876                sc->strike = 0;
877                break;
878            case 38:           /* (reserved for future standardization,
879                                   intended for setting character foreground
880                                   colour as specified in ISO 8613-6 [CCITT
881                                   Recommendation T.416]) */
882                break;
883            case 39:           /* default display colour
884                                   (implementation-defined) */
885                sc->fg = sc->dfg;
886                break;
887            case 48:           /* (reserved for future standardization,
888                                   intended for setting character background
889                                   colour as specified in ISO 8613-6 [CCITT
890                                   Recommendation T.416]) */
891                break;
892            case 49:           /* default background colour
893                                   (implementation-defined) */
894                sc->bg = sc->dbg;
895                break;
896            case 50:           /* (reserved for cancelling the effect of the
897                                   rendering aspect established by parameter
898                                   value 26) */
899                sc->proportional = 0;
900                break;
901            default:
902                debug("ansi import: unknown sgr %i", argv[j]);
903                break;
904            }
905    }
906
907    if (sc->concealed)
908    {
909        efg = ebg = CACA_TRANSPARENT;
910    }
911    else
912    {
913        efg = sc->negative ? sc->bg : sc->fg;
914        ebg = sc->negative ? sc->fg : sc->bg;
915
916        if (sc->bold)
917        {
918            if (efg < 8)
919                efg += 8;
920            else if (efg == CACA_DEFAULT)
921                efg = CACA_WHITE;
922        }
923    }
924
925    caca_set_color_ansi(sc->cv, efg, ebg);
926}
927
928int create_pty(char *cmd, unsigned int w, unsigned int h, int *cpid)
929{
930    char **argv;
931    int fd;
932    pid_t pid;
933
934    pid = forkpty(&fd, NULL, NULL, NULL);
935    if (pid < 0)
936    {
937        fprintf(stderr, "forkpty() error\n");
938        return -1;
939    }
940    else if (pid == 0)
941    {
942        set_tty_size(0, w, h);
943        putenv("CACA_DRIVER=slang");
944        putenv("TERM=xterm");
945        argv = malloc(2 * sizeof(char *));
946        if (!argv)
947        {
948            fprintf(stderr, "Can't allocate memory at %s:%d\n", __FUNCTION__,
949                    __LINE__);
950            return -1;
951        }
952        argv[0] = cmd;
953        argv[1] = NULL;
954        execvp(cmd, argv);
955        fprintf(stderr, "execvp() error\n");
956        return -1;
957    }
958
959    *cpid = pid;
960
961    fcntl(fd, F_SETFL, O_NDELAY);
962    return fd;
963}
964
965int create_pty_grab(long pid, unsigned int w, unsigned int h, int *newpid)
966{
967    int fdm, fds;
968
969    int ret = openpty(&fdm, &fds, NULL, NULL, NULL);
970
971    if (ret < 0)
972    {
973        fprintf(stderr, "open() error\n");
974        return -1;
975    }
976
977    set_tty_size(0, w, h);
978    grab_process(pid, ptsname(fdm), fds, newpid);
979
980    fcntl(fdm, F_SETFL, O_NDELAY);
981    return fdm;
982}
983
984int set_tty_size(int fd, unsigned int w, unsigned int h)
985{
986    struct winsize ws;
987
988    memset(&ws, 0, sizeof(ws));
989    ws.ws_row = h;
990    ws.ws_col = w;
991    ioctl(fd, TIOCSWINSZ, (char *)&ws);
992
993    return 0;
994}
995
996
997
998int update_terms(struct screen_list *screen_list)
999{
1000    int i, refresh = 0;
1001    for (i = 0; i < screen_list->count; i++)
1002    {
1003        if (screen_list->screen[i]->total && !screen_list->dont_update_coords)
1004        {
1005            unsigned long int bytes;
1006
1007            bytes = import_term(screen_list,
1008                                screen_list->screen[i],
1009                                screen_list->screen[i]->buf,
1010                                screen_list->screen[i]->total);
1011
1012            if (bytes > 0)
1013            {
1014                screen_list->screen[i]->total -= bytes;
1015                memmove(screen_list->screen[i]->buf,
1016                        screen_list->screen[i]->buf + bytes,
1017                        screen_list->screen[i]->total);
1018                if (screen_list->screen[i]->visible || screen_list->mini)
1019                    refresh = 1;
1020            }
1021        }
1022    }
1023    return refresh;
1024}
Note: See TracBrowser for help on using the repository browser.