| #include <iconv.h> |
| #include <errno.h> |
| #include <wchar.h> |
| #include <string.h> |
| #include <stdlib.h> |
| #include <limits.h> |
| #include <stdint.h> |
| |
| #define UTF_32BE 000 |
| #define UTF_16LE 001 |
| #define UTF_16BE 002 |
| #define UTF_32LE 003 |
| #define UCS2BE 004 |
| #define UCS2LE 005 |
| #define WCHAR_T 007 |
| |
| #define US_ASCII 021 |
| #define UTF_8 022 |
| #define LATIN_9 024 |
| #define TIS_620 025 |
| #define JIS_0201 026 |
| |
| #define EUC 031 |
| #define EUC_TW 032 |
| #define SHIFT_JIS 033 |
| #define BIG5 034 |
| #define GBK 035 |
| |
| /* FIXME: these are not implemented yet |
| * EUC: A1-FE A1-FE |
| * GBK: 81-FE 40-7E,80-FE |
| * Big5: A1-FE 40-7E,A1-FE |
| */ |
| |
| /* Definitions of charmaps. Each charmap consists of: |
| * 1. Empty-string-terminated list of null-terminated aliases. |
| * 2. Special type code or bits per character. |
| * 3. Number of elided entries (128 for specials). |
| * 4. Character table (size determined by fields 2 and 3). */ |
| |
| static const unsigned char charmaps[] = |
| "utf8\0\0\022\x80" |
| "wchart\0\0\007\x80" |
| |
| "ucs2\0ucs2be\0\0\004\x80" |
| "ucs2le\0\0\005\x80" |
| |
| "utf16\0utf16be\0\0\002\x80" |
| "utf16le\0\0\001\x80" |
| |
| "ucs4\0ucs4be\0utf32\0utf32be\0\0\000\x80" |
| "ucs4le\0utf32le\0\0\003\x80" |
| |
| "ascii\0iso646\0usascii\0\0\021\x80" |
| "latin1\0iso88591\0\0\x09\x80" |
| "latin9\0iso885915\0\0\024\x80" |
| "tis620\0iso885911\0\0\025\x80" |
| "jis0201\0\0\026\x80" |
| |
| "iso88592\0\0\x0a\x21" |
| "\x04\x61\x1b\x14\x29\x3d\x69\x75\x0a\x2a" |
| "\x60\x79\x45\x56\x5e\xad\xf4\xb5\x17\x2c" |
| "\x05\x6d\x2b\x14\x2d\x3e\x6d\x75\x2c\x2e" |
| "\x61\x7d\x55\x96\x5e\xdd\xfa\xc5\x17\x55" |
| "\xc1\x08\x23\x10\x31\x39\x19\x74\x0c\x43" |
| "\xc9\x60\xb4\x8c\x46\xcd\x38\xe3\x10\x44" |
| "\x43\x1d\x35\x0d\x35\x50\x59\x73\x0d\x56" |
| "\x6e\x69\x03\x17\x37\xdd\x88\xf5\x4d\x55" |
| "\xe1\x88\x33\x10\x39\x3a\x1d\x74\x4e\x43" |
| "\xe9\x64\xb4\xce\x46\xed\xb8\xf3\x50\x44" |
| "\x44\x21\x35\x0f\x3d\x51\xd9\x73\x4f\x56" |
| "\x6f\xe9\x13\x17\x3f\xfd\x8c\x95\x2d" |
| |
| "iso88593\0\0\x0a\x21" |
| "\x26\x61\x3b\x0a\x29\x00\x90\x74\x0a\x2a" |
| "\x30\x79\xe5\x11\x4d\xad\x00\xb0\x17\x2c" |
| "\x27\xc9\x32\x0b\x2d\xb5\x94\x74\x0b\x2e" |
| "\x31\x7d\xf5\x51\x4d\xbd\x00\xc0\x17\x30" |
| "\xc1\x08\x03\x00\x31\x0a\x21\x74\x0c\x32" |
| "\xc9\x28\xb3\x0c\x33\xcd\x38\xf3\x0c\x00" |
| "\xd1\x48\x33\x0d\x35\x20\x59\x73\x0d\x47" |
| "\xd9\x68\xb3\x0d\x37\x6c\x71\xf5\x0d\x38" |
| "\xe1\x88\x03\x00\x39\x0b\x25\x74\x0e\x3a" |
| "\xe9\xa8\xb3\x0e\x3b\xed\xb8\xf3\x0e\x00" |
| "\xf1\xc8\x33\x0f\x3d\x21\xd9\x73\x4f\x47" |
| "\xf9\xe8\xb3\x0f\x3f\x6d\x75\x95\x2d" |
| |
| "iso88594\0\0\x0a\x21" |
| "\x04\xe1\x64\x15\x29\x28\xed\x74\x0a\x2a" |
| "\x60\x49\x24\x92\x59\xad\xf4\xf5\x0a\x2c" |
| "\x05\x6d\x7b\x15\x2d\x29\xf1\x74\x2c\x2e" |
| "\x61\x4d\x34\xd2\x59\x4a\xf9\xb5\x14\x40" |
| "\xc1\x08\x33\x0c\x31\xc5\x18\xe3\x12\x43" |
| "\xc9\x60\xb4\x8c\x45\xcd\x38\xa3\x12\x44" |
| "\x45\x31\x65\x13\x35\xd5\x58\x73\x0d\x36" |
| "\x72\x69\xb3\x0d\x37\x68\xa9\xf5\x4d\x40" |
| "\xe1\x88\x33\x0e\x39\xe5\x98\xf3\x52\x43" |
| "\xe9\x64\xb4\xce\x45\xed\xb8\xb3\x52\x44" |
| "\x46\x35\x75\x13\x3d\xf5\xd8\x73\x0f\x3e" |
| "\x73\xe9\xb3\x0f\x3f\x69\xad\x95\x2d" |
| |
| "iso88595\0\0\x0e\x21" |
| "\x01\x84\x00\x31\x40\x10\x10\x05\x84\x01" |
| "\x71\x40\x20\x10\x09\x84\x02\xb1\x40\x30" |
| "\x10\xad\x80\x03\xf1\x40\x40\x10\x11\x84" |
| "\x04\x31\x41\x50\x10\x15\x84\x05\x71\x41" |
| "\x60\x10\x19\x84\x06\xb1\x41\x70\x10\x1d" |
| "\x84\x07\xf1\x41\x80\x10\x21\x84\x08\x31" |
| "\x42\x90\x10\x25\x84\x09\x71\x42\xa0\x10" |
| "\x29\x84\x0a\xb1\x42\xb0\x10\x2d\x84\x0b" |
| "\xf1\x42\xc0\x10\x31\x84\x0c\x31\x43\xd0" |
| "\x10\x35\x84\x0d\x71\x43\xe0\x10\x39\x84" |
| "\x0e\xb1\x43\xf0\x10\x3d\x84\x0f\xf1\x43" |
| "\x00\x11\x41\x84\x10\x31\x44\x10\x11\x45" |
| "\x84\x11\x71\x44\x20\x11\x49\x84\x12\xb1" |
| "\x44\x30\x11\x4d\x84\x13\xf1\x44\x58\x84" |
| "\x51\x84\x14\x31\x45\x50\x11\x55\x84\x15" |
| "\x71\x45\x60\x11\x59\x84\x16\xb1\x45\x70" |
| "\x11\xa7\x80\x17\xf1\x45\x00" |
| |
| "iso88596\0\0\x0b\x21" |
| "\x00\x00\x00\x00\x48\x01\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x18\xdc\x0a\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\xc0\x86\x01\x00\x00" |
| "\x00\x7c\x18\x00\x21\x16\xf1\x88\x49\x5c" |
| "\x62\x13\x9f\x18\xc5\x29\x56\xf1\x8a\x59" |
| "\xdc\x62\x17\xbf\x18\xc6\x31\x96\xf1\x8c" |
| "\x69\x5c\x63\x1b\xdf\x18\xc7\x39\xd6\x31" |
| "\x00\x00\x00\x00\x00\x00\x00\xc8\x41\x16" |
| "\xf2\x90\x89\x5c\x64\x23\x1f\x19\xc9\x49" |
| "\x56\xf2\x92\x99\xdc\x64\x27\x3f\x19\xca" |
| "\x51\x96\x32\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00" |
| |
| "iso88597\0\0\x0e\x21" |
| "\x18\x60\x06\x38\x0a\xb0\x82\xaf\xa0\x29" |
| "\x70\x0a\xa0\x02\xa9\x80\xde\xb0\x0a\xb0" |
| "\x02\xad\x00\x00\x50\x01\xc2\x02\xb1\x80" |
| "\x2c\x30\x0b\x10\x0e\x85\x83\xe1\x70\x0b" |
| "\x20\x0e\x89\x83\xe2\xb0\x0b\x30\x0e\xbd" |
| "\x80\xe3\xf0\x38\x40\x0e\x91\x83\xe4\x30" |
| "\x39\x50\x0e\x95\x83\xe5\x70\x39\x60\x0e" |
| "\x99\x83\xe6\xb0\x39\x70\x0e\x9d\x83\xe7" |
| "\xf0\x39\x80\x0e\xa1\x03\x00\x30\x3a\x90" |
| "\x0e\xa5\x83\xe9\x70\x3a\xa0\x0e\xa9\x83" |
| "\xea\xb0\x3a\xb0\x0e\xad\x83\xeb\xf0\x3a" |
| "\xc0\x0e\xb1\x83\xec\x30\x3b\xd0\x0e\xb5" |
| "\x83\xed\x70\x3b\xe0\x0e\xb9\x83\xee\xb0" |
| "\x3b\xf0\x0e\xbd\x83\xef\xf0\x3b\x00\x0f" |
| "\xc1\x83\xf0\x30\x3c\x10\x0f\xc5\x83\xf1" |
| "\x70\x3c\x20\x0f\xc9\x83\xf2\xb0\x3c\x30" |
| "\x0f\xcd\x83\xf3\x00\x00\x00" |
| |
| "iso88598\0\0\x0e\x21" |
| "\x00\x80\x28\x30\x0a\x90\x02\xa5\x80\x29" |
| "\x70\x0a\xa0\x02\xa9\xc0\x35\xb0\x0a\xb0" |
| "\x02\xad\x80\x2b\xf0\x0a\xc0\x02\xb1\x80" |
| "\x2c\x30\x0b\xd0\x02\xb5\x80\x2d\x70\x0b" |
| "\xe0\x02\xb9\xc0\x3d\xb0\x0b\xf0\x02\xbd" |
| "\x80\x2f\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" |
| "\x00\x00\x00\x00\x00\x00\x00\x00\x70\x01" |
| "\x42\x17\xd1\x85\x74\x31\x5d\x50\x17\xd5" |
| "\x85\x75\x71\x5d\x60\x17\xd9\x85\x76\xb1" |
| "\x5d\x70\x17\xdd\x85\x77\xf1\x5d\x80\x17" |
| "\xe1\x85\x78\x31\x5e\x90\x17\xe5\x85\x79" |
| "\x71\x5e\xa0\x17\xe9\x85\x7a\x01\x00\x00" |
| "\x00\x0e\xe0\x03\x08\x00\x00" |
| |
| "iso88599\0\0\x09\x50" |
| "\x1e\xa3\x49\x9b\x46\xad\x9a\xb5\x6b\xd8" |
| "\xb2\x69\xdb\xc6\x0d\xa6\xd7\x6f\xe0\xc2" |
| "\x89\x1b\x47\xae\x9c\xb9\x73\xe8\xd2\xa9" |
| "\x5b\xc7\xae\x9d\xbb\x77\x1f\xe3\xc9\x9b" |
| "\x47\xaf\x9e\xbd\x7b\xf8\xf2\xe9\xdb\xc7" |
| "\x2f\xe6\xd7\x7f" |
| |
| "iso885910\0\0\x0e\x21" |
| "\x04\x81\x44\x20\x12\xa8\x04\x28\x81\x4d" |
| "\x70\x0a\xec\x04\x10\x01\x58\x60\x16\xf4" |
| "\x05\xad\x80\x5a\xa0\x14\xc0\x02\x05\xc1" |
| "\x44\x30\x12\xac\x04\x29\xc1\x4d\x70\x0b" |
| "\xf0\x04\x11\x41\x58\x70\x16\xf8\x05\x15" |
| "\xe0\x5a\xb0\x14\x00\x04\xc1\x80\x30\x30" |
| "\x0c\x10\x03\xc5\x80\x31\xe0\x12\x30\x04" |
| "\xc9\x00\x46\xb0\x0c\x58\x04\xcd\x80\x33" |
| "\xf0\x0c\x40\x03\x45\x01\x53\x30\x0d\x50" |
| "\x03\xd5\x80\x35\x80\x16\x60\x03\x72\x81" |
| "\x36\xb0\x0d\x70\x03\xdd\x80\x37\xf0\x0d" |
| "\x04\x04\xe1\x80\x38\x30\x0e\x90\x03\xe5" |
| "\x80\x39\xf0\x12\x34\x04\xe9\x40\x46\xb0" |
| "\x0e\x5c\x04\xed\x80\x3b\xf0\x0e\xc0\x03" |
| "\x46\x41\x53\x30\x0f\xd0\x03\xf5\x80\x3d" |
| "\x90\x16\xe0\x03\x73\x81\x3e\xb0\x0f\xf0" |
| "\x03\xfd\x80\x3f\x80\x13\x00" |
| |
| "iso885913\0\0\x0e\x21" |
| "\x1d\xa0\x28\x30\x0a\x90\x02\x1e\xa0\x29" |
| "\x70\x0a\x60\x03\xa9\x80\x55\xb0\x0a\xb0" |
| "\x02\xad\x80\x2b\x60\x0c\xc0\x02\xb1\x80" |
| "\x2c\x30\x0b\x70\x80\xb5\x80\x2d\x70\x0b" |
| "\xe0\x03\xb9\xc0\x55\xb0\x0b\xf0\x02\xbd" |
| "\x80\x2f\x60\x0e\x10\x04\x2e\x01\x40\x60" |
| "\x10\x10\x03\xc5\x00\x46\x20\x11\x30\x04" |
| "\xc9\x40\x5e\x60\x11\x88\x04\x36\x81\x4a" |
| "\xb0\x13\x80\x05\x43\x41\x51\x30\x0d\x30" |
| "\x05\xd5\x80\x35\x70\x0d\xc8\x05\x41\x81" |
| "\x56\xa0\x16\x70\x03\x7b\x41\x5f\xf0\x0d" |
| "\x14\x04\x2f\x41\x40\x70\x10\x90\x03\xe5" |
| "\x40\x46\x30\x11\x34\x04\xe9\x80\x5e\x70" |
| "\x11\x8c\x04\x37\xc1\x4a\xc0\x13\x84\x05" |
| "\x44\x81\x51\x30\x0f\x34\x05\xf5\x80\x3d" |
| "\x70\x0f\xcc\x05\x42\xc1\x56\xb0\x16\xf0" |
| "\x03\x7c\x81\x5f\x90\x01\x02" |
| |
| "iso885914\0\0\x0d\x21" |
| "\x02\x7e\xc0\x8f\x02\x85\xb0\x10\x14\xfc" |
| "\x29\x00\xf4\xa9\x40\xd0\x2f\x78\x79\xdf" |
| "\x0a\x5c\x01\x5e\xf0\xf0\x1f\x1e\x24\x84" |
| "\x04\x20\x1f\xe4\x6d\x81\x95\x0f\xf4\x57" |
| "\x7e\xd0\x83\xf9\x79\x4f\xe8\x0b\x7d\x98" |
| "\x07\x06\xc1\x40\x18\x0c\x03\x62\x50\x0c" |
| "\x8c\xc1\x31\x40\x06\xc9\x40\x19\x2c\x03" |
| "\x66\xd0\x0c\x9c\xc1\x33\xa0\x0b\xd1\x40" |
| "\x1a\x4c\x03\x6a\x50\x0d\xac\x81\x9a\xc7" |
| "\x06\xd9\x40\x1b\x6c\x03\x6e\xd0\x0d\xec" |
| "\xc2\x37\x00\x07\xe1\x40\x1c\x8c\x03\x72" |
| "\x50\x0e\xcc\xc1\x39\x40\x07\xe9\x40\x1d" |
| "\xac\x03\x76\xd0\x0e\xdc\xc1\x3b\xa8\x0b" |
| "\xf1\x40\x1e\xcc\x03\x7a\x50\x0f\xec\xc1" |
| "\x9a\xc7\x07\xf9\x40\x1f\xec\x03\x7e\xd0" |
| "\x0f\xee\xc2\x3f\x00" |
| |
| "iso885916\0\0\x0e\x21" |
| "\x04\x41\x41\x10\x14\xb0\x82\x1e\x20\x58" |
| "\x70\x0a\x84\x05\xa9\x00\x86\xb0\x0a\xe4" |
| "\x05\xad\x80\x5e\xb0\x17\xc0\x02\xb1\x00" |
| "\x43\x20\x14\xf4\x05\x1d\xa0\x2d\x70\x0b" |
| "\xf8\x05\x0d\x41\x86\xb0\x0b\x48\x05\x53" |
| "\x01\x5e\xc0\x17\x00\x03\xc1\x80\x30\x20" |
| "\x10\x10\x03\x06\x81\x31\x70\x0c\x20\x03" |
| "\xc9\x80\x32\xb0\x0c\x30\x03\xcd\x80\x33" |
| "\xf0\x0c\x40\x04\x43\x81\x34\x30\x0d\x50" |
| "\x03\x50\x81\x35\xa0\x15\xc0\x05\xd9\x80" |
| "\x36\xb0\x0d\x70\x03\x18\x81\x86\xf0\x0d" |
| "\x80\x03\xe1\x80\x38\x30\x10\x90\x03\x07" |
| "\x81\x39\x70\x0e\xa0\x03\xe9\x80\x3a\xb0" |
| "\x0e\xb0\x03\xed\x80\x3b\xf0\x0e\x44\x04" |
| "\x44\x81\x3c\x30\x0f\xd0\x03\x51\x81\x3d" |
| "\xb0\x15\xc4\x05\xf9\x80\x3e\xb0\x0f\xf0" |
| "\x03\x19\xc1\x86\xf0\x0f\x00" |
| |
| "windows1252\0\0\x0e\x00" |
| "\xac\x20\x00\xa0\x01\x4a\x06\x1e\xa0\x09" |
| "\x08\x02\x86\x80\xc6\x02\x0c\x08\x16\xe4" |
| "\x80\x52\x01\x00\xd0\x17\x00\x00\x00\x00" |
| "\x06\x98\x01\x72\x80\x1d\xa0\x08\x38\x01" |
| "\x52\x80\xdc\x82\x48\x18\x16\xe8\x80\x53" |
| "\x01\x00\xe0\x17\xe0\x05\xa0\x40\x28\x20" |
| "\x0a\x8c\x02\xa4\x40\x29\x60\x0a\x9c\x02" |
| "\xa8\x40\x2a\xa0\x0a\xac\x02\xac\x40\x2b" |
| "\xe0\x0a\xbc\x02\xb0\x40\x2c\x20\x0b\xcc" |
| "\x02\xb4\x40\x2d\x60\x0b\xdc\x02\xb8\x40" |
| "\x2e\xa0\x0b\xec\x02\xbc\x40\x2f\xe0\x0b" |
| "\xfc\x02\xc0\x40\x30\x20\x0c\x0c\x03\xc4" |
| "\x40\x31\x60\x0c\x1c\x03\xc8\x40\x32\xa0" |
| "\x0c\x2c\x03\xcc\x40\x33\xe0\x0c\x3c\x03" |
| "\xd0\x40\x34\x20\x0d\x4c\x03\xd4\x40\x35" |
| "\x60\x0d\x5c\x03\xd8\x40\x36\xa0\x0d\x6c" |
| "\x03\xdc\x40\x37\xe0\x0d\x7c\x03\xe0\x40" |
| "\x38\x20\x0e\x8c\x03\xe4\x40\x39\x60\x0e" |
| "\x9c\x03\xe8\x40\x3a\xa0\x0e\xac\x03\xec" |
| "\x40\x3b\xe0\x0e\xbc\x03\xf0\x40\x3c\x20" |
| "\x0f\xcc\x03\xf4\x40\x3d\x60\x0f\xdc\x03" |
| "\xf8\x40\x3e\xa0\x0f\xec\x03\xfc\x40\x3f" |
| "\xe0\x0f\xfc\x03" |
| ; |
| |
| |
| |
| static int fuzzycmp(const unsigned char *a, const unsigned char *b) |
| { |
| for (; *a && *b; a++, b++) { |
| while (*a && (*a|32U)-'a'>26 && *a-'0'>10U) a++; |
| if ((*a|32U) != *b) return 1; |
| } |
| return *a != *b; |
| } |
| |
| static size_t find_charmap(const void *name) |
| { |
| const unsigned char *s; |
| for (s=charmaps; *s; ) { |
| if (!fuzzycmp(name, s)) { |
| for (; *s; s+=strlen((void *)s)+1); |
| return s+1-charmaps; |
| } |
| s += strlen((void *)s)+1; |
| if (!*s) s += ((128-s[2])*s[1]+7)/8 + 3; |
| } |
| return -1; |
| } |
| |
| iconv_t iconv_open(const char *to, const char *from) |
| { |
| size_t f, t; |
| |
| if ((t = find_charmap(to))==-1 || (f = find_charmap(from))==-1) { |
| errno = EINVAL; |
| return (iconv_t)-1; |
| } |
| |
| return (void *)(f<<16 | t); |
| } |
| |
| int iconv_close(iconv_t cd) |
| { |
| return 0; |
| } |
| |
| static unsigned get_16(const unsigned char *s, int e) |
| { |
| e &= 1; |
| return s[e]<<8 | s[1-e]; |
| } |
| |
| static void put_16(unsigned char *s, unsigned c, int e) |
| { |
| e &= 1; |
| s[e] = c>>8; |
| s[1-e] = c; |
| } |
| |
| static unsigned get_32(const unsigned char *s, int e) |
| { |
| return s[e]+0U<<24 | s[e^1]<<16 | s[e^2]<<8 | s[e^3]; |
| } |
| |
| static void put_32(unsigned char *s, unsigned c, int e) |
| { |
| s[e^0] = c>>24; |
| s[e^1] = c>>16; |
| s[e^2] = c>>8; |
| s[e^3] = c; |
| } |
| |
| |
| |
| #define GET_MAPPING(m, i, n) ( (1<<(n))-1 & ( \ |
| (m)[(i)*(n)/8] >> ((n)%8*(i)%8) | \ |
| (m)[(i)*(n)/8+1] << 8-((n)%8*(i)%8) | \ |
| (m)[(i)*(n)/8+2] << 16-((n)%8*(i)%8) ) ) |
| |
| static unsigned get_mapping(const unsigned char *m, unsigned c, unsigned n) |
| { |
| switch (n) { |
| default: |
| case 9: return m[c*9/8]>>c%8 | m[c*9/8+1]<<8-c%8 & (1<<n)-1; |
| case 10: return m[c*10/8]>>2*c%8 | m[c*10/8+1]<<8-2*c%8 & (1<<n)-1; |
| case 11: return GET_MAPPING(m, c, 11); |
| case 13: return GET_MAPPING(m, c, 13); |
| case 14: return GET_MAPPING(m, c, 14); |
| } |
| } |
| |
| /* Adapt as needed */ |
| #define mbrtowc_utf8 mbrtowc |
| #define wctomb_utf8 wctomb |
| |
| #include <stdio.h> |
| size_t iconv(iconv_t cd0, char **in, size_t *inb, char **out, size_t *outb) |
| { |
| size_t x=0; |
| unsigned long cd = (unsigned long)cd0; |
| unsigned to = cd & 0xffff; |
| unsigned from = cd >> 16; |
| const unsigned char *map = charmaps+from+2; |
| const unsigned char *tomap = charmaps+to+2; |
| mbstate_t st = {0}; |
| wchar_t wc; |
| unsigned c, d; |
| size_t k, l; |
| int err; |
| unsigned elide = map[-1] + 128; |
| unsigned toelide = tomap[-1] + 128; |
| unsigned char type = map[-2]; |
| unsigned char totype = tomap[-2]; |
| |
| if (!in || !*in || !*inb) return 0; |
| |
| for (; *inb; *in+=l, *inb-=l) { |
| c = *(unsigned char *)*in; |
| l = 1; |
| if (type < 8 || c >= 0x80) switch (type) { |
| case UTF_8: |
| l = mbrtowc_utf8(&wc, *in, *inb, &st); |
| if (!l) l++; |
| else if (l == (size_t)-1) goto ilseq; |
| else if (l == (size_t)-2) goto starved; |
| c = wc; |
| break; |
| case LATIN_9: |
| if ((unsigned)c - 0xa4 <= 0xbe - 0xa4) { |
| static const unsigned char map[] = { |
| 0, 0x60, 0, 0x61, 0, 0, 0, 0, 0, 0, 0, |
| 0, 0, 0, 0, 0x7d, 0, 0, 0, 0x7e, 0, 0, 0, |
| 0x52, 0x53, 0x78 |
| }; |
| if (c == 0xa4) c = 0x20ac; |
| else if (map[c-0xa5]) c = 0x100 | map[c-0xa5]; |
| } |
| break; |
| case TIS_620: |
| if (c >= 0xa1) c += 0x0e01-0xa1; |
| break; |
| case JIS_0201: |
| if (c >= 0xa1) |
| if (c <= 0xdf) c += 0xff61-0xa1; |
| else goto ilseq; |
| break; |
| case 9: case 10: case 11: case 13: case 14: |
| if (c < elide) break; |
| c = get_mapping(map, c-elide, type); |
| if (!c) { |
| case US_ASCII: |
| goto ilseq; |
| } |
| break; |
| case WCHAR_T: |
| l = sizeof(wchar_t); |
| if (*inb < l) goto starved; |
| c = *(wchar_t *)*in; |
| if (0) { |
| case UTF_32BE: |
| case UTF_32LE: |
| l = 4; |
| if (*inb < 4) goto starved; |
| c = get_32((void *)*in, type); |
| } |
| if (c-0xd800u < 0x800u || c >= 0x110000u) goto ilseq; |
| break; |
| case UCS2BE: |
| case UCS2LE: |
| case UTF_16BE: |
| case UTF_16LE: |
| l = 2; |
| if (*inb < 2) goto starved; |
| c = get_16((void *)*in, type); |
| if ((unsigned)(c-0xdc00) < 0x400) goto ilseq; |
| if ((unsigned)(c-0xd800) < 0x400) { |
| if (type-UCS2BE < 2U) goto ilseq; |
| l = 4; |
| if (*inb < 4) goto starved; |
| d = get_16((void *)(*in + 2), from); |
| if ((unsigned)(c-0xdc00) >= 0x400) goto ilseq; |
| c = ((c-0xd800)<<10) | (d-0xdc00); |
| } |
| break; |
| } |
| |
| switch (totype) { |
| case WCHAR_T: |
| if (*outb < sizeof(wchar_t)) goto toobig; |
| *(wchar_t *)*out = c; |
| *out += sizeof(wchar_t); |
| *outb -= sizeof(wchar_t); |
| break; |
| case UTF_8: |
| if (*outb < 4) { |
| char tmp[4]; |
| k = wctomb_utf8(tmp, c); |
| if (*outb < k) goto toobig; |
| memcpy(*out, tmp, k); |
| } else k = wctomb_utf8(*out, c); |
| *out += k; |
| *outb -= k; |
| break; |
| case TIS_620: |
| if (c-0xe01u <= 0xff-0xa1) |
| c -= 0xe01-0xa1; |
| else if (c >= 0xa1) |
| goto ascii; |
| goto revout; |
| case JIS_0201: |
| if (c-0xff61u <= 0xdf-0xa1) |
| c -= 0xff61-0xa1; |
| else if (c >= 0xa1) |
| goto ascii; |
| goto revout; |
| case LATIN_9: |
| if (c == 0x20ac) { |
| c=0xa4; |
| } else if (c-0x150u<=0x12 && (1<<c-0x150 & 0x3000c)) { |
| static const unsigned char map[] = |
| { 0xa6,0xa8,0xbc,0xbd }; |
| c = map[c&3]; |
| } else if (c-0x178u<=0x7 && (1<<c-0x178 & 0x61)) { |
| static const unsigned char map[] = |
| { 0xbe,0,0,0,0,0xb4,0xb8 }; |
| c = map[c&7]; |
| } else if (c>0x100 || |
| c-0xa5u<=0xbeu-0xa5 |
| && (1<<c-0xa5 & 0x388800a)) |
| case US_ASCII: ascii: |
| if (c > 0x7f) x++, c='*'; |
| case 9: case 10: case 11: case 13: case 14: |
| if (*outb < 1) goto toobig; |
| if (c < toelide) { |
| revout: |
| *(*out)++ = c; |
| *outb -= 1; |
| break; |
| } |
| for (d=0; d<256-toelide; d++) { |
| if (c == get_mapping(tomap, d, totype)) { |
| c = d + toelide; |
| goto revout; |
| } |
| } |
| x++; |
| c = '*'; |
| goto revout; |
| case UCS2BE: |
| case UCS2LE: |
| case UTF_16BE: |
| case UTF_16LE: |
| if (c < 0x10000) { |
| if (*outb < 2) goto toobig; |
| put_16((void *)*out, c, totype); |
| *out += 2; |
| *outb -= 2; |
| break; |
| } |
| if (type-UCS2BE < 2U) goto ilseq; |
| if (*outb < 4) goto toobig; |
| put_16((void *)*out, (c>>10)|0xd800, totype); |
| put_16((void *)(*out + 2), (c&0x3ff)|0xdc00, totype); |
| *out += 4; |
| *outb -= 4; |
| break; |
| case UTF_32BE: |
| case UTF_32LE: |
| if (*outb < 4) goto toobig; |
| put_32((void *)*out, c, totype); |
| *out += 4; |
| *outb -= 4; |
| break; |
| } |
| } |
| return x; |
| ilseq: |
| err = EILSEQ; |
| x = -1; |
| goto end; |
| toobig: |
| err = E2BIG; |
| goto end; |
| starved: |
| err = EINVAL; |
| end: |
| errno = err; |
| return x; |
| } |