Fix memory leak issues

[platform/core/uifw/anthy.git] / src-worddic / ext_ent.c

/*
 * "123" "ABC" ¤Î¤è¤¦¤Ê¼­½ñ¤Ë¤Î¤Ã¤Æ¤Ê¤¤
 * ʸ»úÎó¤ËÂФ¹¤ëÌä¹ç¤»¤Î¾ì¹ç¤ÏÁ´¤Æ¤Î¸õÊä¤ò¤³¤³¤ÇÀ¸À®¤¹¤ë
 * ¾åµ­¤Î¾¤Ë͹ÊØÈÖ¹æ¤Ø¤Î¥¢¥¯¥»¥¹¤â¹Ô¤Ê¤¦
 *
 * Copyright (C) 2001-2005 TABATA Yusuke
 * Copyright (C) 2004-2005 YOSHIDA Yuichi
 *
 */
/*
  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2 of the License, or (at your option) any later version.

  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
 */
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <anthy/anthy.h> /* for ANTHY_*_ENCODING */
#include <anthy/conf.h>
#include <anthy/xstr.h>
#include <anthy/xchar.h>
#include "dic_main.h"
#include "dic_ent.h"

/* ext entry */
static struct seq_ent unkseq_ent;/*̤ÃÎʸ»úÎ󤿤Ȥ¨¤Ð±Ñʸ»úÎó¤È¤«*/
static struct seq_ent num_ent;/*¿ô»ú¤Ê¤É*/
static struct seq_ent sep_ent;/*¥»¥Ñ¥ì¡¼¥¿¤Ê¤É¡£*/
/* ext entry¤Îwtype*/
static wtype_t wt_num;

static xchar narrow_wide_tab[]= {WIDE_0, WIDE_1, WIDE_2,
                                 WIDE_3, WIDE_4, WIDE_5,
                                 WIDE_6, WIDE_7, WIDE_8, WIDE_9};
static int kj_num_tab[]={KJ_0, KJ_1, KJ_2, KJ_3, KJ_4,
                         KJ_5, KJ_6, KJ_7, KJ_8, KJ_9};

struct zipcode_line {
  int nr;
  xstr **strs;
};

/* ÃÏ̾¤òÄɲ乤ë */
static void
pushback_place_name(struct zipcode_line *zl, char *pn)
{
  if (pn[0] == '#') {
    return ;
  }
  zl->strs = realloc(zl->strs, sizeof(xstr *) * (zl->nr + 1));
  zl->strs[zl->nr] = anthy_cstr_to_xstr(pn, ANTHY_EUC_JP_ENCODING);
  zl->nr++;
}

/* ͹ÊØÈֹ漭½ñ¤ò¥Ñ¡¼¥¹¤·¤Æ¥¹¥Ú¡¼¥¹¶èÀÚ¤ê¤ò¸¡½Ð¤¹¤ë */
static void
parse_zipcode_line(struct zipcode_line *zl, char *ln)
{
  char buf[1000];
  int i = 0;
  while (*ln) {
    buf[i] = *ln;
    if (*ln == '\\') {
      buf[i] = ln[1];
      i ++;
      if (ln[1]) {
        ln ++;
      }
    } else if (*ln == ' ') {
      buf[i] = 0;
      i = 0;
      pushback_place_name(zl, buf);
    } else {
      i ++;
    }
    /**/
    ln ++;
  }
  buf[i] = 0;
  pushback_place_name(zl, buf);
}

