utf8proc
annotate ruby/utf8proc_native.c @ 2:aaad485d5335
Version 0.3
- changed normalization from NFC to NFKC for postgresql unifold function
- added support to mark the beginning of a grapheme cluster with 0xFF (option: CHARBOUND)
- added the ruby method String#chars, which is returning an array of UTF-8 encoded grapheme clusters
- added NLF2LF transformation in postgresql unifold function
- added the DECOMPOSE option, if you neither use COMPOSE or DECOMPOSE, no normalization will be performed (different from previous versions)
- using integer constants rather than C-strings for character properties
- fixed (hopefully) a problem with the ruby library on Mac OS X, which occured when compiler optimization was switched on
- changed normalization from NFC to NFKC for postgresql unifold function
- added support to mark the beginning of a grapheme cluster with 0xFF (option: CHARBOUND)
- added the ruby method String#chars, which is returning an array of UTF-8 encoded grapheme clusters
- added NLF2LF transformation in postgresql unifold function
- added the DECOMPOSE option, if you neither use COMPOSE or DECOMPOSE, no normalization will be performed (different from previous versions)
- using integer constants rather than C-strings for character properties
- fixed (hopefully) a problem with the ruby library on Mac OS X, which occured when compiler optimization was switched on
| author | jbe | 
|---|---|
| date | Fri Aug 04 12:00:00 2006 +0200 (2006-08-04) | 
| parents | 61a89ecc2fb9 | 
| children | 4ee0d5f54af1 | 
| 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 | 
| jbe@0 | 33 | 
| jbe@0 | 34 /* | 
| jbe@0 | 35 * File name: ruby/utf8proc_native.c | 
| jbe@2 | 36 * Version: 0.3 | 
| jbe@2 | 37 * Last changed: 2006-08-04 | 
| jbe@0 | 38 * | 
| jbe@0 | 39 * Description: | 
| jbe@0 | 40 * Native part of the ruby wrapper for libutf8proc. | 
| jbe@0 | 41 */ | 
| jbe@0 | 42 | 
| jbe@0 | 43 | 
| jbe@0 | 44 #include "../utf8proc.c" | 
| jbe@0 | 45 #include "ruby.h" | 
| jbe@0 | 46 | 
| jbe@0 | 47 typedef struct utf8proc_ruby_mapenv_struct { | 
| jbe@0 | 48 int32_t *buffer; | 
| jbe@0 | 49 } utf8proc_ruby_mapenv_t; | 
| jbe@0 | 50 | 
| jbe@0 | 51 void utf8proc_ruby_mapenv_free(utf8proc_ruby_mapenv_t *env) { | 
| jbe@0 | 52 free(env->buffer); | 
| jbe@0 | 53 free(env); | 
| jbe@0 | 54 } | 
| jbe@0 | 55 | 
| jbe@0 | 56 VALUE utf8proc_ruby_module; | 
| jbe@0 | 57 VALUE utf8proc_ruby_options; | 
| jbe@0 | 58 VALUE utf8proc_ruby_eUnicodeError; | 
| jbe@0 | 59 VALUE utf8proc_ruby_eInvalidUtf8Error; | 
| jbe@0 | 60 VALUE utf8proc_ruby_eCodeNotAssignedError; | 
| jbe@0 | 61 | 
| jbe@0 | 62 VALUE utf8proc_ruby_map_error(ssize_t result) { | 
| jbe@0 | 63 VALUE excpt_class; | 
| jbe@0 | 64 switch (result) { | 
| jbe@0 | 65 case UTF8PROC_ERROR_NOMEM: | 
| jbe@0 | 66 excpt_class = rb_eNoMemError; break; | 
| jbe@0 | 67 case UTF8PROC_ERROR_OVERFLOW: | 
| jbe@0 | 68 excpt_class = rb_eArgError; break; | 
| jbe@0 | 69 case UTF8PROC_ERROR_INVALIDUTF8: | 
| jbe@0 | 70 excpt_class = utf8proc_ruby_eInvalidUtf8Error; break; | 
| jbe@0 | 71 case UTF8PROC_ERROR_NOTASSIGNED: | 
| jbe@0 | 72 excpt_class = utf8proc_ruby_eCodeNotAssignedError; break; | 
| jbe@0 | 73 default: | 
| jbe@0 | 74 excpt_class = rb_eRuntimeError; | 
| jbe@0 | 75 } | 
| jbe@0 | 76 rb_raise(excpt_class, "%s", utf8proc_errmsg(result)); | 
| jbe@0 | 77 return Qnil; | 
| jbe@0 | 78 } | 
| jbe@0 | 79 | 
| jbe@0 | 80 VALUE utf8proc_ruby_map(VALUE self, VALUE str_param, VALUE options_param) { | 
| jbe@0 | 81 VALUE str; | 
| jbe@0 | 82 int options; | 
| jbe@0 | 83 VALUE env_obj; | 
| jbe@0 | 84 utf8proc_ruby_mapenv_t *env; | 
| jbe@0 | 85 ssize_t result; | 
| jbe@0 | 86 VALUE retval; | 
| jbe@0 | 87 str = StringValue(str_param); | 
| jbe@0 | 88 options = NUM2INT(options_param) & ~UTF8PROC_NULLTERM; | 
| jbe@0 | 89 env_obj = Data_Make_Struct(rb_cObject, utf8proc_ruby_mapenv_t, NULL, | 
| jbe@0 | 90 utf8proc_ruby_mapenv_free, env); | 
| jbe@0 | 91 result = utf8proc_decompose(RSTRING(str)->ptr, RSTRING(str)->len, | 
| jbe@0 | 92 NULL, 0, options); | 
| jbe@2 | 93 if (result < 0) { | 
| jbe@2 | 94 utf8proc_ruby_map_error(result); | 
| jbe@2 | 95 return Qnil; // needed to prevent problems with optimization | 
| jbe@2 | 96 } | 
| jbe@0 | 97 env->buffer = ALLOC_N(int32_t, result+1); | 
| jbe@0 | 98 result = utf8proc_decompose(RSTRING(str)->ptr, RSTRING(str)->len, | 
| jbe@0 | 99 env->buffer, result, options); | 
| jbe@0 | 100 if (result < 0) { | 
| jbe@0 | 101 free(env->buffer); | 
| jbe@0 | 102 env->buffer = 0; | 
| jbe@1 | 103 utf8proc_ruby_map_error(result); | 
| jbe@2 | 104 return Qnil; // needed to prevent problems with optimization | 
| jbe@0 | 105 } | 
| jbe@0 | 106 result = utf8proc_reencode(env->buffer, result, options); | 
| jbe@0 | 107 if (result < 0) { | 
| jbe@0 | 108 free(env->buffer); | 
| jbe@0 | 109 env->buffer = 0; | 
| jbe@1 | 110 utf8proc_ruby_map_error(result); | 
| jbe@2 | 111 return Qnil; // needed to prevent problems with optimization | 
| jbe@0 | 112 } | 
| jbe@0 | 113 retval = rb_str_new((char *)env->buffer, result); | 
| jbe@0 | 114 free(env->buffer); | 
| jbe@0 | 115 env->buffer = 0; | 
| jbe@0 | 116 return retval; | 
| jbe@0 | 117 } | 
| jbe@0 | 118 | 
| jbe@0 | 119 static VALUE utf8proc_ruby_char(VALUE self, VALUE code_param) { | 
| jbe@0 | 120 char buffer[4]; | 
| jbe@0 | 121 ssize_t result; | 
| jbe@0 | 122 int uc; | 
| jbe@0 | 123 uc = NUM2INT(code_param); | 
| jbe@0 | 124 if (uc < 0 || ((uc & 0xFFFF) >= 0xFFFE) || (uc >= 0xD800 && uc < 0xE000) || | 
| jbe@0 | 125 (uc >= 0xFDD0 && uc < 0xFDF0)) | 
| jbe@0 | 126 rb_raise(rb_eArgError, "Invalid Unicode code point"); | 
| jbe@0 | 127 result = utf8proc_encode_char(uc, buffer); | 
| jbe@0 | 128 return rb_str_new(buffer, result); | 
| jbe@0 | 129 } | 
| jbe@0 | 130 | 
| jbe@0 | 131 #define register_utf8proc_option(sym, field) \ | 
| jbe@0 | 132 rb_hash_aset(utf8proc_ruby_options, ID2SYM(rb_intern(sym)), INT2FIX(field)) | 
| jbe@0 | 133 | 
| jbe@0 | 134 void Init_utf8proc_native() { | 
| jbe@0 | 135 utf8proc_ruby_module = rb_define_module("Utf8Proc"); | 
| jbe@0 | 136 rb_define_module_function(utf8proc_ruby_module, "utf8map", | 
| jbe@0 | 137 utf8proc_ruby_map, 2); | 
| jbe@0 | 138 rb_define_module_function(utf8proc_ruby_module, "utf8char", | 
| jbe@0 | 139 utf8proc_ruby_char, 1); | 
| jbe@0 | 140 utf8proc_ruby_eUnicodeError = rb_define_class_under(utf8proc_ruby_module, | 
| jbe@0 | 141 "UnicodeError", rb_eStandardError); | 
| jbe@0 | 142 utf8proc_ruby_eInvalidUtf8Error = rb_define_class_under( | 
| jbe@0 | 143 utf8proc_ruby_module, "InvalidUtf8Error", utf8proc_ruby_eUnicodeError); | 
| jbe@0 | 144 utf8proc_ruby_eCodeNotAssignedError = rb_define_class_under( | 
| jbe@0 | 145 utf8proc_ruby_module, "CodeNotAssignedError", | 
| jbe@0 | 146 utf8proc_ruby_eUnicodeError); | 
| jbe@0 | 147 utf8proc_ruby_options = rb_hash_new(); | 
| jbe@2 | 148 register_utf8proc_option("stable", UTF8PROC_STABLE); | 
| jbe@2 | 149 register_utf8proc_option("compat", UTF8PROC_COMPAT); | 
| jbe@2 | 150 register_utf8proc_option("compose", UTF8PROC_COMPOSE); | 
| jbe@2 | 151 register_utf8proc_option("decompose", UTF8PROC_DECOMPOSE); | 
| jbe@2 | 152 register_utf8proc_option("ignore", UTF8PROC_IGNORE); | 
| jbe@2 | 153 register_utf8proc_option("rejectna", UTF8PROC_REJECTNA); | 
| jbe@2 | 154 register_utf8proc_option("nlf2ls", UTF8PROC_NLF2LS); | 
| jbe@2 | 155 register_utf8proc_option("nlf2ps", UTF8PROC_NLF2PS); | 
| jbe@2 | 156 register_utf8proc_option("nlf2lf", UTF8PROC_NLF2LF); | 
| jbe@2 | 157 register_utf8proc_option("stripcc", UTF8PROC_STRIPCC); | 
| jbe@2 | 158 register_utf8proc_option("casefold", UTF8PROC_CASEFOLD); | 
| jbe@2 | 159 register_utf8proc_option("charbound", UTF8PROC_CHARBOUND); | 
| jbe@0 | 160 OBJ_FREEZE(utf8proc_ruby_options); | 
| jbe@0 | 161 rb_define_const(utf8proc_ruby_module, "Options", utf8proc_ruby_options); | 
| jbe@0 | 162 } | 
| jbe@0 | 163 | 
| jbe@0 | 164 |