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, localisation_dictionary *LD) {
    inter_tree *I = InterpretIndex::get_tree();
    tree_inventory *inv = Synoptic::inv(I);
    TreeLists::sort(inv->kind_nodes, Synoptic::module_order);
    TreeLists::sort(inv->multiplication_rule_nodes, Synoptic::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::write_0(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);

    for (int i=0; i<TreeLists::len(inv->kind_nodes); i++) {
        inter_package *pack = Inter::Package::defined_by_frame(inv->kind_nodes->list[i].node);
        if (Str::len(Metadata::read_optional_textual(pack, I"^min_value")) > 0) {
            HTML::first_html_column(OUT, 0);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^printed_name"));
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^min_value"));
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::read_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::read_optional_textual(pack, I"^dimensions");
    if (Str::len(dims) > 0) {
        WRITE("%S", dims);
    } else {
        WRITE("<i>");
        Localisation::write_0(OUT, LD, I"Index.Elements.Ar.Dimensionless");
        WRITE("</i>");
    }

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 (TreeLists::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);
        for (int i=0; i<TreeLists::len(inv->multiplication_rule_nodes); i++) {
            inter_package *pack =
                Inter::Package::defined_by_frame(inv->multiplication_rule_nodes->list[i].node);
            HTML::first_html_column(OUT, 0);
            int at = (int) Metadata::read_optional_numeric(pack, I"^at");
            if (at > 0) IndexUtilities::link(OUT, at);
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^left_operand"));
            HTML::begin_colour(OUT, I"808080");
            WRITE(" x ");
            HTML::end_colour(OUT);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^right_operand"));
            HTML::begin_colour(OUT, I"808080");
            WRITE(" = ");
            HTML::end_colour(OUT);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^result"));
            WRITE("&nbsp;&nbsp;&nbsp;&nbsp;");
            HTML::next_html_column(OUT, 0);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^left_operand_benchmark"));
            HTML::begin_colour(OUT, I"808080");
            WRITE(" x ");
            HTML::end_colour(OUT);
            WRITE("%S", Metadata::read_optional_textual(pack, I"^right_operand_benchmark"));
            HTML::begin_colour(OUT, I"808080");
            WRITE(" = ");
            HTML::end_colour(OUT);
            WRITE("%S", Metadata::read_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);
    WRITE("<b>");
    Localisation::write_0(OUT, LD, full);
    WRITE("</b> ");
    DISCARD_TEXT(full)
}