1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) 1995-2010 Index Data
3 * See the file LICENSE for details.
16 #include <yaz/xmalloc.h>
18 #include <yaz/icu_I18N.h>
27 #include <unicode/ustring.h> /* some more string fcns*/
28 #include <unicode/uchar.h> /* char names */
30 enum icu_chain_step_type {
31 ICU_chain_step_type_none,
32 ICU_chain_step_type_display, /* convert to utf8 display format */
33 ICU_chain_step_type_casemap, /* apply utf16 charmap */
34 ICU_chain_step_type_transform, /* apply utf16 transform */
35 ICU_chain_step_type_tokenize, /* apply utf16 tokenization */
36 ICU_chain_step_type_transliterate /* apply utf16 tokenization */
41 /* type and action object */
42 enum icu_chain_step_type type;
44 struct icu_casemap *casemap;
45 struct icu_transform *transform;
46 struct icu_tokenizer *tokenizer;
48 struct icu_chain_step *previous;
59 /* linked list of chain steps */
60 struct icu_chain_step *csteps;
63 int icu_check_status(UErrorCode status)
65 if (U_FAILURE(status))
67 yaz_log(YLOG_WARN, "ICU: %d %s\n", status, u_errorName(status));
73 static struct icu_chain_step *icu_chain_step_create(
74 struct icu_chain *chain, enum icu_chain_step_type type,
75 const uint8_t *rule, UErrorCode *status)
77 struct icu_chain_step *step = 0;
79 if (!chain || !type || !rule)
82 step = (struct icu_chain_step *) xmalloc(sizeof(*step));
85 /* create auxilary objects */
88 case ICU_chain_step_type_display:
90 case ICU_chain_step_type_casemap:
91 step->u.casemap = icu_casemap_create(rule[0], status);
93 case ICU_chain_step_type_transform:
94 /* rule omitted. Only ID used */
95 step->u.transform = icu_transform_create((const char *) rule, 'f',
98 case ICU_chain_step_type_tokenize:
99 step->u.tokenizer = icu_tokenizer_create((char *) chain->locale,
100 (char) rule[0], status);
102 case ICU_chain_step_type_transliterate:
103 /* we pass a dummy ID to utrans_openU.. */
104 step->u.transform = icu_transform_create("custom", 'f',
105 (const char *) rule, status);
114 static void icu_chain_step_destroy(struct icu_chain_step *step)
119 icu_chain_step_destroy(step->previous);
123 case ICU_chain_step_type_display:
125 case ICU_chain_step_type_casemap:
126 icu_casemap_destroy(step->u.casemap);
128 case ICU_chain_step_type_transform:
129 case ICU_chain_step_type_transliterate:
130 icu_transform_destroy(step->u.transform);
132 case ICU_chain_step_type_tokenize:
133 icu_tokenizer_destroy(step->u.tokenizer);
141 struct icu_chain_step *icu_chain_step_clone(struct icu_chain_step *old)
143 struct icu_chain_step *step = 0;
144 struct icu_chain_step **sp = &step;
147 *sp = (struct icu_chain_step *) xmalloc(sizeof(**sp));
148 (*sp)->type = old->type;
152 case ICU_chain_step_type_display:
154 case ICU_chain_step_type_casemap:
155 (*sp)->u.casemap = icu_casemap_clone(old->u.casemap);
157 case ICU_chain_step_type_transform:
158 case ICU_chain_step_type_transliterate:
159 (*sp)->u.transform = icu_transform_clone(old->u.transform);
161 case ICU_chain_step_type_tokenize:
162 (*sp)->u.tokenizer = icu_tokenizer_clone(old->u.tokenizer);
164 case ICU_chain_step_type_none:
168 sp = &(*sp)->previous;
174 struct icu_chain *icu_chain_create(const char *locale, int sort,
177 struct icu_chain *chain
178 = (struct icu_chain *) xmalloc(sizeof(*chain));
180 *status = U_ZERO_ERROR;
183 chain->locale = xstrdup(locale);
187 chain->coll = ucol_open((const char *) chain->locale, status);
189 if (U_FAILURE(*status))
197 void icu_chain_destroy(struct icu_chain *chain)
202 ucol_close(chain->coll);
205 icu_iter_destroy(chain->iter);
206 icu_chain_step_destroy(chain->csteps);
207 xfree(chain->locale);
212 static struct icu_chain_step *icu_chain_insert_step(
213 struct icu_chain *chain, enum icu_chain_step_type type,
214 const uint8_t *rule, UErrorCode *status);
216 struct icu_chain *icu_chain_xml_config(const xmlNode *xml_node,
221 struct icu_chain *chain = 0;
223 *status = U_ZERO_ERROR;
225 if (!xml_node ||xml_node->type != XML_ELEMENT_NODE)
229 xmlChar *xml_locale = xmlGetProp((xmlNode *) xml_node,
230 (xmlChar *) "locale");
234 chain = icu_chain_create((const char *) xml_locale, sort, status);
242 for (node = xml_node->children; node; node = node->next)
245 struct icu_chain_step *step = 0;
247 if (node->type != XML_ELEMENT_NODE)
250 xml_rule = xmlGetProp(node, (xmlChar *) "rule");
252 yaz_log(YLOG_LOG, "rule=%s", xml_rule);
254 if (!strcmp((const char *) node->name, "casemap"))
255 step = icu_chain_insert_step(chain, ICU_chain_step_type_casemap,
256 (const uint8_t *) xml_rule, status);
257 else if (!strcmp((const char *) node->name, "transform"))
258 step = icu_chain_insert_step(chain, ICU_chain_step_type_transform,
259 (const uint8_t *) xml_rule, status);
260 else if (!strcmp((const char *) node->name, "transliterate"))
261 step = icu_chain_insert_step(chain, ICU_chain_step_type_transliterate,
262 (const uint8_t *) xml_rule, status);
263 else if (!strcmp((const char *) node->name, "tokenize"))
264 step = icu_chain_insert_step(chain, ICU_chain_step_type_tokenize,
265 (const uint8_t *) xml_rule, status);
266 else if (!strcmp((const char *) node->name, "display"))
267 step = icu_chain_insert_step(chain, ICU_chain_step_type_display,
268 (const uint8_t *) "", status);
269 else if (!strcmp((const char *) node->name, "normalize"))
271 yaz_log(YLOG_WARN, "Element %s is deprecated. "
272 "Use transform instead", node->name);
273 step = icu_chain_insert_step(chain, ICU_chain_step_type_transform,
274 (const uint8_t *) xml_rule, status);
276 else if (!strcmp((const char *) node->name, "index")
277 || !strcmp((const char *) node->name, "sortkey"))
279 yaz_log(YLOG_WARN, "Element %s is no longer needed. "
280 "Remove it from the configuration", node->name);
284 yaz_log(YLOG_WARN, "Unknown element %s", node->name);
285 icu_chain_destroy(chain);
289 if (step && U_FAILURE(*status))
291 icu_chain_destroy(chain);
299 static struct icu_chain_step *icu_chain_insert_step(
300 struct icu_chain *chain, enum icu_chain_step_type type,
301 const uint8_t *rule, UErrorCode *status)
303 struct icu_chain_step *step = 0;
304 if (!chain || !type || !rule)
307 /* create actual chain step with this buffer */
308 step = icu_chain_step_create(chain, type, rule,
311 step->previous = chain->csteps;
312 chain->csteps = step;
318 struct icu_chain *chain;
319 struct icu_buf_utf16 *last;
321 struct icu_buf_utf8 *display;
322 struct icu_buf_utf8 *sort8;
323 struct icu_buf_utf8 *result;
324 struct icu_buf_utf16 *input;
326 struct icu_chain_step *steps;
329 void icu_utf16_print(struct icu_buf_utf16 *src16)
331 UErrorCode status = U_ZERO_ERROR;
333 struct icu_buf_utf8 *dst8 = icu_buf_utf8_create(0);
334 icu_utf16_to_utf8(dst8, src16, &status);
336 assert(status != 1234);
337 if (U_FAILURE(status))
343 p = icu_buf_utf8_to_cstr(dst8);
346 icu_buf_utf8_destroy(dst8);
349 struct icu_buf_utf16 *icu_iter_invoke(yaz_icu_iter_t iter,
350 struct icu_chain_step *step,
351 struct icu_buf_utf16 *src)
357 struct icu_buf_utf16 *dst = icu_iter_invoke(iter, step->previous, src);
361 case ICU_chain_step_type_casemap:
364 struct icu_buf_utf16 *src = dst;
366 dst = icu_buf_utf16_create(0);
367 icu_casemap_casemap(step->u.casemap, dst, src, &iter->status,
368 iter->chain->locale);
369 icu_buf_utf16_destroy(src);
372 case ICU_chain_step_type_tokenize:
375 struct icu_buf_utf16 *src = dst;
377 icu_tokenizer_attach(step->u.tokenizer, src, &iter->status);
378 icu_buf_utf16_destroy(src);
380 dst = icu_buf_utf16_create(0);
381 iter->status = U_ZERO_ERROR;
382 if (!icu_tokenizer_next_token(step->u.tokenizer, dst, &iter->status))
384 icu_buf_utf16_destroy(dst);
388 case ICU_chain_step_type_transform:
389 case ICU_chain_step_type_transliterate:
392 struct icu_buf_utf16 *src = dst;
393 dst = icu_buf_utf16_create(0);
394 icu_transform_trans(step->u.transform, dst, src, &iter->status);
395 icu_buf_utf16_destroy(src);
398 case ICU_chain_step_type_display:
400 icu_utf16_to_utf8(iter->display, dst, &iter->status);
409 yaz_icu_iter_t icu_iter_create(struct icu_chain *chain)
411 yaz_icu_iter_t iter = xmalloc(sizeof(*iter));
413 iter->status = U_ZERO_ERROR;
414 iter->display = icu_buf_utf8_create(0);
415 iter->sort8 = icu_buf_utf8_create(0);
416 iter->result = icu_buf_utf8_create(0);
417 iter->last = 0; /* no last returned string (yet) */
418 iter->steps = icu_chain_step_clone(chain->csteps);
424 void icu_iter_first(yaz_icu_iter_t iter, const char *src8cstr)
427 icu_buf_utf16_destroy(iter->input);
428 iter->input = icu_buf_utf16_create(0);
429 iter->token_count = 0;
430 /* fill and assign input string.. It will be 0 after
432 icu_utf16_from_utf8_cstr(iter->input, src8cstr, &iter->status);
435 void icu_iter_destroy(yaz_icu_iter_t iter)
439 icu_buf_utf8_destroy(iter->display);
440 icu_buf_utf8_destroy(iter->sort8);
441 icu_buf_utf8_destroy(iter->result);
443 icu_buf_utf16_destroy(iter->input);
444 icu_chain_step_destroy(iter->steps);
449 int icu_iter_next(yaz_icu_iter_t iter)
451 if (!iter->input && iter->last == 0)
455 /* on first call, iter->input is the input string. Thereafter: 0. */
456 iter->last = icu_iter_invoke(iter, iter->steps ?
457 iter->steps : iter->chain->csteps,
466 if (iter->chain->sort)
468 icu_sortkey8_from_utf16(iter->chain->coll,
469 iter->sort8, iter->last,
472 icu_utf16_to_utf8(iter->result, iter->last, &iter->status);
473 icu_buf_utf16_destroy(iter->last);
479 const char *icu_iter_get_norm(yaz_icu_iter_t iter)
481 return icu_buf_utf8_to_cstr(iter->result);
484 const char *icu_iter_get_sortkey(yaz_icu_iter_t iter)
486 return icu_buf_utf8_to_cstr(iter->sort8);
489 const char *icu_iter_get_display(yaz_icu_iter_t iter)
491 return icu_buf_utf8_to_cstr(iter->display);
494 int icu_iter_get_token_number(yaz_icu_iter_t iter)
496 return iter->token_count;
499 int icu_chain_assign_cstr(struct icu_chain *chain, const char *src8cstr,
503 icu_iter_destroy(chain->iter);
504 chain->iter = icu_iter_create(chain);
505 icu_iter_first(chain->iter, src8cstr);
509 int icu_chain_next_token(struct icu_chain *chain, UErrorCode *status)
511 *status = U_ZERO_ERROR;
512 return icu_iter_next(chain->iter);
515 int icu_chain_token_number(struct icu_chain *chain)
517 if (chain && chain->iter)
518 return chain->iter->token_count;
522 const char *icu_chain_token_display(struct icu_chain *chain)
525 return icu_iter_get_display(chain->iter);
529 const char *icu_chain_token_norm(struct icu_chain *chain)
532 return icu_iter_get_norm(chain->iter);
536 const char *icu_chain_token_sortkey(struct icu_chain *chain)
539 return icu_iter_get_sortkey(chain->iter);
543 #endif /* YAZ_HAVE_ICU */
548 * c-file-style: "Stroustrup"
549 * indent-tabs-mode: nil
551 * vim: shiftwidth=4 tabstop=8 expandtab