void NJDNode_copy(NJDNode * node1, NJDNode * node2)
{
NJDNode_set_string(node1, node2->string);
NJDNode_set_pos(node1, node2->pos);
NJDNode_set_pos_group1(node1, node2->pos_group1);
NJDNode_set_pos_group2(node1, node2->pos_group2);
NJDNode_set_pos_group3(node1, node2->pos_group3);
NJDNode_set_ctype(node1, node2->ctype);
NJDNode_set_cform(node1, node2->cform);
NJDNode_set_orig(node1, node2->orig);
NJDNode_set_read(node1, node2->read);
NJDNode_set_pron(node1, node2->pron);
NJDNode_set_acc(node1, node2->acc);
NJDNode_set_mora_size(node1, node2->mora_size);
NJDNode_set_chain_rule(node1, node2->chain_rule);
NJDNode_set_chain_flag(node1, node2->chain_flag);
}
static int get_digit(NJDNode * node, int convert_flag)
{
int i;
if (strcmp(NJDNode_get_string(node), "*") == 0)
return -1;
if (strcmp(NJDNode_get_pos_group1(node), NJD_SET_DIGIT_KAZU) == 0)
for (i = 0; njd_set_digit_rule_numeral_list1[i] != NULL; i += 3)
if (strcmp(njd_set_digit_rule_numeral_list1[i], NJDNode_get_string(node)) == 0) {
if (convert_flag == 1) {
NJDNode_set_string(node, (char *) njd_set_digit_rule_numeral_list1[i + 2]);
NJDNode_set_orig(node, (char *) njd_set_digit_rule_numeral_list1[i + 2]);
}
return atoi(njd_set_digit_rule_numeral_list1[i + 1]);
}
return -1;
}
void NJD_load_from_fp(NJD * njd, FILE * fp)
{
NJDNode *node = NULL;
char string[MAXBUFLEN];
char pos[MAXBUFLEN];
char pos_group1[MAXBUFLEN];
char pos_group2[MAXBUFLEN];
char pos_group3[MAXBUFLEN];
char ctype[MAXBUFLEN];
char cform[MAXBUFLEN];
char orig[MAXBUFLEN];
char read[MAXBUFLEN];
char pron[MAXBUFLEN];
char acc[MAXBUFLEN];
char mora_size[MAXBUFLEN];
char chain_rule[MAXBUFLEN];
char chain_flag[MAXBUFLEN];
if (fp == NULL) {
fprintf(stderr, "WARNING: NJD_load_from_fp() in njd.c: File pointer should not be null.");
return;
}
while (1) {
get_token_from_fp(fp, string, ',');
if (get_token_from_fp(fp, pos, ',') <= 0)
break;
if (get_token_from_fp(fp, pos_group1, ',') <= 0)
break;
if (get_token_from_fp(fp, pos_group2, ',') <= 0)
break;
if (get_token_from_fp(fp, pos_group3, ',') <= 0)
break;
if (get_token_from_fp(fp, ctype, ',') <= 0)
break;
if (get_token_from_fp(fp, cform, ',') <= 0)
break;
get_token_from_fp(fp, orig, ',');
get_token_from_fp(fp, read, ',');
get_token_from_fp(fp, pron, ',');
if (get_token_from_fp(fp, acc, '/') <= 0)
break;
if (get_token_from_fp(fp, mora_size, ',') <= 0)
break;
get_token_from_fp(fp, chain_rule, ',');
if (get_token_from_fp(fp, chain_flag, ',') <= 0)
break;
node = (NJDNode *) calloc(1, sizeof(NJDNode));
NJDNode_initialize(node);
NJDNode_set_string(node, string);
NJDNode_set_pos(node, pos);
NJDNode_set_pos_group1(node, pos_group1);
NJDNode_set_pos_group2(node, pos_group2);
NJDNode_set_pos_group3(node, pos_group3);
NJDNode_set_ctype(node, ctype);
NJDNode_set_cform(node, cform);
NJDNode_set_orig(node, orig);
NJDNode_set_read(node, read);
NJDNode_set_pron(node, pron);
NJDNode_set_acc(node, atoi(acc));
NJDNode_set_mora_size(node, atoi(mora_size));
NJDNode_set_chain_rule(node, chain_rule);
NJDNode_set_chain_flag(node, atoi(chain_flag));
NJD_push_node(njd, node);
}
}
void NJD_load(NJD * njd, char *str)
{
int i = 0;
NJDNode *node = NULL;
char string[MAXBUFLEN];
char pos[MAXBUFLEN];
char pos_group1[MAXBUFLEN];
char pos_group2[MAXBUFLEN];
char pos_group3[MAXBUFLEN];
char ctype[MAXBUFLEN];
char cform[MAXBUFLEN];
char orig[MAXBUFLEN];
char read[MAXBUFLEN];
char pron[MAXBUFLEN];
char acc[MAXBUFLEN];
char mora_size[MAXBUFLEN];
char chain_rule[MAXBUFLEN];
char chain_flag[MAXBUFLEN];
if (strlen(str) < 1) {
fprintf(stderr, "WARNING: NJD_load() in njd.c: Input string should not be empty.");
return;
}
while (1) {
get_token_from_string(str, &i, string, ',');
if (get_token_from_string(str, &i, pos, ',') <= 0)
break;
if (get_token_from_string(str, &i, pos_group1, ',') <= 0)
break;
if (get_token_from_string(str, &i, pos_group2, ',') <= 0)
break;
if (get_token_from_string(str, &i, pos_group3, ',') <= 0)
break;
if (get_token_from_string(str, &i, ctype, ',') <= 0)
break;
if (get_token_from_string(str, &i, cform, ',') <= 0)
break;
get_token_from_string(str, &i, orig, ',');
get_token_from_string(str, &i, read, ',');
get_token_from_string(str, &i, pron, ',');
if (get_token_from_string(str, &i, acc, '/') <= 0)
break;
if (get_token_from_string(str, &i, mora_size, ',') <= 0)
break;
get_token_from_string(str, &i, chain_rule, ',');
if (get_token_from_string(str, &i, chain_flag, ',') <= 0)
break;
node = (NJDNode *) calloc(1, sizeof(NJDNode));
NJDNode_initialize(node);
NJDNode_set_string(node, string);
NJDNode_set_pos(node, pos);
NJDNode_set_pos_group1(node, pos_group1);
NJDNode_set_pos_group2(node, pos_group2);
NJDNode_set_pos_group3(node, pos_group3);
NJDNode_set_ctype(node, ctype);
NJDNode_set_cform(node, cform);
NJDNode_set_orig(node, orig);
NJDNode_set_read(node, read);
NJDNode_set_pron(node, pron);
NJDNode_set_acc(node, atoi(acc));
NJDNode_set_mora_size(node, atoi(mora_size));
NJDNode_set_chain_rule(node, chain_rule);
NJDNode_set_chain_flag(node, atoi(chain_flag));
NJD_push_node(njd, node);
}
}
void NJDNode_load(NJDNode * node, const char *str)
{
int i, j;
int index = 0;
char buff[MAXBUFLEN];
char buff_string[MAXBUFLEN];
char buff_orig[MAXBUFLEN];
char buff_read[MAXBUFLEN];
char buff_pron[MAXBUFLEN];
char buff_acc[MAXBUFLEN];
int count;
int index_string;
int index_orig;
int index_read;
int index_pron;
int index_acc;
NJDNode *prev = NULL;
/* load */
get_token_from_string(str, &index, buff_string, ',');
get_token_from_string(str, &index, buff, ',');
NJDNode_set_pos(node, buff);
get_token_from_string(str, &index, buff, ',');
NJDNode_set_pos_group1(node, buff);
get_token_from_string(str, &index, buff, ',');
NJDNode_set_pos_group2(node, buff);
get_token_from_string(str, &index, buff, ',');
NJDNode_set_pos_group3(node, buff);
get_token_from_string(str, &index, buff, ',');
NJDNode_set_ctype(node, buff);
get_token_from_string(str, &index, buff, ',');
NJDNode_set_cform(node, buff);
get_token_from_string(str, &index, buff_orig, ',');
get_token_from_string(str, &index, buff_read, ',');
get_token_from_string(str, &index, buff_pron, ',');
get_token_from_string(str, &index, buff_acc, ',');
get_token_from_string(str, &index, buff, ',');
NJDNode_set_chain_rule(node, buff);
get_token_from_string(str, &index, buff, ',');
if (strcmp(buff, "1") == 0)
NJDNode_set_chain_flag(node, 1);
else if (strcmp(buff, "0") == 0)
NJDNode_set_chain_flag(node, 0);
/* for symbol */
if (strstr(buff_acc, "*") != NULL || strstr(buff_acc, "/") == NULL) {
NJDNode_set_string(node, buff_string);
NJDNode_set_orig(node, buff_orig);
NJDNode_set_read(node, buff_read);
NJDNode_set_pron(node, buff_pron);
NJDNode_set_acc(node, 0);
NJDNode_set_mora_size(node, 0);
return;
}
/* count chained word */
for (i = 0, count = 0; buff_acc[i] != '\0'; i++)
if (buff_acc[i] == '/')
count++;
/* for single word */
if (count == 1) {
NJDNode_set_string(node, buff_string);
NJDNode_set_orig(node, buff_orig);
NJDNode_set_read(node, buff_read);
NJDNode_set_pron(node, buff_pron);
index_acc = 0;
get_token_from_string(buff_acc, &index_acc, buff, '/');
if (buff[0] == '\0') {
j = 0;
fprintf(stderr, "WARNING: NJDNode_load() in njd_node.c: Accent is empty.\n");
} else {
j = atoi(buff);
}
NJDNode_set_acc(node, j);
get_token_from_string(buff_acc, &index_acc, buff, ':');
if (buff[0] == '\0') {
j = 0;
fprintf(stderr, "WARNING: NJDNode_load() in njd_node.c: Mora size is empty.\n");
} else {
j = atoi(buff);
}
NJDNode_set_mora_size(node, j);
return;
}
/* parse chained word */
index_string = 0;
index_orig = 0;
index_read = 0;
index_pron = 0;
index_acc = 0;
for (i = 0; i < count; i++) {
if (i > 0) {
node = (NJDNode *) calloc(1, sizeof(NJDNode));
NJDNode_initialize(node);
NJDNode_copy(node, prev);
NJDNode_set_chain_flag(node, 0);
node->prev = prev;
prev->next = node;
}
/* orig */
get_token_from_string(buff_orig, &index_orig, buff, ':');
NJDNode_set_orig(node, buff);
/* string */
if (i + 1 < count) {
NJDNode_set_string(node, buff);
index_string += strlen(buff);
} else {
NJDNode_set_string(node, &buff_string[index_string]);
}
/* read */
get_token_from_string(buff_read, &index_read, buff, ':');
NJDNode_set_read(node, buff);
/* pron */
get_token_from_string(buff_pron, &index_pron, buff, ':');
NJDNode_set_pron(node, buff);
/* acc */
get_token_from_string(buff_acc, &index_acc, buff, '/');
if (buff[0] == '\0') {
j = 0;
fprintf(stderr, "WARNING: NJDNode_load() in njd_node.c: Accent is empty.\n");
} else {
j = atoi(buff);
}
NJDNode_set_acc(node, j);
/* mora size */
get_token_from_string(buff_acc, &index_acc, buff, ':');
if (buff[0] == '\0') {
j = 0;
fprintf(stderr, "WARNING: NJDNode_load() in njd_node.c: Mora size is empty.\n");
} else {
j = atoi(buff);
}
NJDNode_set_mora_size(node, j);
prev = node;
}
}