/* ͹ÊØÈֹ漭½ñ¤«¤éõ¤¹ */
static void
search_zipcode_dict(struct zipcode_line *zl, xstr* xs)
{
  FILE *fp;
  char buf[1000];
  int len;
  xstr *temp;
  char *index;

  zl->nr = 0;
  zl->strs = NULL;
  fp = fopen(anthy_conf_get_str("ZIPDICT_EUC"), "r");
  if (!fp) {
    return ;
  }
  
  /* Ⱦ³Ñ¡¢Á´³Ñ¤òµÛ¼ý¤¹¤ë */
  temp = anthy_xstr_wide_num_to_num(xs);
  index = anthy_xstr_to_cstr(temp, 0);
  len = strlen(index);

  /* Á´Éôgrep¤¹¤ë */
  while (fgets(buf, 1000, fp)) {
    /* 3ʸ»ú¤Î͹ÊØÈֹ椬7ʸ»ú¤Î͹ÊØÈÖ¹æ¤ÎƬ¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤è¤¦¤Ë */
    if (!strncmp(buf, index, len) && buf[len] == ' ') {
      /* ²þ¹Ô¤ò¾Ã¤¹ */
      buf[strlen(buf) - 1] = 0;
      parse_zipcode_line(zl, &buf[len + 1]);
    }
  }
  anthy_free_xstr(temp);    /* ¥á¥â¥ê¥ê¡¼¥¯¤Î½¤Àµ */
  free(index);
  fclose(fp);
}

/* ͹ÊØÈֹ漭½ñ¤Î¾ðÊó¤ò²òÊü¤¹¤ë */
static void
free_zipcode_line(struct zipcode_line *zl)
{
  int i;
  for (i = 0; i < zl->nr; i++) {
    anthy_free_xstr(zl->strs[i]);
  }
  free(zl->strs);
}

static int
gen_zipcode(xstr* xs, xstr *dest, int nth)
{
  struct zipcode_line zl;

  /* ͹ÊØÈֹ漭½ñ¤«¤éÃÏ̾¤òÆɤ߼è¤ë */
  search_zipcode_dict(&zl, xs);

  /* ¸õÊä¤ò¼èÆÀ¤¹¤ë */
  if (zl.nr > nth) {
    dest->len = zl.strs[nth]->len;
    dest->str = anthy_xstr_dup_str(zl.strs[nth]);
    free_zipcode_line(&zl);
    return 0;
  } else {
    free_zipcode_line(&zl);
    return -1;
  }
}



/* Ⱦ³Ñ¤Î¿ô»ú¤«¤éÁ´³Ñ¤Î¿ô»ú¤òµá¤á¤ë */
static xchar
narrow_num_to_wide_num(xchar xc)
{
  if (xc > '9' || xc < '0') {
    return WIDE_0;
  }
  return narrow_wide_tab[(int)(xc - '0')];
}

/* Á´³Ñ¤Î¿ô»ú¤«¤éȾ³Ñ¤Î¿ô»ú¤òµá¤á¤ë */
static xchar
wide_num_to_narrow_num(xchar xc)
{
  int i;
  for (i = 0; i < 10; i++) {
    if (xc == narrow_wide_tab[i]) {
      return i + '0';
    }
  }
  return '0';
}
/*
 * °ì·å¤ÎÀ°¿ô¤ò´Á¿ô»ú¤ËÊÑ´¹¤¹¤ë
 */
static xchar
get_kj_num(int n)
{
  if (n > 9 || n < 1) {
    return KJ_10;
  }
  return kj_num_tab[n];
}

/*
 * 4·åʬ¤ÎÀ°¿ô¤ò´Á»úʸ»úÎó¤È¤·¤Æ¤òÀ¸À®¤¹¤ë
 */
static void
compose_num_component(xstr *xs, long long num)
{
  int n[4],i;
  int a[4] = { 0 , KJ_10, KJ_100, KJ_1000};
  for (i = 0; i < 4; i++) {
    n[i] = num-(num/10)*10;
    num /= 10;
  }
  /* 10,100,1000¤Î°Ì */
  for (i = 3; i > 0; i--) {
    if (n[i] > 0) {
      if (n[i] > 1) {
        anthy_xstrappend(xs, get_kj_num(n[i]));
      }
      anthy_xstrappend(xs, a[i]);
    }
  }
  /* 1¤Î°Ì */
  if (n[0]) {
    anthy_xstrappend(xs, get_kj_num(n[0]));
  }
}

