source: libcaca/trunk/cucul/charset.c @ 1452

Last change on this file since 1452 was 1452, checked in by Sam Hocevar, 13 years ago
  • Add a no warranty clause to the code.
  • Property svn:keywords set to Id
File size: 8.6 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: charset.c 1452 2006-12-11 15:48:46Z sam $
7 *
8 *  This library is free software. It commes 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 functions for converting characters between
17 *  various character sets.
18 */
19
20#include "config.h"
21#include "common.h"
22
23#if !defined(__KERNEL__)
24#   include <string.h>
25#endif
26
27#include "cucul.h"
28#include "cucul_internals.h"
29
30/*
31 * UTF-8 handling
32 */
33
34static char const trailing[256] =
35{
36    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
37    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
38    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
39    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
40    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
41    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
42    1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
43    2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 3,3,3,3,3,3,3,3,4,4,4,4,5,5,5,5
44};
45
46static uint32_t const offsets[6] =
47{
48    0x00000000UL, 0x00003080UL, 0x000E2080UL,
49    0x03C82080UL, 0xFA082080UL, 0x82082080UL
50};
51
52/*
53 * CP437 handling
54 */
55
56static uint32_t const cp437_lookup1[] =
57{
58    /* 0x01 - 0x0f: ☺ ☻ ♥ ♦ ♣ ♠ • ◘ ○ ◙ ♂ ♀ ♪ ♫ ☼ */
59            0x263a, 0x263b, 0x2665, 0x2666, 0x2663, 0x2660, 0x2022,
60    0x25d8, 0x25cb, 0x25d9, 0x2642, 0x2640, 0x266a, 0x266b, 0x263c,
61    /* 0x10 - 0x1f: ► ◄ ↕ ‼ ¶ § ▬ ↨ ↑ ↓ → ← ∟ ↔ ▲ ▼ */
62    0x25ba, 0x25c4, 0x2195, 0x203c, 0xb6, 0xa7, 0x25ac, 0x21a8,
63    0x2191, 0x2193, 0x2192, 0x2190, 0x221f, 0x2194, 0x25b2, 0x25bc
64};
65
66static uint32_t const cp437_lookup2[] =
67{
68    /* 0x7f: ⌂ */
69    0x2302,
70    /* 0x80 - 0x8f: Ç ü é â ä à å ç ê ë è ï î ì Ä Å */
71    0xc7, 0xfc, 0xe9, 0xe2, 0xe4, 0xe0, 0xe5, 0xe7,
72    0xea, 0xeb, 0xe8, 0xef, 0xee, 0xec, 0xc4, 0xc5,
73    /* 0x90 - 0x9f: É æ Æ ô ö ò û ù ÿ Ö Ü ¢ £ ¥ ₧ ƒ */
74    0xc9, 0xe6, 0xc6, 0xf4, 0xf6, 0xf2, 0xfb, 0xf9,
75    0xff, 0xd6, 0xdc, 0xa2, 0xa3, 0xa5, 0x20a7, 0x192,
76    /* 0xa0 - 0xaf: á í ó ú ñ Ñ ª º ¿ ⌐ ¬ ½ ¼ ¡ « » */
77    0xe1, 0xed, 0xf3, 0xfa, 0xf1, 0xd1, 0xaa, 0xba,
78    0xbf, 0x2310, 0xac, 0xbd, 0xbc, 0xa1, 0xab, 0xbb,
79    /* 0xb0 - 0xbf: ░ ▒ ▓ │ ┤ ╡ ╢ ╖ ╕ ╣ ║ ╗ ╝ ╜ ╛ ┐ */
80    0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
81    0x2555, 0x2563, 0x2551, 0x2557, 0x255d, 0x255c, 0x255b, 0x2510,
82    /* 0xc0 - 0xcf: └ ┴ ┬ ├ ─ ┼ ╞ ╟ ╚ ╔ ╩ ╦ ╠ ═ ╬ ╧ */
83    0x2514, 0x2534, 0x252c, 0x251c, 0x2500, 0x253c, 0x255e, 0x255f,
84    0x255a, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256c, 0x2567,
85    /* 0xd0 - 0xdf: ╨ ╤ ╥ ╙ ╘ ╒ ╓ ╫ ╪ ┘ ┌ █ ▄ ▌ ▐ ▀ */
86    0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256b,
87    0x256a, 0x2518, 0x250c, 0x2588, 0x2584, 0x258c, 0x2590, 0x2580,
88    /* 0xe0 - 0xef: α ß Γ π Σ σ µ τ Φ Θ Ω δ ∞ φ ε ∩ */
89    0x3b1, 0xdf, 0x393, 0x3c0, 0x3a3, 0x3c3, 0xb5, 0x3c4,
90    0x3a6, 0x398, 0x3a9, 0x3b4, 0x221e, 0x3c6, 0x3b5, 0x2229,
91    /* 0xf0 - 0xff: ≡ ± ≥ ≤ ⌠ ⌡ ÷ ≈ ° ∙ · √ ⁿ ² ■ <nbsp> */
92    0x2261, 0xb1, 0x2265, 0x2264, 0x2320, 0x2321, 0xf7, 0x2248,
93    0xb0, 0x2219, 0xb7, 0x221a, 0x207f, 0xb2, 0x25a0, 0xa0
94};
95
96/** \brief Convert a UTF-8 character to UTF-32.
97 *
98 *  Convert a UTF-8 character read from a string and return its value in
99 *  the UTF-32 character set. If the second argument is not null, the total
100 *  number of read bytes is written in it.
101 *
102 *  If a null byte was reached before the expected end of the UTF-8 sequence,
103 *  this function returns zero and the number of read bytes is set to zero.
104 *
105 *  This function never fails, but its behaviour with illegal UTF-8 sequences
106 *  is undefined.
107 *
108 *  \param s A string containing the UTF-8 character.
109 *  \param read A pointer to an unsigned integer to store the number of
110 *  bytes in the character, or NULL.
111 *  \return The corresponding UTF-32 character, or zero if the character
112 *  is incomplete.
113 */
114unsigned long int cucul_utf8_to_utf32(char const *s, unsigned int *read)
115{
116    unsigned int bytes = trailing[(int)(unsigned char)*s];
117    unsigned int i = 0;
118    uint32_t ret = 0;
119
120    for(;;)
121    {
122        if(!*s)
123        {
124            if(read)
125                *read = 0;
126            return 0;
127        }
128
129        ret += ((uint32_t)(unsigned char)*s++) << (6 * (bytes - i));
130
131        if(bytes == i++)
132        {
133            if(read)
134                *read = i;
135            return ret - offsets[bytes];
136        }
137    }
138}
139
140/** \brief Convert a UTF-32 character to UTF-8.
141 *
142 *  Convert a UTF-32 character read from a string and write its value in
143 *  the UTF-8 character set into the given buffer.
144 *
145 *  This function never fails, but its behaviour with illegal UTF-32 characters
146 *  is undefined.
147 *
148 *  \param buf A pointer to a character buffer where the UTF-8 sequence will
149 *  be written.
150 *  \param ch The UTF-32 character.
151 *  \return The number of bytes written.
152 */
153unsigned int cucul_utf32_to_utf8(char *buf, unsigned long int ch)
154{
155    static const uint8_t mark[7] =
156    {
157        0x00, 0x00, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC
158    };
159
160    char *parser = buf;
161    int bytes;
162
163    if(ch < 0x80)
164    {
165        *parser++ = ch;
166        return 1;
167    }
168
169    bytes = (ch < 0x800) ? 2 : (ch < 0x10000) ? 3 : 4;
170    parser += bytes;
171
172    switch(bytes)
173    {
174        case 4: *--parser = (ch | 0x80) & 0xbf; ch >>= 6;
175        case 3: *--parser = (ch | 0x80) & 0xbf; ch >>= 6;
176        case 2: *--parser = (ch | 0x80) & 0xbf; ch >>= 6;
177    }
178    *--parser = ch | mark[bytes];
179
180    return bytes;
181}
182
183/** \brief Convert a UTF-32 character to CP437.
184 *
185 *  Convert a UTF-32 character read from a string and return its value in
186 *  the CP437 character set, or "?" if the character has no equivalent.
187 *
188 *  This function never fails.
189 *
190 *  \param ch The UTF-32 character.
191 *  \return The corresponding CP437 character, or "?" if not representable.
192 */
193unsigned char cucul_utf32_to_cp437(unsigned long int ch)
194{
195    unsigned int i;
196
197    if(ch < 0x00000020)
198        return '?';
199
200    if(ch < 0x00000080)
201        return ch;
202
203    for(i = 0; i < sizeof(cp437_lookup1) / sizeof(*cp437_lookup1); i++)
204        if(cp437_lookup1[i] == ch)
205            return 0x01 + i;
206
207    for(i = 0; i < sizeof(cp437_lookup2) / sizeof(*cp437_lookup2); i++)
208        if(cp437_lookup2[i] == ch)
209            return 0x7f + i;
210
211    return '?';
212}
213
214/** \brief Convert a CP437 character to UTF-32.
215 *
216 *  Convert a CP437 character read from a string and return its value in
217 *  the UTF-32 character set, or zero if the character is a CP437 control
218 *  character.
219 *
220 *  This function never fails.
221 *
222 *  \param ch The CP437 character.
223 *  \return The corresponding UTF-32 character, or zero if not representable.
224 */
225unsigned long int cucul_cp437_to_utf32(unsigned char ch)
226{
227    if(ch > 0x7f)
228        return cp437_lookup2[ch - 0x7f];
229
230    if(ch >= 0x20)
231        return (uint32_t)ch;
232
233    if(ch > 0)
234        return cp437_lookup1[ch - 0x01];
235
236    return 0x00000000;
237}
238
239/** \brief Tell whether a UTF-32 character is fullwidth.
240 *
241 *  Check whether the given UTF-32 character should be printed at twice
242 *  the normal width (fullwidth characters). If the character is unknown
243 *  or if its status cannot be decided, it is treated as a standard-width
244 *  character.
245 *
246 *  This function never fails.
247 *
248 *  \param ch The UTF-32 character.
249 *  \return 1 if the character is fullwidth, 0 otherwise.
250 */
251int cucul_utf32_is_fullwidth(unsigned long int ch)
252{
253    if(ch < 0x2e80) /* Standard stuff */
254        return 0;
255    if(ch < 0xa700) /* Japanese, Korean, CJK, Yi... */
256        return 1;
257    if(ch < 0xac00) /* Modified Tone Letters, Syloti Nagri */
258        return 0;
259    if(ch < 0xd800) /* Hangul Syllables */
260        return 1;
261    if(ch < 0xf900) /* Misc crap */
262        return 0;
263    if(ch < 0xfb00) /* More CJK */
264        return 1;
265    if(ch < 0xfe20) /* Misc crap */
266        return 0;
267    if(ch < 0xfe70) /* More CJK */
268        return 1;
269    if(ch < 0xff00) /* Misc crap */
270        return 0;
271    if(ch < 0xff61) /* Fullwidth forms */
272        return 1;
273    if(ch < 0xffe0) /* Halfwidth forms */
274        return 0;
275    if(ch < 0xffe8) /* More fullwidth forms */
276        return 1;
277    if(ch < 0x20000) /* Misc crap */
278        return 0;
279    if(ch < 0xe0000) /* More CJK */
280        return 1;
281    return 0;
282}
283
Note: See TracBrowser for help on using the repository browser.