source: libcaca/trunk/caca/codec/import.c @ 3478

Last change on this file since 3478 was 3478, checked in by Pascal Terjan, 11 years ago

Import/export dirty rectangles

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