Arithmetic Element

To write the Arithmetic element (Ar) in the index.

§1. These were really indexed for us in metadata generated by the main compiler; so we do little more than tabulate that data here.

void ArithmeticElement::render(OUTPUT_STREAM, index_session *session) {
    localisation_dictionary *LD = Indexing::get_localisation(session);
    tree_inventory *inv = Indexing::get_inventory(session);
    InterNodeList::array_sort(inv->kind_nodes, MakeSynopticModuleStage::module_order);
    InterNodeList::array_sort(inv->multiplication_rule_nodes, MakeSynopticModuleStage::module_order);
    HTML_TAG("hr");
    Index the rubric about quasinumerical kinds1.1;
    Index the table of quasinumerical kinds1.2;
    Index the table of multiplication rules1.3;
}

§1.1. Index the rubric about quasinumerical kinds1.1 =

    HTML_OPEN("p");
    HTML_TAG_WITH("a", "calculator");
    HTML::begin_plain_html_table(OUT);
    HTML::first_html_column(OUT, 0);
    HTML_TAG_WITH("img", "border=0 src=inform:/doc_images/calc2.png");
    WRITE("&nbsp;");
    Localisation::roman(OUT, LD, I"Index.Elements.Ar.Calculator");
    HTML::end_html_row(OUT);
    HTML::end_html_table(OUT);
    HTML_CLOSE("p");

This code is used in §1.

§1.2. Index the table of quasinumerical kinds1.2 =

    HTML_OPEN("p");
    HTML::begin_plain_html_table(OUT);

    HTML::first_html_column(OUT, 0);
    ArithmeticElement::column(OUT, I"KindColumn", LD);
    HTML::next_html_column(OUT, 0);
    ArithmeticElement::column(OUT, I"MinimumColumn", LD);
    HTML::next_html_column(OUT, 0);
    ArithmeticElement::column(OUT, I"MaximumColumn", LD);
    HTML::next_html_column(OUT, 0);
    ArithmeticElement::column(OUT, I"DimensionsdColumn", LD);
    HTML::end_html_row(OUT);

    inter_package *pack;
    LOOP_OVER_INVENTORY_PACKAGES(pack, i, inv->kind_nodes)
        if (Str::len(Metadata::optional_textual(pack, I"^min_value")) > 0) {
            HTML::first_html_column(OUT, 0);
            WRITE("%S", Metadata::optional_textual(pack, I"^printed_name"));
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::optional_textual(pack, I"^min_value"));
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::optional_textual(pack, I"^max_value"));
            HTML::next_html_column(OUT, 0);
            Dimensions column1.2.1;
            HTML::end_html_row(OUT);
        }
    HTML::end_html_table(OUT);
    HTML_CLOSE("p");

This code is used in §1.

§1.2.1. Dimensions column1.2.1 =

    text_stream *dims = Metadata::optional_textual(pack, I"^dimensions");
    if (Str::len(dims) > 0) {
        WRITE("%S", dims);
    } else {
        Localisation::italic(OUT, LD, I"Index.Elements.Ar.Dimensionless");
    }

This code is used in §1.2.

§1.3. This is simply a table of all the multiplications declared in the source text, sorted into kind order of left and then right operand.

Index the table of multiplication rules1.3 =

    if (InterNodeList::array_len(inv->multiplication_rule_nodes) > 0) {
        HTML_OPEN("p");
        WRITE("This is how multiplication changes kinds:");
        HTML_CLOSE("p");
        HTML_OPEN("p");
        HTML::begin_plain_html_table(OUT);
        inter_package *pack;
        LOOP_OVER_INVENTORY_PACKAGES(pack, i, inv->multiplication_rule_nodes) {
            HTML::first_html_column(OUT, 0);
            IndexUtilities::link_package(OUT, pack);
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::optional_textual(pack, I"^left_operand"));
            HTML::begin_span(OUT, I"indexgrey");
            WRITE(" x ");
            HTML::end_span(OUT);
            WRITE("%S", Metadata::optional_textual(pack, I"^right_operand"));
            HTML::begin_span(OUT, I"indexgrey");
            WRITE(" = ");
            HTML::end_span(OUT);
            WRITE("%S", Metadata::optional_textual(pack, I"^result"));
            WRITE("&nbsp;&nbsp;&nbsp;&nbsp;");
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::optional_textual(pack, I"^left_operand_benchmark"));
            HTML::begin_span(OUT, I"indexgrey");
            WRITE(" x ");
            HTML::end_span(OUT);
            WRITE("%S", Metadata::optional_textual(pack, I"^right_operand_benchmark"));
            HTML::begin_span(OUT, I"indexgrey");
            WRITE(" = ");
            HTML::end_span(OUT);
            WRITE("%S", Metadata::optional_textual(pack, I"^result_benchmark"));
            HTML::end_html_row(OUT);
        }
        HTML::end_html_table(OUT);
        HTML_CLOSE("p");
    }

This code is used in §1.

§2.

void ArithmeticElement::column(OUTPUT_STREAM, text_stream *key, localisation_dictionary *LD) {
    TEMPORARY_TEXT(full)
    WRITE_TO(full, "Index.Elements.Ar.%S", key);
    Localisation::bold(OUT, LD, full);
    WRITE(" ");
    DISCARD_TEXT(full)
}