To compile the main/synoptic/instances submodule.
§1. Our inventory inv already contains a list inv->instance_nodes of all packages in the tree with type _instance.
For the moment, at least, it seems too ambitious to dynamically renumber instances in the linking stage. Until then, this section is something of a placeholder, making only a debugging function.
void SynopticInstances::compile(inter_tree *I, pipeline_step *step, tree_inventory *inv) { if (InterNodeList::array_len(inv->instance_nodes) > 0) InterNodeList::array_sort(inv->instance_nodes, MakeSynopticModuleStage::module_order); Define SHOWMEINSTANCEDETAILS function1.1; }
§1.1. Define SHOWMEINSTANCEDETAILS function1.1 =
inter_name *iname = HierarchyLocations::iname(I, SHOWMEINSTANCEDETAILS_HL); Synoptic::begin_function(I, iname); inter_symbol *which_s = Synoptic::local(I, I"which", NULL); inter_symbol *na_s = Synoptic::local(I, I"na", NULL); inter_symbol *t_0_s = Synoptic::local(I, I"t_0", NULL); for (int i=0; i<InterNodeList::array_len(inv->instance_nodes); i++) { inter_package *pack = PackageInstruction::at_this_head(inv->instance_nodes->list[i].node); inter_symbol *showme_s = Metadata::optional_symbol(pack, I"^showme_fn"); if (showme_s) { Produce::inv_primitive(I, STORE_BIP); Produce::down(I); Produce::ref_symbol(I, K_value, na_s); Produce::inv_call_symbol(I, showme_s); Produce::down(I); Produce::val_symbol(I, K_value, which_s); Produce::val_symbol(I, K_value, na_s); Produce::val_symbol(I, K_value, t_0_s); Produce::up(I); Produce::up(I); } } Produce::inv_primitive(I, RETURN_BIP); Produce::down(I); Produce::val_symbol(I, K_value, na_s); Produce::up(I); Synoptic::end_function(I, step, iname);
- This code is used in §1.