static void build_current_linkage_recursive(Parse_info pi, Parse_set *set) {
if (set == NULL) return;
if (set->current == NULL) return;
issue_links_for_choice(pi, set->current);
build_current_linkage_recursive(pi, set->current->set[0]);
build_current_linkage_recursive(pi, set->current->set[1]);
}
void build_current_linkage(Parse_info * pi) {
/* This function takes the "current" point in the given set and
generates the linkage that it represents.
*/
initialize_links(pi);
build_current_linkage_recursive(pi, pi->parse_set);
}
/**
* This function takes the "current" point in the given set and
* generates the linkage that it represents.
*/
void build_current_linkage(Parse_info pi)
{
initialize_links(pi);
build_current_linkage_recursive(pi, pi->parse_set);
}
