/**
* Takes as input a pointer to a Dict_node.
* The string of this Dict_node is an idiom string.
* This string is torn apart, and its components are inserted into the
* dictionary as special idiom words (ending in .I*, where * is a number).
* The expression of this Dict_node (its node field) has already been
* read and constructed. This will be used to construct the special idiom
* expressions.
* The given dict node is freed. The string is also freed.
*/
void insert_idiom(Dictionary dict, Dict_node * dn)
{
Exp * nc, * no, * n1;
E_list *ell, *elr;
const char * s;
int s_length;
Dict_node * dn_list, * xdn, * start_dn_list;
no = dn->exp;
s = dn->string;
s_length = strlen(s);
if (!is_idiom_string(s))
{
prt_error("Warning: Word \"%s\" on line %d "
"is not a correctly formed idiom string.\n"
"\tThis word will be ignored\n",
s, dict->line_number);
xfree((char *)dn, sizeof (Dict_node));
return;
}
dn_list = start_dn_list = make_idiom_Dict_nodes(dict, s);
xfree((char *)dn, sizeof (Dict_node));
if (dn_list->right == NULL) {
prt_error("Fatal Error: Idiom string with only one connector -- should have been caught");
exit(1);
}
/* first make the nodes for the base word of the idiom (last word) */
/* note that the last word of the idiom is first in our list */
/* ----- this code just sets up the node fields of the dn_list ----*/
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = '-';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
n1 = Exp_create(dict);
n1->u.l = ell = (E_list *) xalloc(sizeof(E_list));
ell->next = elr = (E_list *) xalloc(sizeof(E_list));
elr->next = NULL;
ell->e = nc;
elr->e = no;
n1->type = AND_type;
n1->cost = 0;
dn_list->exp = n1;
dn_list = dn_list->right;
while(dn_list->right != NULL) {
/* generate the expression for a middle idiom word */
n1 = Exp_create(dict);
n1->u.string = NULL;
n1->type = AND_type;
n1->cost = 0;
n1->u.l = ell = (E_list *) xalloc(sizeof(E_list));
ell->next = elr = (E_list *) xalloc(sizeof(E_list));
elr->next = NULL;
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = '+';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
elr->e = nc;
increment_current_name();
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = '-';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
ell->e = nc;
dn_list->exp = n1;
dn_list = dn_list->right;
}
/* now generate the last one */
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = '+';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
dn_list->exp = nc;
increment_current_name();
/* ---- end of the code alluded to above ---- */
/* now its time to insert them into the dictionary */
dn_list = start_dn_list;
while (dn_list != NULL) {
xdn = dn_list->right;
dn_list->left = dn_list->right = NULL;
dn_list->string = build_idiom_word_name(dict, dn_list->string);
dict->root = insert_dict(dict, dict->root, dn_list);
dict->num_entries++;
dn_list = xdn;
}
/* xfree((char *)s, s_length+1); strings are handled by string_set */
}
void insert_idiom(Dictionary dict, Dict_node * dn) {
/* Takes as input a pointer to a Dict_node.
The string of this Dict_node is an idiom string.
This string is torn apart, and its components are inserted into the
dictionary as special idiom words (ending in .I*, where * is a number).
The expression of this Dict_node (its node field) has already been
read and constructed. This will be used to construct the special idiom
expressions.
The given dict node is freed. The string is also freed.
*/
Exp * nc, * no, * n1;
E_list *ell, *elr;
wchar_t * s;
int s_length;
Dict_node * dn_list, * xdn, * start_dn_list;
no = dn->exp;
s = dn->string;
s_length = wcslen(s);
if (!is_idiom_string(s)) {
wprintf_s(L"*** Word \"%s\" on line %d is not",s, dict->line_number);
wprintf_s(L" a correctly formed idiom string.\n");
wprintf_s(L" This word will be ignored\n");
/* xfree((wchar_t *)s, s_length+1); strings are handled now by string_set */
xfree((wchar_t *)dn, sizeof (Dict_node));
return;
}
dn_list = start_dn_list = make_idiom_Dict_nodes(dict, s);
xfree((wchar_t *)dn, sizeof (Dict_node));
if (dn_list->right == NULL) {
error(L"Idiom string with only one connector -- should have been caught");
}
/* first make the nodes for the base word of the idiom (last word) */
/* note that the last word of the idiom is first in our list */
/* ----- this code just sets up the node fields of the dn_list ----*/
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = L'-';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
n1 = Exp_create(dict);
n1->u.l = ell = (E_list *) xalloc(sizeof(E_list));
ell->next = elr = (E_list *) xalloc(sizeof(E_list));
elr->next = NULL;
ell->e = nc;
elr->e = no;
n1->type = AND_type;
n1->cost = 0;
dn_list->exp = n1;
dn_list = dn_list->right;
while(dn_list->right != NULL) {
/* generate the expression for a middle idiom word */
n1 = Exp_create(dict);
n1->u.string = NULL;
n1->type = AND_type;
n1->cost = 0;
n1->u.l = ell = (E_list *) xalloc(sizeof(E_list));
ell->next = elr = (E_list *) xalloc(sizeof(E_list));
elr->next = NULL;
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = L'+';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
elr->e = nc;
increment_current_name();
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = L'-';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
ell->e = nc;
dn_list->exp = n1;
dn_list = dn_list->right;
}
/* now generate the last one */
nc = Exp_create(dict);
nc->u.string = generate_id_connector(dict);
nc->dir = L'+';
nc->multi = FALSE;
nc->type = CONNECTOR_type;
nc->cost = 0;
dn_list->exp = nc;
increment_current_name();
/* ---- end of the code alluded to above ---- */
/* now its time to insert them into the dictionary */
dn_list = start_dn_list;
while (dn_list != NULL) {
xdn = dn_list->right;
dn_list->left = dn_list->right = NULL;
dn_list->string = build_idiom_word_name(dict, dn_list->string);
dict->root = insert_dict(dict, dict->root, dn_list);
dict->num_entries++;
dn_list = xdn;
}
/* xfree((wchar_t *)s, s_length+1); strings are handled by string_set */
}
