To print a summary of the contents of a repository.

§1. This target is fairly simple: when we get the message to begin generation, we simply ask the Inter module to output some text, and return true to tell the generator that nothing more need be done.

void CodeGen::Inventory::create_target?Usage of CodeGen::Inventory::create_target:
Final Targets - §2(void) {
    code_generation_target *inv_cgt = CodeGen::Targets::new(I"inventory");
    METHOD_ADD(inv_cgt, BEGIN_GENERATION_MTID, CodeGen::Inventory::inv);
}

int CodeGen::Inventory::inv(code_generation_target *cgt, code_generation *gen) {
    if (gen->from_step == NULL) internal_error("temporary generations cannot be output");

    InterTree::traverse(gen->from, CodeGen::Inventory::visitor,
        gen->from_step->text_out_file, gen->just_this_package, 0);
    return TRUE;
}

void CodeGen::Inventory::inv_to(OUTPUT_STREAM, inter_tree *I) {
    InterTree::traverse(I, CodeGen::Inventory::visitor, OUT, NULL, 0);
}

void CodeGen::Inventory::visitor(inter_tree *I, inter_tree_node *P, void *state) {
    text_stream *OUT = (text_stream *) state;
    if (P->W.data[ID_IFLD] == PACKAGE_IST) {
        inter_package *from = Inter::Package::defined_by_frame(P);
        inter_symbol *ptype = Inter::Packages::type(from);

        if (Str::eq(ptype->symbol_name, I"_module")) {
            WRITE("Module '%S'\n", Inter::Packages::name(from));
            text_stream *title = Metadata::read_optional_textual(from, I"^title");
            if (title) WRITE("From extension '%S by %S' version %S\n", title,
                Metadata::read_textual(from, I"^author"),
                Metadata::read_textual(from, I"^version"));
            return;
        }

        if (Str::eq(ptype->symbol_name, I"_submodule")) {
            int contents = 0;
            LOOP_THROUGH_INTER_CHILDREN(C, P) contents++;
            if (contents > 0) {
                WRITE("    %S:\n", Inter::Packages::name(from));
                INDENT;
                INDENT;
                    Inter::Packages::unmark_all();
                    LOOP_THROUGH_INTER_CHILDREN(C, P) {
                        if (C->W.data[ID_IFLD] == PACKAGE_IST) {
                            inter_package *R = Inter::Package::defined_by_frame(C);
                            if (Inter::Packages::get_flag(R, MARK_PACKAGE_FLAG)) continue;
                            inter_symbol *ptype = Inter::Packages::type(R);
                            OUTDENT;
                            WRITE("  %S ", ptype->symbol_name);
                            int N = 0;
                            LOOP_THROUGH_INTER_CHILDREN(D, P) {
                                if (D->W.data[ID_IFLD] == PACKAGE_IST) {
                                    inter_package *R2 = Inter::Package::defined_by_frame(D);
                                    if (Inter::Packages::type(R2) == ptype) N++;
                                }
                            }
                            WRITE("x %d: ", N);
                            INDENT;
                            int pos = Str::len(ptype->symbol_name) + 7;
                            int first = TRUE;
                            LOOP_THROUGH_INTER_CHILDREN(D, P) {
                                if (D->W.data[ID_IFLD] == PACKAGE_IST) {
                                    inter_package *R2 = Inter::Package::defined_by_frame(D);
                                    if (Inter::Packages::type(R2) == ptype) {
                                        text_stream *name = Metadata::read_optional_textual(R2, I"^name");
                                        if (name == NULL) name = Inter::Packages::name(R2);
                                        if ((pos > 0) && (first == FALSE)) WRITE(", ");
                                        pos += Str::len(name) + 2;
                                        if (pos > 80) { WRITE("\n"); pos = Str::len(name) + 2; }
                                        WRITE("%S", name);
                                        Inter::Packages::set_flag(R2, MARK_PACKAGE_FLAG);
                                        first = FALSE;
                                    }
                                }
                            }
                            if (pos > 0) WRITE("\n");
                        }
                    }
                    Inter::Packages::unmark_all();
                OUTDENT;
                OUTDENT;
            }
            return;
        }
    }
}