Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 1 | /* vi: set sw=4 ts=4: */ |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 2 | /* |
| 3 | * Derived from |
| 4 | * mapscrn.c - version 0.92 |
| 5 | * |
| 6 | * Was taken from console-tools and adapted by |
| 7 | * Peter Novodvorsky <petya@logic.ru> |
| 8 | */ |
| 9 | |
Eric Andersen | 3570a34 | 2000-09-25 21:45:58 +0000 | [diff] [blame] | 10 | #include "busybox.h" |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 11 | #include <stdio.h> |
| 12 | #include <stdlib.h> |
| 13 | #include <memory.h> |
| 14 | #include <string.h> |
| 15 | #include <unistd.h> |
| 16 | #include <fcntl.h> |
| 17 | #include <assert.h> |
| 18 | #include <errno.h> |
| 19 | #include <signal.h> |
| 20 | #include <sys/types.h> |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 21 | #include <sys/ioctl.h> |
| 22 | #include <sys/kd.h> |
| 23 | |
| 24 | typedef unsigned short unicode; |
| 25 | |
| 26 | static long int ctoi(unsigned char *s, int *is_unicode); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 27 | int old_screen_map_read_ascii(FILE * fp, unsigned char buf[]); |
| 28 | int uni_screen_map_read_ascii(FILE * fp, unicode buf[], int *is_unicode); |
| 29 | unicode utf8_to_ucs2(char *buf); |
| 30 | int screen_map_load(int fd, FILE * fp); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 31 | |
| 32 | int loadacm_main(int argc, char **argv) |
| 33 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 34 | int fd; |
| 35 | |
Erik Andersen | 3fe7f9f | 2000-04-19 03:59:10 +0000 | [diff] [blame] | 36 | if (argc>=2 && *argv[1]=='-') { |
| 37 | usage(loadacm_usage); |
| 38 | } |
| 39 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 40 | fd = open("/dev/tty", O_RDWR); |
| 41 | if (fd < 0) { |
Matt Kraai | 1fa1ade | 2000-12-18 03:57:16 +0000 | [diff] [blame] | 42 | perror_msg_and_die("Error opening /dev/tty1"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 43 | } |
| 44 | |
| 45 | if (screen_map_load(fd, stdin)) { |
Matt Kraai | 1fa1ade | 2000-12-18 03:57:16 +0000 | [diff] [blame] | 46 | perror_msg_and_die("Error loading acm"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 47 | } |
| 48 | |
| 49 | write(fd, "\033(K", 3); |
| 50 | |
Matt Kraai | 3e856ce | 2000-12-01 02:55:13 +0000 | [diff] [blame] | 51 | return EXIT_SUCCESS; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 52 | } |
| 53 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 54 | int screen_map_load(int fd, FILE * fp) |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 55 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 56 | struct stat stbuf; |
| 57 | unicode wbuf[E_TABSZ]; |
| 58 | unsigned char buf[E_TABSZ]; |
| 59 | int parse_failed = 0; |
| 60 | int is_unicode; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 61 | |
Eric Andersen | 999bf72 | 2000-07-09 06:59:58 +0000 | [diff] [blame] | 62 | if (fstat(fileno(fp), &stbuf)) |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 63 | perror_msg_and_die("Cannot stat map file"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 64 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 65 | /* first try a UTF screen-map: either ASCII (no restriction) or binary (regular file) */ |
| 66 | if (! |
| 67 | (parse_failed = |
| 68 | (-1 == uni_screen_map_read_ascii(fp, wbuf, &is_unicode))) |
| 69 | || (S_ISREG(stbuf.st_mode) && (stbuf.st_size == (sizeof(unicode) * E_TABSZ)))) { /* test for binary UTF map by size */ |
| 70 | if (parse_failed) { |
| 71 | if (-1 == fseek(fp, 0, SEEK_SET)) { |
| 72 | if (errno == ESPIPE) |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 73 | error_msg_and_die("16bit screen-map MUST be a regular file.\n"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 74 | else |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 75 | perror_msg_and_die("fseek failed reading binary 16bit screen-map"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 76 | } |
| 77 | |
| 78 | if (fread(wbuf, sizeof(unicode) * E_TABSZ, 1, fp) != 1) |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 79 | perror_msg_and_die("Cannot read [new] map from file"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 80 | #if 0 |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 81 | else |
Mark Whitley | f57c944 | 2000-12-07 19:56:48 +0000 | [diff] [blame] | 82 | error_msg("Input screen-map is binary.\n"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 83 | #endif |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 84 | } |
| 85 | |
| 86 | /* if it was effectively a 16-bit ASCII, OK, else try to read as 8-bit map */ |
| 87 | /* same if it was binary, ie. if parse_failed */ |
| 88 | if (parse_failed || is_unicode) { |
| 89 | if (ioctl(fd, PIO_UNISCRNMAP, wbuf)) |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 90 | perror_msg_and_die("PIO_UNISCRNMAP ioctl"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 91 | else |
| 92 | return 0; |
| 93 | } |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 94 | } |
| 95 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 96 | /* rewind... */ |
| 97 | if (-1 == fseek(fp, 0, SEEK_SET)) { |
| 98 | if (errno == ESPIPE) |
Mark Whitley | f57c944 | 2000-12-07 19:56:48 +0000 | [diff] [blame] | 99 | error_msg("Assuming 8bit screen-map - MUST be a regular file.\n"), |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 100 | exit(1); |
| 101 | else |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 102 | perror_msg_and_die("fseek failed assuming 8bit screen-map"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 103 | } |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 104 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 105 | /* ... and try an old 8-bit screen-map */ |
| 106 | if (!(parse_failed = (-1 == old_screen_map_read_ascii(fp, buf))) || |
| 107 | (S_ISREG(stbuf.st_mode) && (stbuf.st_size == E_TABSZ))) { /* test for binary old 8-bit map by size */ |
| 108 | if (parse_failed) { |
| 109 | if (-1 == fseek(fp, 0, SEEK_SET)) { |
| 110 | if (errno == ESPIPE) |
| 111 | /* should not - it succedeed above */ |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 112 | error_msg_and_die("fseek() returned ESPIPE !\n"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 113 | else |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 114 | perror_msg_and_die("fseek for binary 8bit screen-map"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 115 | } |
| 116 | |
| 117 | if (fread(buf, E_TABSZ, 1, fp) != 1) |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 118 | perror_msg_and_die("Cannot read [old] map from file"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 119 | #if 0 |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 120 | else |
Mark Whitley | f57c944 | 2000-12-07 19:56:48 +0000 | [diff] [blame] | 121 | error_msg("Input screen-map is binary.\n"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 122 | #endif |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 123 | } |
| 124 | |
| 125 | if (ioctl(fd, PIO_SCRNMAP, buf)) |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 126 | perror_msg_and_die("PIO_SCRNMAP ioctl"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 127 | else |
| 128 | return 0; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 129 | } |
Mark Whitley | f57c944 | 2000-12-07 19:56:48 +0000 | [diff] [blame] | 130 | error_msg("Error parsing symbolic map\n"); |
Eric Andersen | b610615 | 2000-06-19 17:25:40 +0000 | [diff] [blame] | 131 | return(1); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 132 | } |
| 133 | |
| 134 | |
| 135 | /* |
| 136 | * - reads `fp' as a 16-bit ASCII SFM file. |
| 137 | * - returns -1 on error. |
| 138 | * - returns it in `unicode' in an E_TABSZ-elements array. |
| 139 | * - sets `*is_unicode' flagiff there were any non-8-bit |
| 140 | * (ie. real 16-bit) mapping. |
| 141 | * |
| 142 | * FIXME: ignores everything after second word |
| 143 | */ |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 144 | int uni_screen_map_read_ascii(FILE * fp, unicode buf[], int *is_unicode) |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 145 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 146 | char buffer[256]; /* line buffer reading file */ |
| 147 | char *p, *q; /* 1st + 2nd words in line */ |
| 148 | int in, on; /* the same, as numbers */ |
| 149 | int tmp_is_unicode; /* tmp for is_unicode calculation */ |
| 150 | int i; /* loop index - result holder */ |
| 151 | int ret_code = 0; /* return code */ |
| 152 | sigset_t sigset, old_sigset; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 153 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 154 | assert(is_unicode); |
| 155 | |
| 156 | *is_unicode = 0; |
| 157 | |
| 158 | /* first 128 codes defaults to ASCII */ |
| 159 | for (i = 0; i < 128; i++) |
| 160 | buf[i] = i; |
| 161 | /* remaining defaults to replacement char (usually E_TABSZ = 256) */ |
| 162 | for (; i < E_TABSZ; i++) |
| 163 | buf[i] = 0xfffd; |
| 164 | |
| 165 | /* block SIGCHLD */ |
| 166 | sigemptyset(&sigset); |
| 167 | sigaddset(&sigset, SIGCHLD); |
| 168 | sigprocmask(SIG_BLOCK, &sigset, &old_sigset); |
| 169 | |
| 170 | do { |
| 171 | if (NULL == fgets(buffer, sizeof(buffer), fp)) { |
| 172 | if (feof(fp)) |
| 173 | break; |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 174 | else |
| 175 | perror_msg_and_die("uni_screen_map_read_ascii() can't read line"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 176 | } |
| 177 | |
| 178 | /* get "charset-relative charcode", stripping leading spaces */ |
| 179 | p = strtok(buffer, " \t\n"); |
| 180 | |
| 181 | /* skip empty lines and comments */ |
| 182 | if (!p || *p == '#') |
| 183 | continue; |
| 184 | |
| 185 | /* get unicode mapping */ |
| 186 | q = strtok(NULL, " \t\n"); |
| 187 | if (q) { |
| 188 | in = ctoi(p, NULL); |
| 189 | if (in < 0 || in > 255) { |
| 190 | ret_code = -1; |
| 191 | break; |
| 192 | } |
| 193 | |
| 194 | on = ctoi(q, &tmp_is_unicode); |
| 195 | if (in < 0 && on > 65535) { |
| 196 | ret_code = -1; |
| 197 | break; |
| 198 | } |
| 199 | |
| 200 | *is_unicode |= tmp_is_unicode; |
| 201 | buf[in] = on; |
| 202 | } else { |
| 203 | ret_code = -1; |
| 204 | break; |
| 205 | } |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 206 | } |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 207 | while (1); /* terminated by break on feof() */ |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 208 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 209 | /* restore sig mask */ |
| 210 | sigprocmask(SIG_SETMASK, &old_sigset, NULL); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 211 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 212 | return ret_code; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 213 | } |
| 214 | |
| 215 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 216 | int old_screen_map_read_ascii(FILE * fp, unsigned char buf[]) |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 217 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 218 | char buffer[256]; |
| 219 | int in, on; |
| 220 | char *p, *q; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 221 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 222 | for (in = 0; in < 256; in++) |
| 223 | buf[in] = in; |
| 224 | |
| 225 | while (fgets(buffer, sizeof(buffer) - 1, fp)) { |
| 226 | p = strtok(buffer, " \t\n"); |
| 227 | |
| 228 | if (!p || *p == '#') |
| 229 | continue; |
| 230 | |
| 231 | q = strtok(NULL, " \t\n#"); |
| 232 | if (q) { |
| 233 | in = ctoi(p, NULL); |
| 234 | if (in < 0 || in > 255) |
| 235 | return -1; |
| 236 | |
| 237 | on = ctoi(q, NULL); |
| 238 | if (in < 0 && on > 255) |
| 239 | return -1; |
| 240 | |
| 241 | buf[in] = on; |
| 242 | } else |
| 243 | return -1; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 244 | } |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 245 | |
| 246 | return (0); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 247 | } |
| 248 | |
| 249 | |
| 250 | /* |
| 251 | * - converts a string into an int. |
| 252 | * - supports dec and hex bytes, hex UCS2, single-quoted byte and UTF8 chars. |
| 253 | * - returns the converted value |
| 254 | * - if `is_unicode != NULL', use it to tell whether it was unicode |
| 255 | * |
| 256 | * CAVEAT: will report valid UTF mappings using only 1 byte as 8-bit ones. |
| 257 | */ |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 258 | long int ctoi(unsigned char *s, int *is_unicode) |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 259 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 260 | int i; |
| 261 | size_t ls; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 262 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 263 | ls = strlen(s); |
| 264 | if (is_unicode) |
| 265 | *is_unicode = 0; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 266 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 267 | /* hex-specified UCS2 */ |
| 268 | if ((strncmp(s, "U+", 2) == 0) && |
| 269 | (strspn(s + 2, "0123456789abcdefABCDEF") == ls - 2)) { |
| 270 | sscanf(s + 2, "%x", &i); |
| 271 | if (is_unicode) |
| 272 | *is_unicode = 1; |
| 273 | } |
| 274 | |
| 275 | /* hex-specified byte */ |
| 276 | else if ((ls <= 4) && (strncmp(s, "0x", 2) == 0) && |
| 277 | (strspn(s + 2, "0123456789abcdefABCDEF") == ls - 2)) |
| 278 | sscanf(s + 2, "%x", &i); |
| 279 | |
| 280 | /* oct-specified number (byte) */ |
| 281 | else if ((*s == '0') && (strspn(s, "01234567") == ls)) |
| 282 | sscanf(s, "%o", &i); |
| 283 | |
| 284 | /* dec-specified number (byte) */ |
| 285 | else if (strspn(s, "0123456789") == ls) |
| 286 | sscanf(s, "%d", &i); |
| 287 | |
| 288 | /* single-byte quoted char */ |
| 289 | else if ((strlen(s) == 3) && (s[0] == '\'') && (s[2] == '\'')) |
| 290 | i = s[1]; |
| 291 | |
| 292 | /* multi-byte UTF8 quoted char */ |
| 293 | else if ((s[0] == '\'') && (s[ls - 1] == '\'')) { |
| 294 | s[ls - 1] = 0; /* ensure we'll not "parse UTF too far" */ |
| 295 | i = utf8_to_ucs2(s + 1); |
| 296 | if (is_unicode) |
| 297 | *is_unicode = 1; |
| 298 | } else |
| 299 | return (-1); |
| 300 | |
| 301 | return (i); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 302 | } |
| 303 | |
| 304 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 305 | void saveoldmap(int fd, char *omfil) |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 306 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 307 | FILE *fp; |
| 308 | char buf[E_TABSZ]; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 309 | |
| 310 | #ifdef GIO_UNISCRNMAP |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 311 | unicode xbuf[E_TABSZ]; |
| 312 | int is_old_map = 0; |
| 313 | |
| 314 | if (ioctl(fd, GIO_UNISCRNMAP, xbuf)) { |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 315 | perror_msg("GIO_UNISCRNMAP ioctl error"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 316 | #endif |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 317 | if (ioctl(fd, GIO_SCRNMAP, buf)) |
| 318 | perror_msg_and_die("GIO_SCRNMAP ioctl error"); |
| 319 | else |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 320 | is_old_map = 1; |
| 321 | #ifdef GIO_UNISCRNMAP |
| 322 | } |
| 323 | #endif |
| 324 | |
Matt Kraai | bbaef66 | 2000-09-27 02:43:35 +0000 | [diff] [blame] | 325 | fp = xfopen(omfil, "w"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 326 | #ifdef GIO_UNISCRNMAP |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 327 | if (is_old_map) { |
| 328 | #endif |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 329 | if (fwrite(buf, E_TABSZ, 1, fp) != 1) |
| 330 | perror_msg_and_die("Error writing map to file"); |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 331 | #ifdef GIO_UNISCRNMAP |
| 332 | } else if (fwrite(xbuf, sizeof(unicode) * E_TABSZ, 1, fp) != 1) { |
Matt Kraai | a9819b2 | 2000-12-22 01:48:07 +0000 | [diff] [blame^] | 333 | perror_msg_and_die("Error writing map to file"); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 334 | } |
| 335 | #endif |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 336 | |
| 337 | fclose(fp); |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 338 | } |
| 339 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 340 | unicode utf8_to_ucs2(char *buf) |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 341 | { |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 342 | int utf_count = 0; |
Erik Andersen | 61677fe | 2000-04-13 01:18:56 +0000 | [diff] [blame] | 343 | long utf_char = 0; |
| 344 | unicode tc = 0; |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 345 | unsigned char c; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 346 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 347 | do { |
| 348 | c = *buf; |
| 349 | buf++; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 350 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 351 | /* if byte should be part of multi-byte sequence */ |
| 352 | if (c & 0x80) { |
| 353 | /* if we have already started to parse a UTF8 sequence */ |
| 354 | if (utf_count > 0 && (c & 0xc0) == 0x80) { |
| 355 | utf_char = (utf_char << 6) | (c & 0x3f); |
| 356 | utf_count--; |
| 357 | if (utf_count == 0) |
| 358 | tc = utf_char; |
| 359 | else |
| 360 | continue; |
| 361 | } else { /* Possibly 1st char of a UTF8 sequence */ |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 362 | |
Erik Andersen | e49d5ec | 2000-02-08 19:58:47 +0000 | [diff] [blame] | 363 | if ((c & 0xe0) == 0xc0) { |
| 364 | utf_count = 1; |
| 365 | utf_char = (c & 0x1f); |
| 366 | } else if ((c & 0xf0) == 0xe0) { |
| 367 | utf_count = 2; |
| 368 | utf_char = (c & 0x0f); |
| 369 | } else if ((c & 0xf8) == 0xf0) { |
| 370 | utf_count = 3; |
| 371 | utf_char = (c & 0x07); |
| 372 | } else if ((c & 0xfc) == 0xf8) { |
| 373 | utf_count = 4; |
| 374 | utf_char = (c & 0x03); |
| 375 | } else if ((c & 0xfe) == 0xfc) { |
| 376 | utf_count = 5; |
| 377 | utf_char = (c & 0x01); |
| 378 | } else |
| 379 | utf_count = 0; |
| 380 | continue; |
| 381 | } |
| 382 | } else { /* not part of multi-byte sequence - treat as ASCII |
| 383 | * this makes incomplete sequences to be ignored |
| 384 | */ |
| 385 | tc = c; |
| 386 | utf_count = 0; |
| 387 | } |
| 388 | } |
| 389 | while (utf_count); |
| 390 | |
| 391 | return tc; |
Erik Andersen | a899108 | 1999-12-29 03:34:00 +0000 | [diff] [blame] | 392 | } |