static void bad_depth_first_search(Postprocessor *pp, Linkage sublinkage,
size_t w, size_t root, size_t start_link)
{
List_o_links * lol;
PP_data *pp_data = &pp->pp_data;
assert(w < pp_data->num_words, "Bad word index");
pp_data->visited[w] = true;
for (lol = pp_data->word_links[w]; lol != NULL; lol = lol->next)
{
if ((lol->word < w) && (lol->link != start_link) && (w != root))
{
add_link_to_domain(pp_data, lol->link);
}
}
for (lol = pp_data->word_links[w]; lol != NULL; lol = lol->next)
{
assert(lol->word < pp_data->num_words, "Bad word index");
if ((!pp_data->visited[lol->word]) && !(w == root && lol->word < w) &&
!(lol->word < root && lol->word < w &&
pp_linkset_match(pp->knowledge->restricted_links,
sublinkage->link_array[lol->link].link_name)))
{
bad_depth_first_search(pp, sublinkage, lol->word, root, start_link);
}
}
}
static void bad_depth_first_search(Postprocessor *pp, Sublinkage *sublinkage,
int w, int root, int start_link)
{
List_o_links * lol;
pp->visited[w] = TRUE;
for (lol = pp->pp_data.word_links[w]; lol != NULL; lol = lol->next) {
if ((lol->word < w) && (lol->link != start_link) && (w != root)) {
add_link_to_domain(pp, lol->link);
}
}
for (lol = pp->pp_data.word_links[w]; lol != NULL; lol = lol->next) {
if ((!pp->visited[lol->word]) && !(w == root && lol->word < w) &&
!(lol->word < root && lol->word < w &&
pp_linkset_match(pp->knowledge->restricted_links,
sublinkage->link[lol->link]->name)))
bad_depth_first_search(pp, sublinkage, lol->word, root, start_link);
}
}
static void build_domains(Postprocessor *pp, Linkage sublinkage)
{
size_t link, i, d;
const char *s;
PP_data *pp_data = &pp->pp_data;
pp_data->N_domains = 0;
for (link = 0; link<sublinkage->num_links; link++)
{
assert (sublinkage->link_array[link].lw != SIZE_MAX);
if (NULL == sublinkage->link_array[link].link_name) continue;
s = sublinkage->link_array[link].link_name;
if (pp_linkset_match(pp->knowledge->ignore_these_links, s)) continue;
if (pp_linkset_match(pp->knowledge->domain_starter_links, s))
{
setup_domain_array(pp, s, link);
if (pp_linkset_match(pp->knowledge->domain_contains_links, s))
add_link_to_domain(pp_data, link);
clear_visited(pp_data);
depth_first_search(pp, sublinkage, sublinkage->link_array[link].rw,
sublinkage->link_array[link].lw, link);
}
else
if (pp_linkset_match(pp->knowledge->urfl_domain_starter_links, s))
{
setup_domain_array(pp, s, link);
/* always add the starter link to its urfl domain */
add_link_to_domain(pp_data, link);
clear_visited(pp_data);
bad_depth_first_search(pp, sublinkage,sublinkage->link_array[link].rw,
sublinkage->link_array[link].lw, link);
}
else
if (pp_linkset_match(pp->knowledge->urfl_only_domain_starter_links, s))
{
setup_domain_array(pp, s, link);
/* do not add the starter link to its urfl_only domain */
clear_visited(pp_data);
d_depth_first_search(pp, sublinkage, sublinkage->link_array[link].lw,
sublinkage->link_array[link].lw,
sublinkage->link_array[link].rw, link);
}
else
if (pp_linkset_match(pp->knowledge->left_domain_starter_links, s))
{
setup_domain_array(pp, s, link);
/* do not add the starter link to a left domain */
clear_visited(pp_data);
left_depth_first_search(pp, sublinkage, sublinkage->link_array[link].lw,
sublinkage->link_array[link].rw, link);
}
}
/* sort the domains by size */
qsort((void *) pp_data->domain_array,
pp_data->N_domains,
sizeof(Domain),
(int (*)(const void *, const void *)) domain_compare);
/* sanity check: all links in all domains have a legal domain name */
for (d = 0; d < pp_data->N_domains; d++)
{
i = find_domain_name(pp, pp_data->domain_array[d].string);
if (i == SIZE_MAX)
prt_error("Error: post_process(): Need an entry for %s in LINK_TYPE_TABLE",
pp_data->domain_array[d].string);
pp_data->domain_array[d].type = i;
}
}
static void build_domains(Postprocessor *pp, Sublinkage *sublinkage)
{
int link, i, d;
char *s;
pp->pp_data.N_domains = 0;
for (link = 0; link<sublinkage->num_links; link++) {
if (sublinkage->link[link]->l == -1) continue;
s = sublinkage->link[link]->name;
if (pp_linkset_match(pp->knowledge->ignore_these_links, s)) continue;
if (pp_linkset_match(pp->knowledge->domain_starter_links, s))
{
setup_domain_array(pp, pp->pp_data.N_domains, s, link);
if (pp_linkset_match(pp->knowledge->domain_contains_links, s))
add_link_to_domain(pp, link);
depth_first_search(pp,sublinkage,sublinkage->link[link]->r,
sublinkage->link[link]->l, link);
pp->pp_data.N_domains++;
assert(pp->pp_data.N_domains<PP_MAX_DOMAINS, "raise value of PP_MAX_DOMAINS");
}
else {
if (pp_linkset_match(pp->knowledge->urfl_domain_starter_links,s))
{
setup_domain_array(pp, pp->pp_data.N_domains, s, link);
/* always add the starter link to its urfl domain */
add_link_to_domain(pp, link);
bad_depth_first_search(pp,sublinkage,sublinkage->link[link]->r,
sublinkage->link[link]->l,link);
pp->pp_data.N_domains++;
assert(pp->pp_data.N_domains<PP_MAX_DOMAINS,"raise PP_MAX_DOMAINS value");
}
else
if (pp_linkset_match(pp->knowledge->urfl_only_domain_starter_links,s))
{
setup_domain_array(pp, pp->pp_data.N_domains, s, link);
/* do not add the starter link to its urfl_only domain */
d_depth_first_search(pp,sublinkage, sublinkage->link[link]->l,
sublinkage->link[link]->l,
sublinkage->link[link]->r,link);
pp->pp_data.N_domains++;
assert(pp->pp_data.N_domains<PP_MAX_DOMAINS,"raise PP_MAX_DOMAINS value");
}
else
if (pp_linkset_match(pp->knowledge->left_domain_starter_links,s))
{
setup_domain_array(pp, pp->pp_data.N_domains, s, link);
/* do not add the starter link to a left domain */
left_depth_first_search(pp,sublinkage, sublinkage->link[link]->l,
sublinkage->link[link]->r,link);
pp->pp_data.N_domains++;
assert(pp->pp_data.N_domains<PP_MAX_DOMAINS,"raise PP_MAX_DOMAINS value");
}
}
}
/* sort the domains by size */
qsort((void *) pp->pp_data.domain_array,
pp->pp_data.N_domains,
sizeof(Domain),
(int (*)(const void *, const void *)) domain_compare);
/* sanity check: all links in all domains have a legal domain name */
for (d=0; d<pp->pp_data.N_domains; d++) {
i = find_domain_name(pp, pp->pp_data.domain_array[d].string);
if (i==-1)
error("\tpost_process: Need an entry for %s in LINK_TYPE_TABLE",
pp->pp_data.domain_array[d].string);
pp->pp_data.domain_array[d].type = i;
}
}
