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

Last change on this file since 878 was 878, checked in by Jean-Yves Lamoureux, 15 years ago
  • _updated_coding_style(aBit);
  • Property svn:keywords set to Id
File size: 13.2 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 878 2006-04-25 15:39:13Z jylam $
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 cucul_canvas_t *import_caca(void const *, unsigned int);
31static cucul_canvas_t *import_text(void const *, unsigned int);
32static cucul_canvas_t *import_ansi(void const *, unsigned int);
33
34/** \brief Import a buffer into a canvas
35 *
36 *  This function imports a memory area into an internal libcucul canvas.
37 *
38 *  Valid values for \c format are:
39 *
40 *  \li \c "": attempt to autodetect the file format.
41 *
42 *  \li \c "ansi": import ANSI files.
43 *
44 *  \li \c "caca": import native libcaca files.
45 *
46 *  \param data The memory area to be loaded into a canvas.
47 *  \param size The length of the memory area.
48 *  \param format A string describing the input format.
49 *  \return A libcucul canvas, or NULL in case of error.
50 */
51cucul_canvas_t * cucul_import_canvas(void const *data, unsigned int size,
52                                     char const *format)
53{
54    char const *buf = (char const*) data;
55
56    if(size==0 || data==NULL)
57        return NULL;
58
59    if(!strcasecmp("caca", format))
60        return import_caca(data, size);
61    if(!strcasecmp("text", format))
62        return import_text(data, size);
63    if(!strcasecmp("ansi", format))
64        return import_ansi(data, size);
65
66    /* Autodetection */
67    if(!strcasecmp("", format))
68    {
69        /* if 4 first letters are CACA */
70        if(size >= 4 &&
71            buf[0] == 'C' && buf[1] == 'A' && buf[2] == 'C' && buf[3] != 'A')
72            return import_caca(data, size);
73
74        /* If 2 first characters are ESC[ (not reliable at all) */
75        if(size >= 2 && buf[0] == 0x1b && buf[1] == '[')
76            return import_ansi(data, size);
77
78        /* Otherwise, import it as text */
79        return import_text(data, size);
80    }
81    return NULL;
82}
83
84/** \brief Get available import formats
85 *
86 *  Return a list of available import formats. The list is a NULL-terminated
87 *  array of strings, interleaving a string containing the internal value for
88 *  the import format, to be used with cucul_import_canvas(), and a string
89 *  containing the natural language description for that import format.
90 *
91 *  \return An array of strings.
92 */
93char const * const * cucul_get_import_list(void)
94{
95    static char const * const list[] =
96    {
97        "", "autodetect",
98        "text", "plain text",
99        "caca", "native libcaca format",
100        "ansi", "ANSI coloured text",
101        NULL, NULL
102    };
103
104    return list;
105}
106
107/*
108 * XXX: the following functions are local.
109 */
110
111static cucul_canvas_t *import_caca(void const *data, unsigned int size)
112{
113    cucul_canvas_t *cv;
114    uint8_t const *buf = (uint8_t const *)data;
115    unsigned int width, height, n;
116
117    if(size < 16)
118        return NULL;
119
120    if(buf[0] != 'C' || buf[1] != 'A' || buf[2] != 'C' || buf[3] != 'A')
121        return NULL;
122
123    if(buf[4] != 'C' || buf[5] != 'A' || buf[6] != 'N' || buf[7] != 'V')
124        return NULL;
125
126    width = ((uint32_t)buf[8] << 24) | ((uint32_t)buf[9] << 16)
127           | ((uint32_t)buf[10] << 8) | (uint32_t)buf[11];
128    height = ((uint32_t)buf[12] << 24) | ((uint32_t)buf[13] << 16)
129            | ((uint32_t)buf[14] << 8) | (uint32_t)buf[15];
130
131    if(!width || !height)
132        return NULL;
133
134    if(size != 16 + width * height * 8)
135        return NULL;
136
137    cv = cucul_create_canvas(width, height);
138
139    if(!cv)
140        return NULL;
141
142    for(n = height * width; n--; )
143    {
144        cv->chars[n] = ((uint32_t)buf[16 + 0 + 8 * n] << 24)
145                     | ((uint32_t)buf[16 + 1 + 8 * n] << 16)
146                     | ((uint32_t)buf[16 + 2 + 8 * n] << 8)
147                     | (uint32_t)buf[16 + 3 + 8 * n];
148        cv->attr[n] = ((uint32_t)buf[16 + 4 + 8 * n] << 24)
149                    | ((uint32_t)buf[16 + 5 + 8 * n] << 16)
150                    | ((uint32_t)buf[16 + 6 + 8 * n] << 8)
151                    | (uint32_t)buf[16 + 7 + 8 * n];
152    }
153
154    return cv;
155}
156
157static cucul_canvas_t *import_text(void const *data, unsigned int size)
158{
159    cucul_canvas_t *cv;
160    char const *text = (char const *)data;
161    unsigned int width = 1, height = 1, x = 0, y = 0, i;
162
163    cv = cucul_create_canvas(width, height);
164    cucul_set_color(cv, CUCUL_COLOR_DEFAULT, CUCUL_COLOR_TRANSPARENT);
165
166    for(i = 0; i < size; i++)
167    {
168        unsigned char ch = *text++;
169
170        if(ch == '\r')
171            continue;
172
173        if(ch == '\n')
174        {
175            x = 0;
176            y++;
177            continue;
178        }
179
180        if(x >= width || y >= height)
181        {
182            if(x >= width)
183                width = x + 1;
184
185            if(y >= height)
186                height = y + 1;
187
188            cucul_set_canvas_size(cv, width, height);
189        }
190
191        cucul_putchar(cv, x, y, ch);
192        x++;
193    }
194
195    return cv;
196}
197
198#define IS_ALPHA(x) (x>='A' && x<='z')
199void _update_canvas_size(cucul_canvas_t *cv, int x, int y, int *max_x, int *max_y);
200unsigned char _get_ansi_command(unsigned char const *buffer, int size);
201int _parse_tuple(unsigned int *ret, unsigned char const *buffer, int size);
202void _manage_modifiers(char c, int *fg, int *bg, int *old_fg, int *old_bg);
203
204static cucul_canvas_t *import_ansi(void const *data, unsigned int size)
205{
206    cucul_canvas_t *cv;
207    unsigned char const *buffer = (unsigned char const*)data;
208    unsigned int i, sent_size = 0;
209    unsigned char c;
210    unsigned int count = 0;
211    unsigned int tuple[1024]; /* Should be enough. Will it be ? */
212    int x = 0, y = 0, max_x = 80, max_y = 25;
213    int save_x = 0, save_y = 0;
214    unsigned int j, add = 0;
215    int fg, bg, old_fg, old_bg;
216
217    fg = old_fg = CUCUL_COLOR_LIGHTGRAY;
218    bg = old_bg = CUCUL_COLOR_BLACK;
219
220    cv = cucul_create_canvas(max_x, max_y);
221
222    for(i = 0; i < size; i++)
223    {
224        if((buffer[i] == 0x1b) && (buffer[i + 1] == '['))  /* ESC code */
225        {
226            i++; // ESC
227            i++; // [
228            sent_size = size - i;
229            c = _get_ansi_command(&buffer[i], sent_size);
230            add = _parse_tuple(tuple, &buffer[i], sent_size);
231            count = 0;
232
233            while(tuple[count] != 0x1337)
234                count++;  /* Gruik */
235
236            switch(c)
237            {
238            case 'f':
239            case 'H':
240                if(tuple[0] != 0x1337)
241                {
242                    x = tuple[0];
243                    if(tuple[1] != 0x1337)
244                        y = tuple[1];
245                }
246                else
247                {
248                    x = 0;
249                    y = 0;
250                }
251                _update_canvas_size(cv, x, y, &max_x, &max_y);
252                break;
253            case 'A':
254                if(tuple[0] == 0x1337)
255                    y -= 1;
256                else
257                    y -= tuple[0];
258                if(y < 0) y = 0;
259                _update_canvas_size(cv, x, y, &max_x, &max_y);
260                break;
261            case 'B':
262                if(tuple[0] == 0x1337)
263                    y++;
264                else
265                    y += tuple[0];
266                _update_canvas_size(cv, x, y, &max_x, &max_y);
267                break;
268            case 'C':
269                if(tuple[0] == 0x1337)
270                    x++;
271                else
272                    x += tuple[0];
273                _update_canvas_size(cv, x, y, &max_x, &max_y);
274                break;
275            case 'D':
276                if(tuple[0] == 0x1337)
277                    x--;
278                else
279                    x -= tuple[0];
280                if(x < 0) x = 0;
281                _update_canvas_size(cv, x, y, &max_x, &max_y);
282                break;
283            case 's':
284                save_x = x;
285                save_y = y;
286                break;
287            case 'u':
288                x = save_x;
289                y = save_y;
290                _update_canvas_size(cv, x, y, &max_x, &max_y);
291                break;
292            case 'J':
293                if(tuple[0] == 2)
294                {
295                    x = 0;
296                    y = 0;
297                    _update_canvas_size(cv, x, y, &max_x, &max_y);
298                }
299                break;
300            case 'K':
301                // CLEAR END OF LINE
302                break;
303            case 'm':
304                for(j = 0; j < count; j++)
305                    _manage_modifiers(tuple[j], &fg, &bg, &old_fg, &old_bg);
306                cucul_set_color(cv, fg, bg);
307                break;
308            default:
309                /*printf("Unknow command %c (%c)\n", c, IS_ALPHA(c)?c:'.');*/
310                break;
311            }
312        }
313        else
314        {
315            if(buffer[i] == '\n')
316            {
317                x = 0;
318                y++;
319                _update_canvas_size(cv, x, y, &max_x, &max_y);
320            }
321            else if(buffer[i] == '\r')
322            {
323                    // DOS sucks.
324            }
325            else
326            {
327                if((buffer[i] >= 0x20) || (buffer[i] <= 0x7E))
328                {
329                    _cucul_putchar32(cv, x, y,_cucul_cp437_to_utf32(buffer[i]));
330
331                    //  cucul_putchar(cv, x, y, buffer[i]);
332                }
333                else
334                    cucul_putchar(cv, x, y, '?');
335                x++;
336                _update_canvas_size(cv, x, y, &max_x, &max_y);
337            }
338        }
339
340        i += add; // add is tuple char count, then +[ +command
341        add = 0;
342    }
343
344    return cv;
345}
346
347/* XXX : ANSI loader helpers */
348
349unsigned char _get_ansi_command(unsigned char const *buffer, int size)
350{
351    int i;
352
353    for(i = 0; i < size; i++)
354        if(IS_ALPHA(buffer[i]))
355            return buffer[i];
356
357    return 0;
358}
359
360int _parse_tuple(unsigned int *ret, unsigned char const *buffer, int size)
361{
362    int i = 0;
363    int j = 0;
364    int t = 0;
365    unsigned char nbr[1024];
366
367    ret[0] = 0x1337;
368
369    for(i = 0; i < size; i++)
370    {
371        if(IS_ALPHA(buffer[i]))
372        {
373            if(j != 0)
374            {
375                ret[t] = atoi((char*)nbr);
376                t++;
377            }
378            ret[t] = 0x1337;
379            j = 0;
380            return i;
381        }
382
383        if(buffer[i] != ';')
384        {
385            nbr[j] = buffer[i];
386            nbr[j + 1] = 0;
387            j++;
388        }
389        else
390        {
391            ret[t] = atoi((char*)nbr);
392            t++;
393            ret[t] = 0x1337;
394            j = 0;
395        }
396    }
397    return size;
398}
399
400
401
402void _manage_modifiers(char c, int *fg, int *bg, int *old_fg, int *old_bg)
403{
404    switch(c)
405    {
406    case 0:
407        *fg = CUCUL_COLOR_DEFAULT;
408        *bg = CUCUL_COLOR_DEFAULT;
409        break;
410    case 1: // BOLD
411        break;
412    case 4: // Underline
413        break;
414    case 5: // blink
415        break;
416    case 7: // reverse
417        *fg = 15 - *fg;
418        *bg = 15 - *bg;
419        break;
420    case 8: // invisible
421        *old_fg = *fg;
422        *old_bg = *bg;
423        *fg = CUCUL_COLOR_TRANSPARENT;
424        *bg = CUCUL_COLOR_TRANSPARENT;
425        break;
426    case 28: // not invisible
427        *fg = *old_fg;
428        *bg = *old_bg;
429        break;
430    case 30: *fg = CUCUL_COLOR_BLACK; break;
431    case 31: *fg = CUCUL_COLOR_RED; break;
432    case 32: *fg = CUCUL_COLOR_GREEN; break;
433    case 33: *fg = CUCUL_COLOR_BROWN; break;
434    case 34: *fg = CUCUL_COLOR_BLUE; break;
435    case 35: *fg = CUCUL_COLOR_MAGENTA; break;
436    case 36: *fg = CUCUL_COLOR_CYAN; break;
437    case 37: *fg = CUCUL_COLOR_WHITE; break;
438    case 39: *fg = CUCUL_COLOR_LIGHTGRAY; break;
439    case 40: *bg = CUCUL_COLOR_BLACK; break;
440    case 41: *bg = CUCUL_COLOR_RED; break;
441    case 42: *bg = CUCUL_COLOR_GREEN; break;
442    case 43: *bg = CUCUL_COLOR_BROWN; break;
443    case 44: *bg = CUCUL_COLOR_BLUE; break;
444    case 45: *bg = CUCUL_COLOR_MAGENTA; break;
445    case 46: *bg = CUCUL_COLOR_CYAN; break;
446    case 47: *bg = CUCUL_COLOR_WHITE; break;
447    case 49: *bg = CUCUL_COLOR_BLACK; break;
448
449    case 90: *fg = CUCUL_COLOR_DARKGRAY; break;
450    case 91: *fg = CUCUL_COLOR_LIGHTRED; break;
451    case 92: *fg = CUCUL_COLOR_LIGHTGREEN; break;
452    case 93: *fg = CUCUL_COLOR_YELLOW; break;
453    case 94: *fg = CUCUL_COLOR_LIGHTBLUE; break;
454    case 95: *fg = CUCUL_COLOR_LIGHTMAGENTA; break;
455    case 96: *fg = CUCUL_COLOR_LIGHTCYAN; break;
456    case 97: *fg = CUCUL_COLOR_WHITE; break;
457    case 100: *bg = CUCUL_COLOR_DARKGRAY; break;
458    case 101: *bg = CUCUL_COLOR_LIGHTRED; break;
459    case 102: *bg = CUCUL_COLOR_LIGHTGREEN; break;
460    case 103: *bg = CUCUL_COLOR_YELLOW; break;
461    case 104: *bg = CUCUL_COLOR_LIGHTBLUE; break;
462    case 105: *bg = CUCUL_COLOR_LIGHTMAGENTA; break;
463    case 106: *bg = CUCUL_COLOR_LIGHTCYAN; break;
464    case 107: *bg = CUCUL_COLOR_WHITE; break;
465
466    default:
467        /*   printf("Unknow option to 'm' %d (%c)\n", c, IS_ALPHA(c)?c:'.'); */
468        break;
469    }
470}
471
472void _update_canvas_size(cucul_canvas_t *cv, int x, int y, int *max_x, int *max_y)
473{
474    if(x > *max_x)
475        *max_x = x;
476
477    if(y > *max_y)
478        *max_y = y;
479
480    cucul_set_canvas_size(cv, *max_x, *max_y);
481}
482
Note: See TracBrowser for help on using the repository browser.