/** ´Á¿ô»ú¤Îʸ»úÎó¤òºî¤ë */
static int
gen_kanji_num(long long num, xstr *dest)
{
  int i;
  int n[10];
  if (num < 1 || num >= 10000000000000000LL) {
    return -1;
  }
  /* 4·å¤º¤ÄÇÛÎón¤Ë¤Ä¤á¤ë */
  for (i = 0; i < 10; i ++) {
    n[i] = num-(num/10000)*10000;
    num = num/10000;
  }
  /**/
  dest->len = 0;
  dest->str = 0;
  /* µþ¤Î°Ì¤ò¤Ä¤¯¤ë */
  if (n[3]) {
    compose_num_component(dest, n[3]);
    anthy_xstrappend(dest, KJ_1000000000000);
  }
  /* ²¯¤Î°Ì¤ò¤Ä¤¯¤ë */
  if (n[2]) {
    compose_num_component(dest, n[2]);
    anthy_xstrappend(dest, KJ_100000000);
  }
  /* Ëü¤Î°Ì¤ò¤Ä¤¯¤ë */
  if (n[1]) {
    compose_num_component(dest, n[1]);
    anthy_xstrappend(dest, KJ_10000);
  }
  /**/
  compose_num_component(dest, n[0]);
  return 0;
}

static int
get_nr_zipcode(xstr* xs)
{
  struct zipcode_line zl;
  int nr = 0;
  if (xs->len != 3 && xs->len != 7) {
    return 0;
  }
  /* ͹ÊØÈֹ漭½ñ¤«¤éÃÏ̾¤òÆɤ߼è¤ë */
  search_zipcode_dict(&zl, xs);

  nr = zl.nr;
  free_zipcode_line(&zl);
  return nr;
}

static int
get_nr_num_ents(long long num)
{
  if (num > 0 && num < 10000000000000000LL) {
    if (num > 999) {
      /* ¥¢¥é¥Ó¥¢¿ô»ú(¤½¤Î¤Þ¤Þ)¡¢¥¢¥é¥Ó¥¢¿ô»ú(Á´³ÑȾ³ÑÀÚÂؤ¨)¡¢
         ´Á¿ô»ú¡¢3·å¶èÀÚ¤ê(Á´³Ñ¡¢È¾³Ñ) */
      return 5;
    } else {
      /* ¥¢¥é¥Ó¥¢¿ô»ú(¤½¤Î¤Þ¤Þ)¡¢Á´³ÑȾ³ÑÀÚÂؤ¨¡¢´Á¿ô»ú */
      return 3;
    }
  } else {
    /* ¥¢¥é¥Ó¥¢¿ô»ú(¤½¤Î¤Þ¤Þ)¡¢Á´³ÑȾ³ÑÀÚÂؤ¨ */
    return 2;
  }
}


/*
 * ¤¤¤¯¤Ä¤Î¹çÀ®¤Î¥¨¥ó¥È¥ê¡¼¤¬¤¢¤ë¤«
 */
int
anthy_get_nr_dic_ents_of_ext_ent(seq_ent_t se, xstr *xs)
{
  if (se == &unkseq_ent) {
    return 1;
  }
  if (anthy_get_xstr_type(xs) & (XCT_NUM|XCT_WIDENUM)) {
    long long num = anthy_xstrtoll(xs);
    return get_nr_num_ents(num) + get_nr_zipcode(xs);
  }
  return 0;
}

/* ʸ»úÎó¤ÎÁ´³ÑȾ³Ñ¤ò¸ò´¹¤¹¤ë */
static void
toggle_wide_narrow(xstr *dest, xstr *src)
{
  int f, i;
  dest->len = src->len;
  dest->str = anthy_xstr_dup_str(src);
  f = anthy_get_xstr_type(src) & XCT_WIDENUM;
  for (i = 0; i < dest->len; i++) {
    if (f) {
      dest->str[i] = wide_num_to_narrow_num(src->str[i]);
    } else {
      dest->str[i] = narrow_num_to_wide_num(src->str[i]);
    }
  }
}

