To index activities.

§1.

typedef struct activity_indexing_data {
    int activity_indexed;  has this been indexed yet?
    struct wording av_documentation_symbol;  cross-reference to HTML documentation, if any
    struct activity_crossref *cross_references;
} activity_indexing_data;

typedef struct activity_crossref {
    struct id_body *rule_dependent;
    struct activity_crossref *next;
} activity_crossref;

• The structure activity_indexing_data is private to this section.
• The structure activity_crossref is accessed in 2/ins, 2/rls, 3/scn, 4/em and here.

§2.

activity_indexing_data IXActivities::new_indexing_data(activity *av, wording doc) {
    activity_indexing_data aid;
    aid.activity_indexed = FALSE;
    aid.av_documentation_symbol = doc;
    aid.cross_references = NULL;
    return aid;
}

void IXActivities::index_by_number?Usage of IXActivities::index_by_number:
Rules - §6.1, §6.3, §6.6, §6.8, §6.9(OUTPUT_STREAM, int id, int indent) {
    activity *av = Activities::std(id);
    if (av) IXActivities::index(OUT, av, indent);
}

int IXActivities::no_rules?Usage of IXActivities::no_rules:
Rules - §7(activity *av) {
    int t = 0;
    t += Rulebooks::no_rules(av->before_rules);
    t += Rulebooks::no_rules(av->for_rules);
    t += Rulebooks::no_rules(av->after_rules);
    return t;
}
void IXActivities::index?Usage of IXActivities::index:
Rules - §6.10.1(OUTPUT_STREAM, activity *av, int indent) {
    int empty = TRUE;
    char *text = NULL;
    if (av->indexing_data.activity_indexed) return;
    av->indexing_data.activity_indexed = TRUE;
    if (Rulebooks::is_empty(av->before_rules) == FALSE) empty = FALSE;
    if (Rulebooks::is_empty(av->for_rules) == FALSE) empty = FALSE;
    if (Rulebooks::is_empty(av->after_rules) == FALSE) empty = FALSE;
    if (av->indexing_data.cross_references) empty = FALSE;
    TEMPORARY_TEXT(doc_link)
    if (Wordings::nonempty(av->indexing_data.av_documentation_symbol))
        WRITE_TO(doc_link, "%+W", Wordings::one_word(Wordings::first_wn(av->indexing_data.av_documentation_symbol)));
    if (empty) text = "There are no rules before, for or after this activity.";
    IXRules::index_rules_box(OUT, NULL, av->name, doc_link,
        NULL, av, text, indent, TRUE);
    DISCARD_TEXT(doc_link)
}

void IXActivities::index_details?Usage of IXActivities::index_details:
Rules - §7(OUTPUT_STREAM, activity *av) {
    int ignore_me = 0;
    IXRules::index_rulebook(OUT, av->before_rules, "before",
        IXRules::no_rule_context(), &ignore_me);
    IXRules::index_rulebook(OUT, av->for_rules, "for",
        IXRules::no_rule_context(), &ignore_me);
    IXRules::index_rulebook(OUT, av->after_rules, "after",
        IXRules::no_rule_context(), &ignore_me);
    IXActivities::index_cross_references(OUT, av);
}

void IXActivities::annotate_list_for_cross_references(activity_list *avl, id_body *idb) {
    for (; avl; avl = avl->next)
        if (avl->activity) {
            activity *av = avl->activity;
            activity_crossref *acr = CREATE(activity_crossref);
            acr->next = av->indexing_data.cross_references;
            av->indexing_data.cross_references = acr;
            acr->rule_dependent = idb;
        }
}

void IXActivities::index_cross_references(OUTPUT_STREAM, activity *av) {
    activity_crossref *acr;
    for (acr = av->indexing_data.cross_references; acr; acr = acr->next) {
        id_body *idb = acr->rule_dependent;
        if ((ImperativeDefinitions::body_at(idb)) && (Wordings::nonempty(Node::get_text(ImperativeDefinitions::body_at(idb))))) {
            HTML::open_indented_p(OUT, 2, "tight");
            WRITE("NB: %W", Node::get_text(ImperativeDefinitions::body_at(idb)));
            Index::link(OUT, Wordings::first_wn(Node::get_text(ImperativeDefinitions::body_at(idb))));
            HTML_CLOSE("p");
        }
    }
}