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 InvTarget::create_generator(void) {
    code_generator *inv_cgt = Generators::new(I"inventory");
    METHOD_ADD(inv_cgt, BEGIN_GENERATION_MTID, InvTarget::inv);
}

int InvTarget::inv(code_generator *gtr, code_generation *gen) {
    if (gen->to_stream)
        InterTree::traverse(gen->from, InvTarget::visitor,
            gen->to_stream, gen->just_this_package, PACKAGE_IST);
    return TRUE;
}

void InvTarget::inv_to(OUTPUT_STREAM, inter_tree *I) {
    InterTree::traverse(I, InvTarget::visitor, OUT, NULL, PACKAGE_IST);
}

void InvTarget::visitor(inter_tree *I, inter_tree_node *P, void *state) {
    text_stream *OUT = (text_stream *) state;
    inter_package *from = PackageInstruction::at_this_head(P);
    inter_symbol *ptype = InterPackage::type(from);
    if (Str::eq(InterSymbol::identifier(ptype), I"_module")) {
        Produce a heading for a module package1.1;
    } else if (Str::eq(InterSymbol::identifier(ptype), I"_submodule")) {
        int contents = 0;
        LOOP_THROUGH_INTER_CHILDREN(C, P) contents++;
        if (contents > 0) {
            INDENT;
            Produce a subheading for a submodule package1.2;
            INDENT;
            InterPackage::unmark_all();
            LOOP_THROUGH_INTER_CHILDREN(C, P)
                if (Inode::is(C, PACKAGE_IST))
                    Inventory this subpackage of a submodule1.3;
            InterPackage::unmark_all();
            OUTDENT;
            OUTDENT;
        }
    }
}

§1.1. Produce a heading for a module package1.1 = 

    WRITE("Module '%S'\n", InterPackage::name(from));
    text_stream *title = Metadata::optional_textual(from, I"^title");
    if (title) WRITE("From extension '%S by %S' version %S\n", title,
        Metadata::required_textual(from, I"^author"),
        Metadata::required_textual(from, I"^version"));

§1.2. Produce a subheading for a submodule package1.2 = 

    WRITE("%S:\n", InterPackage::name(from));

§1.3. Inventory this subpackage of a submodule1.3 = 

    inter_package *R = PackageInstruction::at_this_head(C);
    if (InterPackage::get_flag(R, MARK_PACKAGE_FLAG)) continue;
    inter_symbol *ptype = InterPackage::type(R);
    OUTDENT;
    WRITE("  %S ", InterSymbol::identifier(ptype));
    int N = 0;
    LOOP_THROUGH_INTER_CHILDREN(D, P) {
        if (Inode::is(D, PACKAGE_IST)) {
            inter_package *R2 = PackageInstruction::at_this_head(D);
            if (InterPackage::type(R2) == ptype) N++;
        }
    }
    WRITE("x %d: ", N);
    INDENT;
    int pos = Str::len(InterSymbol::identifier(ptype)) + 7;
    int first = TRUE;
    LOOP_THROUGH_INTER_CHILDREN(D, P) {
        if (Inode::is(D, PACKAGE_IST)) {
            inter_package *R2 = PackageInstruction::at_this_head(D);
            if (InterPackage::type(R2) == ptype) {
                text_stream *name = Metadata::optional_textual(R2, I"^name");
                if (name == NULL) name = InterPackage::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);
                InterPackage::set_flag(R2, MARK_PACKAGE_FLAG);
                first = FALSE;
            }
        }
    }
    if (pos > 0) WRITE("\n");