/* 3·å¤Ë¶èÀڤä¿¿ô»ú¤òÀ¸À®¤¹¤ë */
static int
gen_separated_num(long long num, xstr *dest, int full)
{
  int width = 0, dot_count;
  long long tmp;
  int i, pos;

  if (num < 1000) {
    return -1;
  }

  /* ·å¿ô¤ò¿ô¤¨¤ë */
  for (tmp = num; tmp != 0; tmp /= 10) {
    width ++;
  }
  /* ÅÀ¤Î¿ô */
  dot_count = (width - 1) / 3;
  /* ³ÊǼ¤¹¤ë¤Î¤ËɬÍפÊʸ»úÎó¤òÍÑ°Õ¤¹¤ë */
  dest->len = dot_count + width;
  dest->str = malloc(sizeof(xchar)*dest->len);

  /* ±¦¤Î·å¤«¤é½ç¤Ë·è¤á¤Æ¤¤¤¯ */
  for (i = 0, pos = dest->len - 1; i < width; i++, pos --) {
    int n = num % 10;
    /* ¥«¥ó¥Þ¤òÄɲà */
    if (i > 0 && (i % 3) == 0) {
      if (full) {
        dest->str[pos] = WIDE_COMMA;
      } else {
        dest->str[pos] = ',';
      }
      pos --;
    }
    if (full) {
      /* Á´³Ñ¿ô»ú */
      dest->str[pos] = narrow_wide_tab[n];
    } else {
      /* ASCII¿ô»ú */
      dest->str[pos] = 48 + n;
    }
    num /= 10;
  }
  return 0;
}

/*
 * nth¸Ä¤á¤Î¸õÊä¤ò¼è¤ê½Ð¤¹
 */
int
anthy_get_nth_dic_ent_str_of_ext_ent(seq_ent_t se, xstr *xs,
                                     int nth, xstr *dest)
{
  dest->str = NULL;     /* ÉÔÀµ¤Ê¥á¥â¥ê¥¢¥¯¥»¥¹¤ä¥á¥â¥ê¤Î¿½Å²òÊü¤ò¤¹¤ë¥Ð¥°¤Î½¤Àµ */
  dest->len = 0;
  if (nth == 0) {
    /* ̵ÊÑ´¹Ê¸»úÎó */
    dest->len = xs->len;
    dest->str = anthy_xstr_dup_str(xs);
    return 0;
  }
  if (se == &unkseq_ent) {
    switch(nth) {
    case 1:
      /* Á´³Ñ¡¢È¾³Ñ¤Î¥È¥°¥ë */
      return 0;
    }
  }
  if (anthy_get_xstr_type(xs) & (XCT_NUM|XCT_WIDENUM)) {
    long long num = anthy_xstrtoll(xs);
    const int base_ents = get_nr_num_ents(num); /* £³·å͹ÊØÈÖ¹æ¤Ø¤ÎÂбþ */
    /* ´Á¿ô»ú¡¢¥¢¥é¥Ó¥¢¿ô»ú¡¢Á´³ÑȾ³ÑÀÚÂؤ¨ */
    switch(nth) {
    case 1:
      /* Á´³ÑȾ³Ñ¤òÆþ¤ì´¹¤¨¤¿¤â¤Î */
      toggle_wide_narrow(dest, xs);
      return 0;
    case 2:
      /* ´Á¿ô»ú */
      if (!gen_kanji_num(num, dest)) {
        return 0;
      }
      /* break̵¤· */
    case 3:
      /* 3·å¤Ç¶èÀڤä¿¿ô»ú */
      if (!gen_separated_num(num, dest, 0)) {
        return 0;
      }
      /* break̵¤· */
    case 4:
      /* 3·å¤Ç¶èÀڤä¿¿ô»ú(Á´³Ñ) */
      if (!gen_separated_num(num, dest, 1)) {
        return 0;
      }
      /* break̵¤· */
    default:
      /* ͹ÊØÈÖ¹æ */
      if (base_ents <= nth) {   /* £³·å͹ÊØÈÖ¹æ¤Ø¤ÎÂбþ */
        if (xs->len == 3 || xs->len == 7) {
          if (!gen_zipcode(xs, dest, nth - base_ents)) {    /* £³·å͹ÊØÈÖ¹æ¤Ø¤ÎÂбþ */
            return 0;
          }
        }
      }
      break;
    }
    return -1;
  }
  return 0;
}

int
anthy_get_ext_seq_ent_indep(struct seq_ent *se)
{
  if (se == &num_ent || se == &unkseq_ent) {
    return 1;
  }
  return 0;
}

