mirror of
https://github.com/ganelson/inform.git
synced 2024-07-03 07:24:58 +03:00
94 lines
3.2 KiB
OpenEdge ABL
94 lines
3.2 KiB
OpenEdge ABL
[CodeGen::Inventory::] Final Inventory.
|
|
|
|
To print a summary of the contents of a repository.
|
|
|
|
@ 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(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;
|
|
}
|
|
}
|
|
}
|