To write the Grouped actions element (A1) in the index, and also the detailed per-action pages linked from it.
void GroupedElement::render(OUTPUT_STREAM, localisation_dictionary *LD) { inter_tree *I = InterpretIndex::get_tree(); tree_inventory *inv = Synoptic::inv(I); TreeLists::sort(inv->action_nodes, Synoptic::module_order); int f = FALSE; text_stream *current_area = I"___no_area___"; text_stream *current_subarea = I"___no_sub_area___"; for (int i=0; i<TreeLists::len(inv->action_nodes); i++) { inter_package *an_pack = Inter::Package::defined_by_frame(inv->action_nodes->list[i].node); text_stream *this_area = Metadata::read_optional_textual(an_pack, I"^index_heading"); int suppress_comma = FALSE; if (Str::eq(this_area, current_area) == FALSE) { if (f) HTML_CLOSE("p"); HTML_OPEN("p"); WRITE("<b>%S</b>", this_area); HTML_CLOSE("p"); current_area = this_area; current_subarea = I"___no_sub_area___"; f = FALSE; suppress_comma = TRUE; } text_stream *this_subarea = Metadata::read_optional_textual(an_pack, I"^index_subheading"); if (Str::eq(this_subarea, current_subarea) == FALSE) { if (f) HTML_CLOSE("p"); HTML_OPEN("p"); WRITE("<b>%S</b><br>", this_subarea); current_subarea = this_subarea; f = TRUE; suppress_comma = TRUE; } if (f == FALSE) HTML_OPEN("p"); if ((f) && (suppress_comma == FALSE)) WRITE(", "); GroupedElement::index_p1(OUT, an_pack, FALSE, FALSE, i); f = TRUE; } if (f) HTML_CLOSE("p"); } void GroupedElement::index_p1(OUTPUT_STREAM, inter_package *an_pack, int bold, int on_details_page, int i) { inter_ti oow = Metadata::read_optional_numeric(an_pack, I"^out_of_world"); if (oow) HTML::begin_colour(OUT, I"800000"); if (bold) WRITE("<b>"); WRITE("%S", Metadata::read_optional_textual(an_pack, I"^name")); if (bold) WRITE("</b>"); if (oow) HTML::end_colour(OUT); int at = (int) Metadata::read_optional_numeric(an_pack, I"^at"); if (at > 0) IndexUtilities::link(OUT, at); IndexUtilities::detail_link(OUT, "A", i, (on_details_page)?FALSE:TRUE); } void GroupedElement::detail_pages(localisation_dictionary *D) { inter_tree *I = InterpretIndex::get_tree(); tree_inventory *inv = Synoptic::inv(I); TreeLists::sort(inv->action_nodes, Synoptic::module_order); for (int i=0; i<TreeLists::len(inv->action_nodes); i++) { inter_package *an_pack = Inter::Package::defined_by_frame(inv->action_nodes->list[i].node); text_stream *OUT = InterpretIndex::open_file(NULL, I"A.html", I"<Actions", i, D); IndexUtilities::banner_line(OUT, NULL, 1, I"^", I"Details", I"A single action in detail.|About the action rulebooks<ARSUMMARY>", "../Actions.html"); HTML_TAG("hr"); text_stream *this_area = Metadata::read_optional_textual(an_pack, I"^index_heading"); text_stream *this_subarea = Metadata::read_optional_textual(an_pack, I"^index_subheading"); HTML_OPEN("p"); WRITE("<b>%S - %S</b><br>", this_area, this_subarea); int c = 0; for (int j=0; j<TreeLists::len(inv->action_nodes); j++) { inter_package *an2_pack = Inter::Package::defined_by_frame(inv->action_nodes->list[j].node); text_stream *this_area2 = Metadata::read_optional_textual(an2_pack, I"^index_heading"); text_stream *this_subarea2 = Metadata::read_optional_textual(an2_pack, I"^index_subheading"); if ((Str::eq(this_area, this_area2)) && (Str::eq(this_subarea, this_subarea2))) { if (c++ > 0) WRITE(", "); if (j == i) WRITE("<b>"); WRITE("%S", Metadata::read_optional_textual(an2_pack, I"^name")); if (j == i) WRITE("</b>"); if (j != i) IndexUtilities::detail_link(OUT, "A", j, FALSE); } } HTML_CLOSE("p"); HTML_TAG("hr"); Show the heading1.1 HTML_TAG("hr"); Show the commands1.2; Show the action variables1.3; Show the rules relevant to this action1.4; InterpretIndex::close_index_file(OUT); } }
inter_ti oow = Metadata::read_optional_numeric(an_pack, I"^out_of_world"); inter_ti requires_light = Metadata::read_numeric(an_pack, I"^requires_light"); HTML_OPEN("p"); if (oow) HTML::begin_colour(OUT, I"800000"); WRITE("<b>"); WRITE("%S", Metadata::read_optional_textual(an_pack, I"^display_name")); if (oow) HTML::end_colour(OUT); WRITE("</b>"); int at = (int) Metadata::read_optional_numeric(an_pack, I"^at"); if (at > 0) IndexUtilities::link(OUT, at); if (requires_light) WRITE(" (requires light)"); WRITE(" (<i>past tense</i> %S)", Metadata::read_optional_textual(an_pack, I"^past_name")); text_stream *spec = Metadata::read_optional_textual(an_pack, I"^specification"); if (Str::len(spec) > 0) WRITE(": %S", spec); HTML_CLOSE("p"); text_stream *desc = Metadata::read_optional_textual(an_pack, I"^description"); if (Str::len(desc) > 0) { HTML_OPEN("p"); WRITE("%S", desc); HTML_CLOSE("p"); }
- This code is used in §1.
HTML_OPEN("p"); WRITE("<b>Typed commands leading to this action</b>\n"); HTML_CLOSE("p"); HTML_OPEN("p"); int producers = 0; inter_symbol *wanted = PackageTypes::get(I, I"_cg_line"); inter_tree_node *D = Inter::Packages::definition(an_pack); LOOP_THROUGH_INTER_CHILDREN(C, D) { if (C->W.data[ID_IFLD] == PACKAGE_IST) { inter_package *entry = Inter::Package::defined_by_frame(C); if (Inter::Packages::type(entry) == wanted) { inter_symbol *xref = Metadata::read_symbol(entry, I"^line"); CommandsElement::cgl_index_normal(OUT, Inter::Packages::container(xref->definition), NULL); producers++; } } } if (producers == 0) WRITE("<i>None</i>"); HTML_CLOSE("p");
- This code is used in §1.
§1.3. Show the action variables1.3 =
if (GroupedElement::no_vars(an_pack, I) > 0) { HTML_OPEN("p"); WRITE("<b>Named values belonging to this action</b>\n"); HTML_CLOSE("p"); GroupedElement::index_stv_set(OUT, I, an_pack); }
- This code is used in §1.
§1.4. Show the rules relevant to this action1.4 =
HTML_OPEN("p"); WRITE("<b>Rules controlling this action</b>"); HTML_CLOSE("p"); HTML_OPEN("p"); WRITE("\n"); int resp_count = 0; inter_ti oow = Metadata::read_optional_numeric(an_pack, I"^out_of_world"); if (oow == FALSE) { GroupedElement::index_action_rules(OUT, inv, an_pack, NULL, I"persuasion", I"persuasion", &resp_count); GroupedElement::index_action_rules(OUT, inv, an_pack, NULL, I"unsuccessful_attempt_by", I"unsuccessful attempt", &resp_count); GroupedElement::index_action_rules(OUT, inv, an_pack, NULL, I"setting_action_variables", I"set action variables for", &resp_count); GroupedElement::index_action_rules(OUT, inv, an_pack, NULL, I"before", I"before", &resp_count); GroupedElement::index_action_rules(OUT, inv, an_pack, NULL, I"instead", I"instead of", &resp_count); } inter_symbol *check_s = Metadata::read_symbol(an_pack, I"^check_rulebook"); inter_symbol *carry_out_s = Metadata::read_symbol(an_pack, I"^carry_out_rulebook"); inter_symbol *report_s = Metadata::read_symbol(an_pack, I"^report_rulebook"); inter_package *check_pack = Inter::Packages::container(check_s->definition); inter_package *carry_out_pack = Inter::Packages::container(carry_out_s->definition); inter_package *report_pack = Inter::Packages::container(report_s->definition); GroupedElement::index_action_rules(OUT, inv, an_pack, check_pack, I"check", I"check", &resp_count); GroupedElement::index_action_rules(OUT, inv, an_pack, carry_out_pack, I"carry_out", I"carry out", &resp_count); if (oow == FALSE) GroupedElement::index_action_rules(OUT, inv, an_pack, NULL, I"after", I"after", &resp_count); GroupedElement::index_action_rules(OUT, inv, an_pack, report_pack, I"report", I"report", &resp_count); if (resp_count > 1) { WRITE("Click on the speech-bubble icons to see the responses, " "or here to see all of them:"); WRITE(" "); IndexUtilities::extra_all_link_with(OUT, TreeLists::len(inv->rule_nodes), "responses"); WRITE("%d", resp_count); } HTML_CLOSE("p");
- This code is used in §1.
int GroupedElement::no_vars(inter_package *set, inter_tree *I) { int sv = 0; inter_symbol *wanted = PackageTypes::get(I, I"_shared_variable"); inter_tree_node *D = Inter::Packages::definition(set); LOOP_THROUGH_INTER_CHILDREN(C, D) { if (C->W.data[ID_IFLD] == PACKAGE_IST) { inter_package *entry = Inter::Package::defined_by_frame(C); if (Inter::Packages::type(entry) == wanted) { sv++; } } } return sv; } void GroupedElement::index_stv_set(OUTPUT_STREAM, inter_tree *I, inter_package *set) { inter_symbol *wanted = PackageTypes::get(I, I"_shared_variable"); inter_tree_node *D = Inter::Packages::definition(set); LOOP_THROUGH_INTER_CHILDREN(C, D) { if (C->W.data[ID_IFLD] == PACKAGE_IST) { inter_package *var_pack = Inter::Package::defined_by_frame(C); if (Inter::Packages::type(var_pack) == wanted) { HTML::open_indented_p(OUT, 2, "tight"); WRITE("%S", Metadata::read_optional_textual(var_pack, I"^name")); int at = (int) Metadata::read_optional_numeric(var_pack, I"^at"); if (at > 0) IndexUtilities::link(OUT, at); text_stream *doc_ref = Metadata::read_optional_textual(var_pack, I"^documentation"); if (Str::len(doc_ref) > 0) IndexUtilities::DocReferences::link(OUT, doc_ref); blue help icon, if any WRITE(" - <i>%S</i>", Metadata::read_optional_textual(var_pack, I"^kind")); HTML_CLOSE("p"); } } } } void GroupedElement::index_action_rules(OUTPUT_STREAM, tree_inventory *inv, inter_package *an, inter_package *rb, text_stream *key, text_stream *desc, int *resp_count) { IndexRules::list_suppress_indexed_links(); int t = IndexRules::index_rulebook_inner(OUT, 0, inv->of_tree, IndexRules::find_rulebook(inv, key), desc, IndexRules::action_context(an), resp_count); if (rb) t += IndexRules::index_rulebook_inner(OUT, t, inv->of_tree, rb, desc, IndexRules::no_rule_context(), resp_count); if (t > 0) HTML_CLOSE("p"); IndexRules::list_resume_indexed_links(); }