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

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