/* ³èÍÑ·Á¤òÆÀ¤ë */
int
anthy_get_ext_seq_ent_ct(struct seq_ent *se, int pos, int ct)
{
  if (anthy_get_ext_seq_ent_pos(se, pos) && ct == CT_NONE) {
    /* Éʻ줬¹ç¤Ã¤Æ¤¤¤Æ¤«¤Ä̵³èÍѤξì¹ç 
       (ext_ent¤Ï³èÍѤ·¤Ê¤¤) */
    return 10;
  }
  return 0;
}

/* ÉÊ»ì¤ò¼èÆÀ¤¹¤ë */
int
anthy_get_ext_seq_ent_pos(struct seq_ent *se, int pos)
{
  /* ext_ent¤Ï̾»ì¤Î¤ß */
  if (se == &num_ent && pos == POS_NOUN) {
    return 10;
  }
  if ((se == &unkseq_ent) && pos == POS_NOUN) {
    return 10;
  }
  return 0;
}

/*
 * ¼­½ñ¤Ë¤Î¤Ã¤Æ¤¤¤Ê¤¤¥·¡¼¥±¥ó¥¹¤ò²òÀÏ
 */
seq_ent_t
anthy_get_ext_seq_ent_from_xstr(xstr *x, int is_reverse)
{
  int t = anthy_get_xstr_type(x);

  /* ¿ô»ú¤Î¤ß¤Ç¹½À®¤µ¤ì¤Æ¤¤¤ì¤Ð num_ent */
  if (t & (XCT_NUM | XCT_WIDENUM)) {
    return &num_ent;
  }
  /* ±Ñ¿ô¤Ê¤éunkseq */
  if (t & XCT_ASCII) {
    return &unkseq_ent;
  }
  if (t & XCT_KATA) {
    return &unkseq_ent;
  }
  if (!is_reverse) {
    /* µÕÊÑ´¹Ãæ¤Ï´Á»ú¸õÊä¤Ïºî¤é¤Ê¤¤ */
    if (t & XCT_KANJI) {
      return &unkseq_ent;
    }
  }
  if (x->len == 1) {
    /* ¼­½ñ¤Ë¤Î¤Ã¤Æ¤Ê¤¯¤Æ1ʸ»ú¤Ê¤é¥»¥Ñ¥ì¡¼¥¿ */
    return &sep_ent;
  }
  return 0;
}

int
anthy_get_nth_dic_ent_wtype_of_ext_ent(xstr *xs, int nth,
                                       wtype_t *wt)
{
  int type;
  (void)nth;
  type = anthy_get_xstr_type(xs);
  if (type & (XCT_NUM | XCT_WIDENUM)) {
    *wt = wt_num;
    return 0;
  }
  if (type & XCT_KATA) {
    *wt = anthy_get_wtype(POS_NOUN, COS_NONE, SCOS_NONE, CC_NONE,
                          CT_NONE, WF_INDEP);
    return 0;
  }
  return -1;
}

int
anthy_get_nth_dic_ent_freq_of_ext_ent(struct seq_ent *se, int nth)
{
  (void)se;
  (void)nth;
  return 100;
}

int
anthy_get_ext_seq_ent_wtype(struct seq_ent *se, wtype_t w)
{
  if (se == &num_ent) {
    if (anthy_wtype_include(w, wt_num)) {
      /* ¿ô»ú¤Î¾ì¹ç */
      return 10;
    }
    return 0;
  }
  if (anthy_wtype_get_pos(w) == POS_NOUN &&
      anthy_wtype_get_cos(w) == COS_NONE &&
      anthy_wtype_get_scos(w) == SCOS_NONE) {
    /* ̾»ì¡¢ÉûÉÊ»ì¤Ê¤·¡¢Éû¡¹ÉÊ»ì̵¤·¤Ë¥Þ¥Ã¥Á */
    return 10;
  }
  return 0;
}

void
anthy_init_ext_ent(void)
{
  /**/
  unkseq_ent.seq_type = 0;
  unkseq_ent.nr_dic_ents = 0;
  num_ent.seq_type = 0;
  num_ent.nr_dic_ents = 0;
  sep_ent.seq_type = 0;
  sep_ent.nr_dic_ents = 0;
  /**/
  wt_num = anthy_init_wtype_by_name("¿ô»ì");
}