source: libcaca/trunk/cucul/import.c @ 1426

Last change on this file since 1426 was 1426, checked in by Sam Hocevar, 16 years ago
  • Improved ANSI importer so that it supports a lot more of what is needed for basic vt220 emulation.
  • Property svn:keywords set to Id
File size: 27.0 KB
Line 
1/*
2 *  libcucul      Canvas for ultrafast compositing of Unicode letters
3 *  Copyright (c) 2002-2006 Sam Hocevar <sam@zoy.org>
4 *                All Rights Reserved
5 *
6 *  $Id: import.c 1426 2006-11-21 06:35:04Z sam $
7 *
8 *  This library is free software; you can redistribute it and/or
9 *  modify it under the terms of the Do What The Fuck You Want To
10 *  Public License, Version 2, as published by Sam Hocevar. See
11 *  http://sam.zoy.org/wtfpl/COPYING for more details.
12 */
13
14/*
15 *  This file contains various import functions.
16 */
17
18#include "config.h"
19#include "common.h"
20
21#if !defined __KERNEL__
22#   include <stdio.h>
23#   include <stdlib.h>
24#   include <string.h>
25#endif
26
27#include "cucul.h"
28#include "cucul_internals.h"
29
30static inline uint32_t sscanu32(void const *s)
31{
32    uint32_t x;
33    memcpy(&x, s, 4);
34    return hton32(x);
35}
36
37static inline uint16_t sscanu16(void const *s)
38{
39    uint16_t x;
40    memcpy(&x, s, 2);
41    return hton16(x);
42}
43
44/* ANSI Graphic Rendition Combination Mode */
45struct ansi_grcm
46{
47    uint8_t fg, bg;   /* ANSI-context fg/bg */
48    uint8_t efg, ebg; /* Effective (libcucul) fg/bg */
49    uint8_t dfg, dbg; /* Default fg/bg */
50    uint8_t bold, blink, italics, negative, concealed, underline;
51};
52
53static long int import_caca(cucul_canvas_t *, void const *, unsigned int);
54static long int import_text(cucul_canvas_t *, void const *, unsigned int);
55static long int import_ansi(cucul_canvas_t *, void const *, unsigned int, int);
56
57static void ansi_parse_grcm(cucul_canvas_t *, struct ansi_grcm *,
58                            unsigned int, unsigned int const *);
59
60/** \brief Import a memory buffer into a canvas
61 *
62 *  Import a memory buffer into the given libcucul canvas's current
63 *  frame. The current frame is resized accordingly and its contents are
64 *  replaced with the imported data.
65 *
66 *  Valid values for \c format are:
67 *  - \c "": attempt to autodetect the file format.
68 *  - \c "caca": import native libcaca files.
69 *  - \c "text": import ASCII text files.
70 *  - \c "ansi": import ANSI files.
71 *  - \c "utf8": import UTF-8 files with ANSI colour codes.
72 *
73 *  The number of bytes read is returned. If the file format is valid, but
74 *  not enough data was available, 0 is returned.
75 *
76 *  If an error occurs, -1 is returned and \b errno is set accordingly:
77 *  - \c ENOMEM Not enough memory to allocate canvas.
78 *  - \c EINVAL Invalid format requested.
79 *
80 *  \param cv A libcucul canvas in which to import the file.
81 *  \param data A memory area containing the data to be loaded into the canvas.
82 *  \param len The size in bytes of the memory area.
83 *  \param format A string describing the input format.
84 *  \return The number of bytes read, or 0 if there was not enough data,
85 *  or -1 if an error occurred.
86 */
87long int cucul_import_memory(cucul_canvas_t *cv, void const *data,
88                             unsigned long int len, char const *format)
89{
90    if(!strcasecmp("caca", format))
91        return import_caca(cv, data, len);
92    if(!strcasecmp("utf8", format))
93        return import_ansi(cv, data, len, 1);
94    if(!strcasecmp("text", format))
95        return import_text(cv, data, len);
96    if(!strcasecmp("ansi", format))
97        return import_ansi(cv, data, len, 0);
98
99    /* Autodetection */
100    if(!strcasecmp("", format))
101    {
102        unsigned char const *str = data;
103        unsigned int i;
104
105        /* If 4 first bytes are 0xcaca + 'CV' */
106        if(len >= 4 && str[0] == 0xca &&
107           str[1] == 0xca && str[2] == 'C' && str[3] == 'V')
108            return import_caca(cv, data, len);
109
110        /* If we find ESC[ argv, we guess it's an ANSI file */
111        for(i = 0; i + 1 < len; i++)
112            if((str[i] == 0x1b) && (str[i + 1] == '['))
113                return import_ansi(cv, data, len, 0);
114
115        /* Otherwise, import it as text */
116        return import_text(cv, data, len);
117    }
118
119    seterrno(EINVAL);
120    return -1;
121}
122
123/** \brief Import a file into a canvas
124 *
125 *  Import a file into the given libcucul canvas's current frame. The
126 *  current frame is resized accordingly and its contents are replaced
127 *  with the imported data.
128 *
129 *  Valid values for \c format are:
130 *  - \c "": attempt to autodetect the file format.
131 *  - \c "caca": import native libcaca files.
132 *  - \c "text": import ASCII text files.
133 *  - \c "ansi": import ANSI files.
134 *  - \c "utf8": import UTF-8 files with ANSI colour codes.
135 *
136 *  The number of bytes read is returned. If the file format is valid, but
137 *  not enough data was available, 0 is returned.
138 *
139 *  If an error occurs, -1 is returned and \b errno is set accordingly:
140 *  - \c ENOSYS File access is not implemented on this system.
141 *  - \c ENOMEM Not enough memory to allocate canvas.
142 *  - \c EINVAL Invalid format requested.
143 *  cucul_import_file() may also fail and set \b errno for any of the
144 *  errors specified for the routine fopen().
145 *
146 *  \param cv A libcucul canvas in which to import the file.
147 *  \param filename The name of the file to load.
148 *  \param format A string describing the input format.
149 *  \return The number of bytes read, or 0 if there was not enough data,
150 *  or -1 if an error occurred.
151 */
152long int cucul_import_file(cucul_canvas_t *cv, char const *filename,
153                           char const *format)
154{
155#if defined __KERNEL__
156    seterrno(ENOSYS);
157    return -1;
158#else
159    FILE *fp;
160    void *data;
161    long int size;
162    int ret;
163
164    fp = fopen(filename, "rb");
165    if(!fp)
166        return -1; /* fopen already set errno */
167
168    fseek(fp, 0, SEEK_END);
169    size = ftell(fp);
170
171    data = malloc(size);
172    if(!data)
173    {
174        fclose(fp);
175        seterrno(ENOMEM);
176        return -1;
177    }
178
179    fseek(fp, 0, SEEK_SET);
180    fread(data, size, 1, fp);
181    fclose(fp);
182
183    ret = cucul_import_memory(cv, data, size, format);
184    free(data);
185
186    return ret;
187#endif
188}
189   
190/** \brief Get available import formats
191 *
192 *  Return a list of available import formats. The list is a NULL-terminated
193 *  array of strings, interleaving a string containing the internal value for
194 *  the import format, to be used with cucul_import_canvas(), and a string
195 *  containing the natural language description for that import format.
196 *
197 *  This function never fails.
198 *
199 *  \return An array of strings.
200 */
201char const * const * cucul_get_import_list(void)
202{
203    static char const * const list[] =
204    {
205        "", "autodetect",
206        "caca", "native libcaca format",
207        "text", "plain text",
208        "ansi", "ANSI coloured text",
209        "utf8", "UTF-8 files with ANSI colour codes",
210        NULL, NULL
211    };
212
213    return list;
214}
215
216/*
217 * XXX: the following functions are local.
218 */
219
220static long int import_caca(cucul_canvas_t *cv,
221                            void const *data, unsigned int size)
222{
223    uint8_t const *buf = (uint8_t const *)data;
224    unsigned int control_size, data_size, expected_size, frames, f, n;
225    uint16_t version, flags;
226
227    if(size < 20)
228        return 0;
229
230    if(buf[0] != 0xca || buf[1] != 0xca || buf[2] != 'C' || buf[3] != 'V')
231    {
232        debug("caca import error: expected \\xca\\xcaCV header");
233        goto invalid_caca;
234    }
235
236    control_size = sscanu32(buf + 4);
237    data_size = sscanu32(buf + 8);
238    version = sscanu16(buf + 12);
239    frames = sscanu32(buf + 14);
240    flags = sscanu16(buf + 18);
241
242    if(size < 4 + control_size + data_size)
243        return 0;
244
245    if(control_size < 16 + frames * 32)
246    {
247        debug("caca import error: control size %lu < expected %lu",
248              (unsigned long int)control_size, 16 + frames * 32);
249        goto invalid_caca;
250    }
251
252    for(expected_size = 0, f = 0; f < frames; f++)
253    {
254        unsigned int width, height, duration;
255        uint32_t attr;
256        int x, y, handlex, handley;
257
258        width = sscanu32(buf + 4 + 16 + f * 24);
259        height = sscanu32(buf + 4 + 16 + f * 24 + 4);
260        duration = sscanu32(buf + 4 + 16 + f * 24 + 8);
261        attr = sscanu32(buf + 4 + 16 + f * 24 + 12);
262        x = (int32_t)sscanu32(buf + 4 + 16 + f * 24 + 16);
263        y = (int32_t)sscanu32(buf + 4 + 16 + f * 24 + 20);
264        handlex = (int32_t)sscanu32(buf + 4 + 16 + f * 24 + 24);
265        handley = (int32_t)sscanu32(buf + 4 + 16 + f * 24 + 28);
266
267        expected_size += width * height * 8;
268    }
269
270    if(expected_size != data_size)
271    {
272        debug("caca import error: data size %lu < expected %lu",
273              (unsigned long int)data_size, (unsigned long int)expected_size);
274        goto invalid_caca;
275    }
276
277    /* FIXME: read all frames, not only the first one */
278    cucul_set_canvas_size(cv, 0, 0);
279    cucul_set_canvas_size(cv, sscanu32(buf + 4 + 16),
280                              sscanu32(buf + 4 + 16 + 4));
281
282    /* FIXME: check for return value */
283
284    for(n = sscanu32(buf + 4 + 16) * sscanu32(buf + 4 + 16 + 4); n--; )
285    {
286        cv->chars[n] = sscanu32(buf + 4 + control_size + 8 * n);
287        cv->attrs[n] = sscanu32(buf + 4 + control_size + 8 * n + 4);
288    }
289
290    cv->curattr = sscanu32(buf + 4 + 16 + 12);
291    cv->frames[0].x = (int32_t)sscanu32(buf + 4 + 16 + 0 * 24 + 16);
292    cv->frames[0].y = (int32_t)sscanu32(buf + 4 + 16 + 0 * 24 + 20);
293    cv->frames[0].handlex = (int32_t)sscanu32(buf + 4 + 16 + 0 * 24 + 24);
294    cv->frames[0].handley = (int32_t)sscanu32(buf + 4 + 16 + 0 * 24 + 28);
295
296    return 4 + control_size + data_size;
297
298invalid_caca:
299    seterrno(EINVAL);
300    return -1;
301}
302
303static long int import_text(cucul_canvas_t *cv,
304                            void const *data, unsigned int size)
305{
306    char const *text = (char const *)data;
307    unsigned int width = 0, height = 0, x = 0, y = 0, i;
308
309    cucul_set_canvas_size(cv, width, height);
310
311    for(i = 0; i < size; i++)
312    {
313        unsigned char ch = *text++;
314
315        if(ch == '\r')
316            continue;
317
318        if(ch == '\n')
319        {
320            x = 0;
321            y++;
322            continue;
323        }
324
325        if(x >= width || y >= height)
326        {
327            if(x >= width)
328                width = x + 1;
329
330            if(y >= height)
331                height = y + 1;
332
333            cucul_set_canvas_size(cv, width, height);
334        }
335
336        cucul_put_char(cv, x, y, ch);
337        x++;
338    }
339
340    if(y > height)
341        cucul_set_canvas_size(cv, width, height = y);
342
343    return size;
344}
345
346static long int import_ansi(cucul_canvas_t *cv,
347                            void const *data, unsigned int size, int utf8)
348{
349    struct ansi_grcm grcm;
350    unsigned char const *buffer = (unsigned char const*)data;
351    unsigned int i, j, skip, growx = 0, growy = 0, dummy = 0;
352    unsigned int width, height;
353    uint32_t savedattr, clearattr;
354    int x = 0, y = 0, save_x = 0, save_y = 0;
355
356    if(utf8)
357    {
358        width = cv->width;
359        height = cv->height;
360        growx = !width;
361        growy = !height;
362        x = cv->frames[cv->frame].x;
363        y = cv->frames[cv->frame].y;
364        grcm.dfg = CUCUL_DEFAULT;
365        grcm.dbg = CUCUL_TRANSPARENT;
366    }
367    else
368    {
369        cucul_set_canvas_size(cv, width = 80, height = 0);
370        growx = 0;
371        growy = 1;
372        grcm.dfg = CUCUL_LIGHTGRAY;
373        grcm.dbg = CUCUL_BLACK;
374    }
375
376    savedattr = cucul_get_attr(cv, -1, -1);
377    cucul_set_color_ansi(cv, grcm.dfg, grcm.dbg);
378    clearattr = cucul_get_attr(cv, -1, -1);
379
380    if(utf8)
381        cucul_set_attr(cv, savedattr);
382
383    /* FIXME: this is not right, we should store the grcm information as a
384     * persistent structure within the canvas. */
385    ansi_parse_grcm(cv, &grcm, 1, &dummy);
386
387    for(i = 0; i < size; i += skip)
388    {
389        uint32_t ch = 0;
390        int wch = 0;
391
392        skip = 1;
393
394        if(!utf8 && buffer[i] == '\x1a' && i + 7 < size
395           && !memcmp(buffer + i + 1, "SAUCE00", 7))
396            break; /* End before SAUCE data */
397
398        else if(buffer[i] == '\r')
399        {
400            x = 0;
401        }
402
403        else if(buffer[i] == '\n')
404        {
405            x = 0;
406            y++;
407        }
408
409        else if(buffer[i] == '\t')
410        {
411            x = (x + 7) & ~7;
412        }
413
414        else if(buffer[i] == '\x08')
415        {
416            if(x > 0)
417                x--;
418        }
419
420        else if(buffer[i] == '\x1b' && buffer[i + 1] == ']'
421                 && buffer[i + 2] == '0' && buffer[i + 3] == ';')
422        {
423            for(j = i + 4; j < size; j++)
424                if(buffer[j] == '\x07' || buffer[j] == '\x1b'
425                   || buffer[j] == '\r' || buffer[j] == '\n')
426                    break;
427
428            if(j < size && buffer[j] == '\x07')
429            {
430                char *title = malloc(j - i - 4 + 1);
431                memcpy(title, buffer + i + 4, j - i - 4);
432                title[j - i - 4] = '\0';
433                debug("ansi import: got display title '%s'", title);
434                skip += j - i;
435                free(title);
436            }
437        }
438
439        /* If there are not enough characters to parse the escape sequence,
440         * wait until the next try. We require 3. */
441        else if(buffer[i] == '\x1b' && i + 2 >= size)
442            break;
443
444        /* XXX: What the fuck is this shit? */
445        else if(buffer[i] == '\x1b' && buffer[i + 1] == '('
446                 && buffer[i + 2] == 'B')
447        {
448            skip += 2;
449        }
450
451        /* Interpret escape commands, as per Standard ECMA-48 "Control
452         * Functions for Coded Character Sets", 5.4. Control sequences. */
453        else if(buffer[i] == '\x1b' && buffer[i + 1] == '[')
454        {
455            unsigned int argc = 0, argv[101];
456            unsigned int param, inter, final;
457
458        /* Compute offsets to parameter bytes, intermediate bytes and
459         * to the final byte. Only the final byte is mandatory, there
460         * can be zero of the others.
461         * 0  param=2             inter                 final           final+1
462         * +-----+------------------+---------------------+-----------------+
463         * | CSI | parameter bytes  | intermediate bytes  |   final byte    |
464         * |     |   0x30 - 0x3f    |    0x20 - 0x2f      |   0x40 - 0x7e   |
465         * | ^[[ | 0123456789:;<=>? | SPC !"#$%&'()*+,-./ | azAZ@[\]^_`{|}~ |
466         * +-----+------------------+---------------------+-----------------+
467         */
468            param = 2;
469
470            for(inter = param; i + inter < size; inter++)
471                if(buffer[i + inter] < 0x30 || buffer[i + inter] > 0x3f)
472                    break;
473
474            for(final = inter; i + final < size; final++)
475                if(buffer[i + final] < 0x20 || buffer[i + final] > 0x2f)
476                    break;
477
478            if(i + final >= size
479                || buffer[i + final] < 0x40 || buffer[i + final] > 0x7e)
480                break; /* Invalid Final Byte */
481
482            skip += final;
483
484            /* Sanity checks */
485            if(param < inter && buffer[i + param] >= 0x3c)
486            {
487                /* Private sequence, only parse what we know */
488                debug("ansi import: private sequence \"^[[%.*s\"",
489                      final - param + 1, buffer + i + param);
490                continue; /* Private sequence, skip it entirely */
491            }
492
493            if(final - param > 100)
494                continue; /* Suspiciously long sequence, skip it */
495
496            /* Parse parameter bytes as per ECMA-48 5.4.2: Parameter string
497             * format */
498            if(param < inter)
499            {
500                argv[0] = 0;
501                for(j = param; j < inter; j++)
502                {
503                    if(buffer[i + j] == ';')
504                        argv[++argc] = 0;
505                    else if(buffer[i + j] >= '0' && buffer[i + j] <= '9')
506                        argv[argc] = 10 * argv[argc] + (buffer[i + j] - '0');
507                }
508                argc++;
509            }
510
511            /* Interpret final byte. The code representations are given in
512             * ECMA-48 5.4: Control sequences, and the code definitions are
513             * given in ECMA-48 8.3: Definition of control functions. */
514            switch(buffer[i + final])
515            {
516            case 'H': /* CUP (0x48) - Cursor Position */
517                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
518                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
519                break;
520            case 'A': /* CUU (0x41) - Cursor Up */
521                y -= argc ? argv[0] : 1;
522                if(y < 0)
523                    y = 0;
524                break;
525            case 'B': /* CUD (0x42) - Cursor Down */
526                y += argc ? argv[0] : 1;
527                break;
528            case 'C': /* CUF (0x43) - Cursor Right */
529                x += argc ? argv[0] : 1;
530                break;
531            case 'D': /* CUB (0x44) - Cursor Left */
532                x -= argc ? argv[0] : 1;
533                if(x < 0)
534                    x = 0;
535                break;
536            case 'G': /* CHA (0x47) - Cursor Character Absolute */
537                x = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
538                break;
539            case 'J': /* ED (0x4a) - Erase In Page */
540                savedattr = cucul_get_attr(cv, -1, -1);
541                cucul_set_attr(cv, clearattr);
542                if(!argc || argv[0] == 0)
543                {
544                    cucul_draw_line(cv, x, y, width, y, ' ');
545                    cucul_fill_box(cv, 0, y + 1, width - 1, height - 1, ' ');
546                }
547                else if(argv[0] == 1)
548                {
549                    cucul_fill_box(cv, 0, 0, width - 1, y - 1, ' ');
550                    cucul_draw_line(cv, 0, y, x, y, ' ');
551                }
552                else if(argv[0] == 2)
553                    //x = y = 0;
554                    cucul_fill_box(cv, 0, 0, width - 1, height - 1, ' ');
555                cucul_set_attr(cv, savedattr);
556                break;
557            case 'K': /* EL (0x4b) - Erase In Line */
558                if(!argc || argv[0] == 0)
559                    cucul_draw_line(cv, x, y, width, y, ' ');
560                else if(argv[0] == 1)
561                    cucul_draw_line(cv, 0, y, x, y, ' ');
562                else if(argv[0] == 2)
563                    if((unsigned int)x < width)
564                        cucul_draw_line(cv, x, y, width - 1, y, ' ');
565                //x = width;
566                break;
567            case 'P': /* DCH (0x50) - Delete Character */
568                if(!argc || argv[0] == 0)
569                    argv[0] = 1; /* echo -ne 'foobar\r\e[0P\n' */
570                for(j = 0; (unsigned int)(j + argv[0]) < width; j++)
571                {
572                    cucul_put_char(cv, j, y,
573                                   cucul_get_char(cv, j + argv[0], y));
574                    cucul_put_attr(cv, j, y,
575                                   cucul_get_attr(cv, j + argv[0], y));
576                }
577#if 0
578                savedattr = cucul_get_attr(cv, -1, -1);
579                cucul_set_attr(cv, clearattr);
580                for( ; (unsigned int)j < width; j++)
581                    cucul_put_char(cv, j, y, ' ');
582                cucul_set_attr(cv, savedattr);
583#endif
584            case 'X': /* ECH (0x58) - Erase Character */
585                if(argc && argv[0])
586                {
587                    savedattr = cucul_get_attr(cv, -1, -1);
588                    cucul_set_attr(cv, clearattr);
589                    cucul_draw_line(cv, x, y, x + argv[0] - 1, y, ' ');
590                    cucul_set_attr(cv, savedattr);
591                }
592            case 'd': /* VPA (0x64) - Line Position Absolute */
593                y = (argc && argv[0] > 0) ? argv[0] - 1 : 0;
594                break;
595            case 'f': /* HVP (0x66) - Character And Line Position */
596                x = (argc > 1 && argv[1] > 0) ? argv[1] - 1 : 0;
597                y = (argc > 0 && argv[0] > 0) ? argv[0] - 1 : 0;
598                break;
599            case 'h': /* SM (0x68) - FIXME */
600                debug("ansi import: set mode %i", argc ? (int)argv[0] : -1);
601                break;
602            case 'l': /* RM (0x6c) - FIXME */
603                debug("ansi import: reset mode %i", argc ? (int)argv[0] : -1);
604                break;
605            case 'm': /* SGR (0x6d) - Select Graphic Rendition */
606                ansi_parse_grcm(cv, &grcm, argc, argv);
607                break;
608            case 's': /* Private (save cursor position) */
609                save_x = x;
610                save_y = y;
611                break;
612            case 'u': /* Private (reload cursor position) */
613                x = save_x;
614                y = save_y;
615                break;
616            default:
617                debug("ansi import: unknown command \"^[[%.*s\"",
618                      final - param + 1, buffer + i + param);
619                break;
620            }
621        }
622
623        /* Get the character we’re going to paste */
624        else if(utf8)
625        {
626            unsigned int bytes;
627
628            if(i + 6 < size)
629                ch = cucul_utf8_to_utf32((char const *)(buffer + i), &bytes);
630            else
631            {
632                /* Add a trailing zero to what we're going to read */
633                char tmp[7];
634                memcpy(tmp, buffer + i, size - i);
635                tmp[size - i] = '\0';
636                ch = cucul_utf8_to_utf32(tmp, &bytes);
637            }
638
639            if(!bytes)
640            {
641                /* If the Unicode is invalid, assume it was latin1. */
642                ch = buffer[i];
643                bytes = 1;
644            }
645            wch = cucul_utf32_is_fullwidth(ch) ? 2 : 1;
646            skip += bytes - 1;
647        }
648        else
649        {
650            ch = cucul_cp437_to_utf32(buffer[i]);
651            wch = 1;
652        }
653
654        /* Wrap long lines or grow horizontally */
655        while((unsigned int)x + wch > width)
656        {
657            if(growx)
658            {
659                savedattr = cucul_get_attr(cv, -1, -1);
660                cucul_set_attr(cv, clearattr);
661                cucul_set_canvas_size(cv, width = x + wch, height);
662                cucul_set_attr(cv, savedattr);
663            }
664            else
665            {
666                x -= width;
667                y++;
668            }
669        }
670
671        /* Scroll or grow vertically */
672        if((unsigned int)y >= height)
673        {
674            savedattr = cucul_get_attr(cv, -1, -1);
675            cucul_set_attr(cv, clearattr);
676            if(growy)
677            {
678                cucul_set_canvas_size(cv, width, height = y + 1);
679            }
680            else
681            {
682                int lines = (y - height) + 1;
683
684                for(j = 0; j + lines < height; j++)
685                {
686                    memcpy(cv->attrs + j * cv->width,
687                           cv->attrs + (j + lines) * cv->width, cv->width * 4);
688                    memcpy(cv->chars + j * cv->width,
689                           cv->chars + (j + lines) * cv->width, cv->width * 4);
690                }
691                cucul_fill_box(cv, 0, height - lines,
692                                   cv->width - 1, height - 1, ' ');
693                y -= lines;
694            }
695            cucul_set_attr(cv, savedattr);
696        }
697
698        /* Now paste our character, if any */
699        if(wch)
700        {
701            cucul_put_char(cv, x, y, ch);
702            x += wch;
703        }
704    }
705
706    if(growy && (unsigned int)y > height)
707    {
708        savedattr = cucul_get_attr(cv, -1, -1);
709        cucul_set_attr(cv, clearattr);
710        cucul_set_canvas_size(cv, width, height = y);
711        cucul_set_attr(cv, savedattr);
712    }
713
714    cv->frames[cv->frame].x = x;
715    cv->frames[cv->frame].y = y;
716
717    if(utf8)
718        cucul_set_attr(cv, savedattr);
719
720    return i;
721}
722
723/* XXX : ANSI loader helper */
724
725static void ansi_parse_grcm(cucul_canvas_t *cv, struct ansi_grcm *g,
726                            unsigned int argc, unsigned int const *argv)
727{
728    static uint8_t const ansi2cucul[] =
729    {
730        CUCUL_BLACK, CUCUL_RED, CUCUL_GREEN, CUCUL_BROWN,
731        CUCUL_BLUE, CUCUL_MAGENTA, CUCUL_CYAN, CUCUL_LIGHTGRAY
732    };
733
734    unsigned int j;
735
736    for(j = 0; j < argc; j++)
737    {
738        /* Defined in ECMA-48 8.3.117: SGR - SELECT GRAPHIC RENDITION */
739        if(argv[j] >= 30 && argv[j] <= 37)
740            g->fg = ansi2cucul[argv[j] - 30];
741        else if(argv[j] >= 40 && argv[j] <= 47)
742            g->bg = ansi2cucul[argv[j] - 40];
743        else if(argv[j] >= 90 && argv[j] <= 97)
744            g->fg = ansi2cucul[argv[j] - 90] + 8;
745        else if(argv[j] >= 100 && argv[j] <= 107)
746            g->bg = ansi2cucul[argv[j] - 100] + 8;
747        else switch(argv[j])
748        {
749        case 0: /* default rendition */
750            g->fg = g->dfg;
751            g->bg = g->dbg;
752            g->bold = g->blink = g->italics = 0;
753            g->negative = g->concealed = g->underline = 0;
754            break;
755        case 1: /* bold or increased intensity */
756            g->bold = 1;
757            break;
758        case 2: /* faint, decreased intensity or second colour */
759            break;
760        case 3: /* italicized */
761            g->italics = 1;
762            break;
763        case 4: /* singly underlined */
764            g->underline = 1;
765            break;
766        case 5: /* slowly blinking (less then 150 per minute) */
767        case 6: /* rapidly blinking (150 per minute or more) */
768            g->blink = 1;
769            break;
770        case 7: /* negative image */
771            g->negative = 1;
772            break;
773        case 8: /* concealed characters */
774            g->concealed = 1;
775            break;
776        case 9: /* crossed-out (characters still legible but marked as to be
777                 * deleted */
778            break;
779        case 21: /* doubly underlined */
780            g->underline = 1;
781            break;
782        case 22: /* normal colour or normal intensity (neither bold nor
783                  * faint) */
784            g->bold = 0;
785            break;
786        case 23: /* not italicized, not fraktur */
787            g->italics = 0;
788            break;
789        case 24: /* not underlined (neither singly nor doubly) */
790            g->underline = 0;
791            break;
792        case 25: /* steady (not blinking) */
793            g->blink = 0;
794            break;
795        case 26: /* (reserved for proportional spacing as specified in CCITT
796                  * Recommendation T.61) */
797            break;
798        case 27: /* positive image */
799            g->negative = 0;
800            break;
801        case 28: /* revealed characters */
802            g->concealed = 0;
803            break;
804        case 29: /* not crossed out */
805            break;
806        case 38: /* (reserved for future standardization, intended for setting
807                  * character foreground colour as specified in ISO 8613-6
808                  * [CCITT Recommendation T.416]) */
809            break;
810        case 39: /* default display colour (implementation-defined) */
811            g->fg = g->dfg;
812            break;
813        case 48: /* (reserved for future standardization, intended for setting
814                  * character background colour as specified in ISO 8613-6
815                  * [CCITT Recommendation T.416]) */
816            break;
817        case 49: /* default background colour (implementation-defined) */
818            g->bg = g->dbg;
819            break;
820        case 50: /* (reserved for cancelling the effect of the rendering
821                  * aspect established by parameter value 26) */
822            break;
823        default:
824            debug("ansi import: unknown sgr %i", argv[j]);
825            break;
826        }
827    }
828
829    if(g->concealed)
830    {
831        g->efg = g->ebg = CUCUL_TRANSPARENT;
832    }
833    else
834    {
835        g->efg = g->negative ? g->bg : g->fg;
836        g->ebg = g->negative ? g->fg : g->bg;
837
838        if(g->bold)
839        {
840            if(g->efg < 8)
841                g->efg += 8;
842            else if(g->efg == CUCUL_DEFAULT)
843                g->efg = CUCUL_WHITE;
844        }
845    }
846
847    cucul_set_color_ansi(cv, g->efg, g->ebg);
848}
849
Note: See TracBrowser for help on using the repository browser.