static void get_rule(const char *input_rule, const char *prev_pos, char *rule, int *add_type)
{
int index = 0;
char buff[MAXBUFLEN];
char c = ' ';
if (input_rule) {
while (c != '\0') {
c = get_token_from_string(input_rule, &index, buff);
if ((c == '%' && strstr(prev_pos, buff) != NULL) || c == '@' || c == '/' || c == '\0') {
/* find */
if (c == '%')
c = get_token_from_string(input_rule, &index, rule);
else
strcpy(rule, buff);
if (c == '@') {
c = get_token_from_string(input_rule, &index, buff);
(*add_type) = atoi(buff);
} else {
(*add_type) = 0;
}
return;
} else {
/* skip */
while (c == '%' || c == '@')
c = get_token_from_string(input_rule, &index, buff);
}
}
}
/* not found */
strcpy(rule, "*");
(*add_type) = 0;
}
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;
}
}
