utf8proc
annotate utf8proc.c @ 1:61a89ecc2fb9
Version 0.2
- changed behaviour of PostgreSQL function to return NULL in case of invalid input, rather than raising an exceptional condition
- improved efficiency of PostgreSQL function (no transformation to C string is done)
- added -fpic compiler flag in Makefile
- fixed bug in the C code for the ruby library (usage of non-existent function)
- changed behaviour of PostgreSQL function to return NULL in case of invalid input, rather than raising an exceptional condition
- improved efficiency of PostgreSQL function (no transformation to C string is done)
- added -fpic compiler flag in Makefile
- fixed bug in the C code for the ruby library (usage of non-existent function)
| author | jbe |
|---|---|
| date | Tue Jun 20 12:00:00 2006 +0200 (2006-06-20) |
| parents | a0368662434c |
| children | aaad485d5335 |
| rev | line source |
|---|---|
| jbe@0 | 1 /* |
| jbe@0 | 2 * Copyright (c) 2006, FlexiGuided GmbH, Berlin, Germany |
| jbe@0 | 3 * Author: Jan Behrens <jan.behrens@flexiguided.de> |
| jbe@0 | 4 * All rights reserved. |
| jbe@0 | 5 * |
| jbe@0 | 6 * Redistribution and use in source and binary forms, with or without |
| jbe@0 | 7 * modification, are permitted provided that the following conditions are |
| jbe@0 | 8 * met: |
| jbe@0 | 9 * |
| jbe@0 | 10 * 1. Redistributions of source code must retain the above copyright |
| jbe@0 | 11 * notice, this list of conditions and the following disclaimer. |
| jbe@0 | 12 * 2. Redistributions in binary form must reproduce the above copyright |
| jbe@0 | 13 * notice, this list of conditions and the following disclaimer in the |
| jbe@0 | 14 * documentation and/or other materials provided with the distribution. |
| jbe@0 | 15 * 3. Neither the name of the FlexiGuided GmbH nor the names of its |
| jbe@0 | 16 * contributors may be used to endorse or promote products derived from |
| jbe@0 | 17 * this software without specific prior written permission. |
| jbe@0 | 18 * |
| jbe@0 | 19 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
| jbe@0 | 20 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
| jbe@0 | 21 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A |
| jbe@0 | 22 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER |
| jbe@0 | 23 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, |
| jbe@0 | 24 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
| jbe@0 | 25 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR |
| jbe@0 | 26 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF |
| jbe@0 | 27 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING |
| jbe@0 | 28 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| jbe@0 | 29 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| jbe@0 | 30 * |
| jbe@0 | 31 * |
| jbe@0 | 32 * This library contains derived data from a modified version of the |
| jbe@0 | 33 * Unicode data files. |
| jbe@0 | 34 * |
| jbe@0 | 35 * The original data files are available at |
| jbe@0 | 36 * http://www.unicode.org/Public/UNIDATA/ |
| jbe@0 | 37 * |
| jbe@0 | 38 * Please notice the copyright statement in the file "utf8proc_data.c". |
| jbe@0 | 39 * |
| jbe@0 | 40 */ |
| jbe@0 | 41 |
| jbe@0 | 42 |
| jbe@0 | 43 /* |
| jbe@0 | 44 * File name: utf8proc.c |
| jbe@1 | 45 * Version: 0.2 |
| jbe@0 | 46 * Last changed: 2006-05-31 |
| jbe@0 | 47 * |
| jbe@0 | 48 * Description: |
| jbe@0 | 49 * Implementation of libutf8proc. |
| jbe@0 | 50 */ |
| jbe@0 | 51 |
| jbe@0 | 52 |
| jbe@0 | 53 #include "utf8proc.h" |
| jbe@0 | 54 #include "utf8proc_data.c" |
| jbe@0 | 55 |
| jbe@0 | 56 |
| jbe@0 | 57 const int8_t utf8proc_utf8class[256] = { |
| jbe@0 | 58 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 59 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 60 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 61 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 62 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 63 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 64 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 65 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, |
| jbe@0 | 66 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| jbe@0 | 67 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| jbe@0 | 68 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| jbe@0 | 69 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
| jbe@0 | 70 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| jbe@0 | 71 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, |
| jbe@0 | 72 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, |
| jbe@0 | 73 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0, 0, 0, 0, 0 }; |
| jbe@0 | 74 |
| jbe@0 | 75 #define UTF8PROC_HANGUL_SBASE 0xAC00 |
| jbe@0 | 76 #define UTF8PROC_HANGUL_LBASE 0x1100 |
| jbe@0 | 77 #define UTF8PROC_HANGUL_VBASE 0x1161 |
| jbe@0 | 78 #define UTF8PROC_HANGUL_TBASE 0x11A7 |
| jbe@0 | 79 #define UTF8PROC_HANGUL_LCOUNT 19 |
| jbe@0 | 80 #define UTF8PROC_HANGUL_VCOUNT 21 |
| jbe@0 | 81 #define UTF8PROC_HANGUL_TCOUNT 28 |
| jbe@0 | 82 #define UTF8PROC_HANGUL_NCOUNT 588 |
| jbe@0 | 83 #define UTF8PROC_HANGUL_SCOUNT 11172 |
| jbe@0 | 84 |
| jbe@0 | 85 |
| jbe@0 | 86 const char *utf8proc_errmsg(ssize_t errcode) { |
| jbe@0 | 87 switch (errcode) { |
| jbe@0 | 88 case UTF8PROC_ERROR_NOMEM: |
| jbe@0 | 89 return "Memory for processing UTF-8 data could not be allocated."; |
| jbe@0 | 90 case UTF8PROC_ERROR_OVERFLOW: |
| jbe@0 | 91 return "UTF-8 string is too long to be processed."; |
| jbe@0 | 92 case UTF8PROC_ERROR_INVALIDUTF8: |
| jbe@0 | 93 return "Invalid UTF-8 string"; |
| jbe@0 | 94 case UTF8PROC_ERROR_NOTASSIGNED: |
| jbe@0 | 95 return "Unassigned Unicode code point found in UTF-8 string."; |
| jbe@0 | 96 default: |
| jbe@0 | 97 return "An unknown error occured while processing UTF-8 data."; |
| jbe@0 | 98 } |
| jbe@0 | 99 } |
| jbe@0 | 100 |
| jbe@0 | 101 ssize_t utf8proc_iterate(uint8_t *str, ssize_t strlen, int32_t *dst) { |
| jbe@0 | 102 int length; |
| jbe@0 | 103 int i; |
| jbe@0 | 104 int32_t uc = -1; |
| jbe@0 | 105 *dst = -1; |
| jbe@0 | 106 if (!strlen) return 0; |
| jbe@0 | 107 length = utf8proc_utf8class[str[0]]; |
| jbe@0 | 108 if (!length) return UTF8PROC_ERROR_INVALIDUTF8; |
| jbe@0 | 109 if (strlen >= 0 && length > strlen) return UTF8PROC_ERROR_INVALIDUTF8; |
| jbe@0 | 110 for (i=1; i<length; i++) { |
| jbe@0 | 111 if ((str[i] & 0xC0) != 0x80) return UTF8PROC_ERROR_INVALIDUTF8; |
| jbe@0 | 112 } |
| jbe@0 | 113 switch (length) { |
| jbe@0 | 114 case 1: |
| jbe@0 | 115 uc = str[0]; |
| jbe@0 | 116 break; |
| jbe@0 | 117 case 2: |
| jbe@0 | 118 uc = ((str[0] & 0x1F) << 6) + (str[1] & 0x3F); |
| jbe@0 | 119 if (uc < 0x80) uc = -1; |
| jbe@0 | 120 break; |
| jbe@0 | 121 case 3: |
| jbe@0 | 122 uc = ((str[0] & 0x0F) << 12) + ((str[1] & 0x3F) << 6) |
| jbe@0 | 123 + (str[2] & 0x3F); |
| jbe@0 | 124 if (uc < 0x800 || (uc >= 0xD800 && uc < 0xE000) || |
| jbe@0 | 125 (uc >= 0xFDD0 && uc < 0xFDF0)) uc = -1; |
| jbe@0 | 126 break; |
| jbe@0 | 127 case 4: |
| jbe@0 | 128 uc = ((str[0] & 0x07) << 18) + ((str[1] & 0x3F) << 12) |
| jbe@0 | 129 + ((str[2] & 0x3F) << 6) + (str[3] & 0x3F); |
| jbe@0 | 130 if (uc < 0x10000 || uc >= 0x110000) uc = -1; |
| jbe@0 | 131 break; |
| jbe@0 | 132 } |
| jbe@0 | 133 if (uc < 0 || ((uc & 0xFFFF) >= 0xFFFE)) return UTF8PROC_ERROR_INVALIDUTF8; |
| jbe@0 | 134 *dst = uc; |
| jbe@0 | 135 return length; |
| jbe@0 | 136 } |
| jbe@0 | 137 |
| jbe@0 | 138 ssize_t utf8proc_encode_char(int32_t uc, uint8_t *dst) { |
| jbe@0 | 139 if (uc < 0x00) { |
| jbe@0 | 140 return 0; |
| jbe@0 | 141 } else if (uc < 0x80) { |
| jbe@0 | 142 dst[0] = uc; |
| jbe@0 | 143 return 1; |
| jbe@0 | 144 } else if (uc < 0x800) { |
| jbe@0 | 145 dst[0] = 0xC0 + (uc >> 6); |
| jbe@0 | 146 dst[1] = 0x80 + (uc & 0x3F); |
| jbe@0 | 147 return 2; |
| jbe@0 | 148 } else if (uc < 0x10000) { |
| jbe@0 | 149 dst[0] = 0xE0 + (uc >> 12); |
| jbe@0 | 150 dst[1] = 0x80 + ((uc >> 6) & 0x3F); |
| jbe@0 | 151 dst[2] = 0x80 + (uc & 0x3F); |
| jbe@0 | 152 return 3; |
| jbe@0 | 153 } else if (uc < 0x110000) { |
| jbe@0 | 154 dst[0] = 0xF0 + (uc >> 18); |
| jbe@0 | 155 dst[1] = 0x80 + ((uc >> 12) & 0x3F); |
| jbe@0 | 156 dst[2] = 0x80 + ((uc >> 6) & 0x3F); |
| jbe@0 | 157 dst[3] = 0x80 + (uc & 0x3F); |
| jbe@0 | 158 return 4; |
| jbe@0 | 159 } else return 0; |
| jbe@0 | 160 } |
| jbe@0 | 161 |
| jbe@0 | 162 const utf8proc_property_t *utf8proc_get_property(int32_t uc) { |
| jbe@0 | 163 // ASSERT: uc >= 0 && uc < 0x110000 |
| jbe@0 | 164 return utf8proc_properties + ( |
| jbe@0 | 165 utf8proc_stage2table[ |
| jbe@0 | 166 utf8proc_stage1table[uc >> 8] + (uc & 0xFF) |
| jbe@0 | 167 ] |
| jbe@0 | 168 ); |
| jbe@0 | 169 } |
| jbe@0 | 170 |
| jbe@0 | 171 ssize_t utf8proc_decompose_char(int32_t uc, int32_t *dst, ssize_t bufsize, |
| jbe@0 | 172 int options) { |
| jbe@0 | 173 // ASSERT: uc >= 0 && uc < 0x110000 |
| jbe@0 | 174 const utf8proc_property_t *property; |
| jbe@0 | 175 int32_t hangul_sindex; |
| jbe@0 | 176 property = utf8proc_get_property(uc); |
| jbe@0 | 177 hangul_sindex = uc - UTF8PROC_HANGUL_SBASE; |
| jbe@0 | 178 if (hangul_sindex >= 0 && hangul_sindex < UTF8PROC_HANGUL_SCOUNT) { |
| jbe@0 | 179 int32_t hangul_tindex; |
| jbe@0 | 180 if (bufsize >= 1) { |
| jbe@0 | 181 dst[0] = UTF8PROC_HANGUL_LBASE + |
| jbe@0 | 182 hangul_sindex / UTF8PROC_HANGUL_NCOUNT; |
| jbe@0 | 183 if (bufsize >= 2) dst[1] = UTF8PROC_HANGUL_VBASE + |
| jbe@0 | 184 (hangul_sindex % UTF8PROC_HANGUL_NCOUNT) / UTF8PROC_HANGUL_TCOUNT; |
| jbe@0 | 185 } |
| jbe@0 | 186 hangul_tindex = hangul_sindex % UTF8PROC_HANGUL_TCOUNT; |
| jbe@0 | 187 if (!hangul_tindex) return 2; |
| jbe@0 | 188 if (bufsize >= 3) dst[2] = UTF8PROC_HANGUL_TBASE + hangul_tindex; |
| jbe@0 | 189 return 3; |
| jbe@0 | 190 } else if ((options & UTF8PROC_REJECTNA) && !property->category) { |
| jbe@0 | 191 return UTF8PROC_ERROR_NOTASSIGNED; |
| jbe@0 | 192 } else if ((options & UTF8PROC_IGNORE) && property->ignorable) { |
| jbe@0 | 193 return 0; |
| jbe@0 | 194 } else if ((options & UTF8PROC_CASEFOLD) && property->casefold_mapping) { |
| jbe@0 | 195 const int32_t *casefold_entry; |
| jbe@0 | 196 ssize_t written = 0; |
| jbe@0 | 197 for (casefold_entry = property->casefold_mapping; |
| jbe@0 | 198 *casefold_entry >= 0; casefold_entry++) { |
| jbe@0 | 199 written += utf8proc_decompose_char(*casefold_entry, dst+written, |
| jbe@0 | 200 (bufsize > written) ? (bufsize - written) : 0, options); |
| jbe@0 | 201 if (written < 0) return UTF8PROC_ERROR_OVERFLOW; |
| jbe@0 | 202 } |
| jbe@0 | 203 return written; |
| jbe@0 | 204 } else if (property->decomp_mapping && |
| jbe@0 | 205 (!property->decomp_type || (options & UTF8PROC_COMPAT))) { |
| jbe@0 | 206 const int32_t *decomp_entry; |
| jbe@0 | 207 ssize_t written = 0; |
| jbe@0 | 208 for (decomp_entry = property->decomp_mapping; |
| jbe@0 | 209 *decomp_entry >= 0; decomp_entry++) { |
| jbe@0 | 210 written += utf8proc_decompose_char(*decomp_entry, dst+written, |
| jbe@0 | 211 (bufsize > written) ? (bufsize - written) : 0, options); |
| jbe@0 | 212 if (written < 0) return UTF8PROC_ERROR_OVERFLOW; |
| jbe@0 | 213 } |
| jbe@0 | 214 return written; |
| jbe@0 | 215 } else { |
| jbe@0 | 216 if (bufsize >= 1) *dst = uc; |
| jbe@0 | 217 return 1; |
| jbe@0 | 218 } |
| jbe@0 | 219 } |
| jbe@0 | 220 |
| jbe@0 | 221 ssize_t utf8proc_decompose(uint8_t *str, ssize_t strlen, |
| jbe@0 | 222 int32_t *buffer, ssize_t bufsize, int options) { |
| jbe@0 | 223 // strlen will be ignored, if UTF8PROC_NULLTERM is set in options |
| jbe@0 | 224 ssize_t wpos = 0; |
| jbe@0 | 225 { |
| jbe@0 | 226 int32_t uc; |
| jbe@0 | 227 ssize_t rpos = 0; |
| jbe@0 | 228 ssize_t decomp_result; |
| jbe@0 | 229 while (1) { |
| jbe@0 | 230 if (options & UTF8PROC_NULLTERM) { |
| jbe@0 | 231 rpos += utf8proc_iterate(str + rpos, -1, &uc); |
| jbe@0 | 232 // checking of return value is not neccessary, |
| jbe@0 | 233 // as 'uc' is < 0 in case of error |
| jbe@0 | 234 if (uc < 0) return UTF8PROC_ERROR_INVALIDUTF8; |
| jbe@0 | 235 if (rpos < 0) return UTF8PROC_ERROR_OVERFLOW; |
| jbe@0 | 236 if (uc == 0) break; |
| jbe@0 | 237 } else { |
| jbe@0 | 238 if (rpos >= strlen) break; |
| jbe@0 | 239 rpos += utf8proc_iterate(str + rpos, strlen - rpos, &uc); |
| jbe@0 | 240 if (uc < 0) return UTF8PROC_ERROR_INVALIDUTF8; |
| jbe@0 | 241 } |
| jbe@0 | 242 decomp_result = utf8proc_decompose_char( |
| jbe@0 | 243 uc, buffer + wpos, (bufsize > wpos) ? (bufsize - wpos) : 0, options |
| jbe@0 | 244 ); |
| jbe@0 | 245 if (decomp_result < 0) return decomp_result; |
| jbe@0 | 246 wpos += decomp_result; |
| jbe@0 | 247 // prohibiting integer overflows due to too long strings: |
| jbe@0 | 248 if (wpos < 0 || wpos > SSIZE_MAX/sizeof(int32_t)/2) |
| jbe@0 | 249 return UTF8PROC_ERROR_OVERFLOW; |
| jbe@0 | 250 } |
| jbe@0 | 251 } |
| jbe@0 | 252 if (bufsize >= wpos) { |
| jbe@0 | 253 ssize_t pos = 0; |
| jbe@0 | 254 while (pos < wpos-1) { |
| jbe@0 | 255 int32_t uc1, uc2; |
| jbe@0 | 256 const utf8proc_property_t *property1, *property2; |
| jbe@0 | 257 uc1 = buffer[pos]; |
| jbe@0 | 258 uc2 = buffer[pos+1]; |
| jbe@0 | 259 property1 = utf8proc_get_property(uc1); |
| jbe@0 | 260 property2 = utf8proc_get_property(uc2); |
| jbe@0 | 261 if (property1->combining_class > property2->combining_class && |
| jbe@0 | 262 property2->combining_class > 0) { |
| jbe@0 | 263 buffer[pos] = uc2; |
| jbe@0 | 264 buffer[pos+1] = uc1; |
| jbe@0 | 265 if (pos > 0) pos--; else pos++; |
| jbe@0 | 266 } else { |
| jbe@0 | 267 pos++; |
| jbe@0 | 268 } |
| jbe@0 | 269 } |
| jbe@0 | 270 } |
| jbe@0 | 271 return wpos; |
| jbe@0 | 272 } |
| jbe@0 | 273 |
| jbe@0 | 274 ssize_t utf8proc_reencode(int32_t *buffer, ssize_t length, int options) { |
| jbe@0 | 275 // UTF8PROC_NULLTERM option will be ignored, 'length' is never ignored |
| jbe@0 | 276 // ASSERT: 'buffer' has one spare byte of free space at the end! |
| jbe@0 | 277 if (options & (UTF8PROC_NLF2LS | UTF8PROC_NLF2PS | UTF8PROC_STRIPCC)) { |
| jbe@0 | 278 ssize_t rpos; |
| jbe@0 | 279 ssize_t wpos = 0; |
| jbe@0 | 280 int32_t uc; |
| jbe@0 | 281 for (rpos = 0; rpos < length; rpos++) { |
| jbe@0 | 282 uc = buffer[rpos]; |
| jbe@0 | 283 if (uc == 0x000D && rpos < length-1 && buffer[rpos+1] == 0x000A) rpos++; |
| jbe@0 | 284 if (uc == 0x000A || uc == 0x000D || uc == 0x0085 || |
| jbe@0 | 285 ((options & UTF8PROC_STRIPCC) && (uc == 0x000B || uc == 0x000C))) { |
| jbe@0 | 286 if (options & UTF8PROC_NLF2LS) { |
| jbe@0 | 287 if (options & UTF8PROC_NLF2PS) { |
| jbe@0 | 288 buffer[wpos++] = 0x000A; |
| jbe@0 | 289 } else { |
| jbe@0 | 290 buffer[wpos++] = 0x2028; |
| jbe@0 | 291 } |
| jbe@0 | 292 } else { |
| jbe@0 | 293 if (options & UTF8PROC_NLF2PS) { |
| jbe@0 | 294 buffer[wpos++] = 0x2029; |
| jbe@0 | 295 } else { |
| jbe@0 | 296 buffer[wpos++] = 0x0020; |
| jbe@0 | 297 } |
| jbe@0 | 298 } |
| jbe@0 | 299 } else if ((options & UTF8PROC_STRIPCC) && |
| jbe@0 | 300 (uc < 0x0020 || (uc >= 0x007F && uc < 0x00A0))) { |
| jbe@0 | 301 if (uc == 0x0009) buffer[wpos++] = 0x0020; |
| jbe@0 | 302 } else { |
| jbe@0 | 303 buffer[wpos++] = uc; |
| jbe@0 | 304 } |
| jbe@0 | 305 } |
| jbe@0 | 306 length = wpos; |
| jbe@0 | 307 } |
| jbe@0 | 308 if (options & UTF8PROC_COMPOSE) { |
| jbe@0 | 309 int32_t *starter = NULL; |
| jbe@0 | 310 int32_t current_char; |
| jbe@0 | 311 const utf8proc_property_t *starter_property = NULL, *current_property; |
| jbe@0 | 312 int16_t max_combining_class = -1; |
| jbe@0 | 313 ssize_t rpos; |
| jbe@0 | 314 ssize_t wpos = 0; |
| jbe@0 | 315 int32_t composition; |
| jbe@0 | 316 for (rpos = 0; rpos < length; rpos++) { |
| jbe@0 | 317 current_char = buffer[rpos]; |
| jbe@0 | 318 current_property = utf8proc_get_property(current_char); |
| jbe@0 | 319 if (starter && current_property->combining_class > max_combining_class) { |
| jbe@0 | 320 // combination perhaps possible |
| jbe@0 | 321 int32_t hangul_lindex; |
| jbe@0 | 322 int32_t hangul_sindex; |
| jbe@0 | 323 hangul_lindex = *starter - UTF8PROC_HANGUL_LBASE; |
| jbe@0 | 324 if (hangul_lindex >= 0 && hangul_lindex < UTF8PROC_HANGUL_LCOUNT) { |
| jbe@0 | 325 int32_t hangul_vindex; |
| jbe@0 | 326 hangul_vindex = current_char - UTF8PROC_HANGUL_VBASE; |
| jbe@0 | 327 if (hangul_vindex >= 0 && hangul_vindex < UTF8PROC_HANGUL_VCOUNT) { |
| jbe@0 | 328 *starter = UTF8PROC_HANGUL_SBASE + |
| jbe@0 | 329 (hangul_lindex * UTF8PROC_HANGUL_VCOUNT + hangul_vindex) * |
| jbe@0 | 330 UTF8PROC_HANGUL_TCOUNT; |
| jbe@0 | 331 starter_property = NULL; |
| jbe@0 | 332 continue; |
| jbe@0 | 333 } |
| jbe@0 | 334 } |
| jbe@0 | 335 hangul_sindex = *starter - UTF8PROC_HANGUL_SBASE; |
| jbe@0 | 336 if (hangul_sindex >= 0 && hangul_sindex < UTF8PROC_HANGUL_SCOUNT && |
| jbe@0 | 337 (hangul_sindex % UTF8PROC_HANGUL_TCOUNT) == 0) { |
| jbe@0 | 338 int32_t hangul_tindex; |
| jbe@0 | 339 hangul_tindex = current_char - UTF8PROC_HANGUL_TBASE; |
| jbe@0 | 340 if (hangul_tindex >= 0 && hangul_tindex < UTF8PROC_HANGUL_TCOUNT) { |
| jbe@0 | 341 *starter += hangul_tindex; |
| jbe@0 | 342 starter_property = NULL; |
| jbe@0 | 343 continue; |
| jbe@0 | 344 } |
| jbe@0 | 345 } |
| jbe@0 | 346 if (!starter_property) { |
| jbe@0 | 347 starter_property = utf8proc_get_property(*starter); |
| jbe@0 | 348 } |
| jbe@0 | 349 if (starter_property->comb1st_index >= 0 && |
| jbe@0 | 350 current_property->comb2nd_index >= 0) { |
| jbe@0 | 351 composition = utf8proc_combinations[ |
| jbe@0 | 352 starter_property->comb1st_index + |
| jbe@0 | 353 current_property->comb2nd_index |
| jbe@0 | 354 ]; |
| jbe@0 | 355 if (composition >= 0 && (!(options & UTF8PROC_STABLE) || |
| jbe@0 | 356 !(utf8proc_get_property(composition)->comp_exclusion))) { |
| jbe@0 | 357 *starter = composition; |
| jbe@0 | 358 starter_property = NULL; |
| jbe@0 | 359 continue; |
| jbe@0 | 360 } |
| jbe@0 | 361 } |
| jbe@0 | 362 } |
| jbe@0 | 363 buffer[wpos] = current_char; |
| jbe@0 | 364 if (current_property->combining_class) { |
| jbe@0 | 365 if (current_property->combining_class > max_combining_class) { |
| jbe@0 | 366 max_combining_class = current_property->combining_class; |
| jbe@0 | 367 } |
| jbe@0 | 368 } else { |
| jbe@0 | 369 starter = buffer + wpos; |
| jbe@0 | 370 starter_property = NULL; |
| jbe@0 | 371 max_combining_class = -1; |
| jbe@0 | 372 } |
| jbe@0 | 373 wpos++; |
| jbe@0 | 374 } |
| jbe@0 | 375 length = wpos; |
| jbe@0 | 376 } |
| jbe@0 | 377 { |
| jbe@0 | 378 ssize_t rpos, wpos = 0; |
| jbe@0 | 379 int32_t uc; |
| jbe@0 | 380 for (rpos = 0; rpos < length; rpos++) { |
| jbe@0 | 381 uc = buffer[rpos]; |
| jbe@0 | 382 wpos += utf8proc_encode_char(uc, ((uint8_t *)buffer) + wpos); |
| jbe@0 | 383 } |
| jbe@0 | 384 ((uint8_t *)buffer)[wpos] = 0; |
| jbe@0 | 385 return wpos; |
| jbe@0 | 386 } |
| jbe@0 | 387 } |
| jbe@0 | 388 |
| jbe@0 | 389 ssize_t utf8proc_map(uint8_t *str, ssize_t strlen, uint8_t **dstptr, |
| jbe@0 | 390 int options) { |
| jbe@0 | 391 int32_t *buffer; |
| jbe@0 | 392 ssize_t result; |
| jbe@0 | 393 *dstptr = NULL; |
| jbe@0 | 394 result = utf8proc_decompose(str, strlen, NULL, 0, options); |
| jbe@0 | 395 if (result < 0) return result; |
| jbe@0 | 396 buffer = malloc(result * sizeof(int32_t) + 1); |
| jbe@0 | 397 if (!buffer) return UTF8PROC_ERROR_NOMEM; |
| jbe@0 | 398 result = utf8proc_decompose(str, strlen, buffer, result, options); |
| jbe@0 | 399 if (result < 0) { |
| jbe@0 | 400 free(buffer); |
| jbe@0 | 401 return result; |
| jbe@0 | 402 } |
| jbe@0 | 403 result = utf8proc_reencode(buffer, result, options); |
| jbe@0 | 404 if (result < 0) { |
| jbe@0 | 405 free(buffer); |
| jbe@0 | 406 return result; |
| jbe@0 | 407 } |
| jbe@0 | 408 { |
| jbe@0 | 409 int32_t *newptr; |
| jbe@0 | 410 newptr = realloc(buffer, result+1); |
| jbe@0 | 411 if (newptr) buffer = newptr; |
| jbe@0 | 412 } |
| jbe@0 | 413 *dstptr = (uint8_t *)buffer; |
| jbe@0 | 414 return result; |
| jbe@0 | 415 } |
| jbe@0 | 416 |
| jbe@0 | 417 uint8_t *utf8proc_NFD(uint8_t *str) { |
| jbe@0 | 418 uint8_t *retval; |
| jbe@0 | 419 utf8proc_map(str, 0, &retval, UTF8PROC_NULLTERM | UTF8PROC_STABLE); |
| jbe@0 | 420 return retval; |
| jbe@0 | 421 } |
| jbe@0 | 422 |
| jbe@0 | 423 uint8_t *utf8proc_NFC(uint8_t *str) { |
| jbe@0 | 424 uint8_t *retval; |
| jbe@0 | 425 utf8proc_map(str, 0, &retval, UTF8PROC_NULLTERM | UTF8PROC_STABLE | |
| jbe@0 | 426 UTF8PROC_COMPOSE); |
| jbe@0 | 427 return retval; |
| jbe@0 | 428 } |
| jbe@0 | 429 |
| jbe@0 | 430 uint8_t *utf8proc_NFKD(uint8_t *str) { |
| jbe@0 | 431 uint8_t *retval; |
| jbe@0 | 432 utf8proc_map(str, 0, &retval, UTF8PROC_NULLTERM | UTF8PROC_STABLE | |
| jbe@0 | 433 UTF8PROC_COMPAT); |
| jbe@0 | 434 return retval; |
| jbe@0 | 435 } |
| jbe@0 | 436 |
| jbe@0 | 437 uint8_t *utf8proc_NFKC(uint8_t *str) { |
| jbe@0 | 438 uint8_t *retval; |
| jbe@0 | 439 utf8proc_map(str, 0, &retval, UTF8PROC_NULLTERM | UTF8PROC_STABLE | |
| jbe@0 | 440 UTF8PROC_COMPOSE | UTF8PROC_COMPAT); |
| jbe@0 | 441 return retval; |
| jbe@0 | 442 } |
| jbe@0 | 443 |
| jbe@0 | 444 |