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

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