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

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