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

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