mirror of
https://github.com/ganelson/inform.git
synced 2024-07-06 00:54:21 +03:00
87 lines
3.9 KiB
OpenEdge ABL
87 lines
3.9 KiB
OpenEdge ABL
[SynopticActivities::] Activities.
|
|
|
|
To compile the main/synoptic/activities submodule.
|
|
|
|
@ Our inventory |inv| already contains a list |inv->activity_nodes| of all packages
|
|
in the tree with type |_activity|.
|
|
|
|
=
|
|
void SynopticActivities::compile(inter_tree *I, pipeline_step *step, tree_inventory *inv) {
|
|
if (InterNodeList::array_len(inv->activity_nodes) > 0) @<Assign unique activity ID numbers@>;
|
|
@<Define ACTIVITY_AFTER_RULEBOOKS array@>;
|
|
@<Define ACTIVITY_ATB_RULEBOOKS array@>;
|
|
@<Define ACTIVITY_BEFORE_RULEBOOKS array@>;
|
|
@<Define ACTIVITY_FOR_RULEBOOKS array@>;
|
|
@<Define ACTIVITY_VAR_CREATORS array@>;
|
|
}
|
|
|
|
@ Each activity package contains a numeric constant with the symbol name |activity_id|.
|
|
We want to ensure that these ID numbers are contiguous from 0 and never duplicated,
|
|
so we change the values of these constants accordingly.
|
|
|
|
In addition, each activity has an ID used to identify itself as the owner of a slate
|
|
of variables, and we set this to the activity ID plus 10000. (This scheme assumes
|
|
there are never more than 10000 rules, or 10000 activities, or 10000 actions.)
|
|
|
|
@<Assign unique activity ID numbers@> =
|
|
InterNodeList::array_sort(inv->activity_nodes, MakeSynopticModuleStage::module_order);
|
|
for (int i=0; i<InterNodeList::array_len(inv->activity_nodes); i++) {
|
|
inter_package *pack = InterPackage::at_this_head(inv->activity_nodes->list[i].node);
|
|
inter_tree_node *D = Synoptic::get_definition(pack, I"activity_id");
|
|
D->W.instruction[DATA_CONST_IFLD+1] = (inter_ti) i;
|
|
D = Synoptic::get_optional_definition(pack, I"var_id");
|
|
if (D) D->W.instruction[DATA_CONST_IFLD+1] = (inter_ti) (10000 + i);
|
|
}
|
|
|
|
@<Define ACTIVITY_AFTER_RULEBOOKS array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, ACTIVITY_AFTER_RULEBOOKS_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
for (int i=0; i<InterNodeList::array_len(inv->activity_nodes); i++) {
|
|
inter_package *pack = InterPackage::at_this_head(inv->activity_nodes->list[i].node);
|
|
inter_symbol *vc_s = Metadata::read_symbol(pack, I"^after_rulebook");
|
|
Synoptic::symbol_entry(vc_s);
|
|
}
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define ACTIVITY_ATB_RULEBOOKS array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, ACTIVITY_ATB_RULEBOOKS_HL);
|
|
InterNames::annotate_i(iname, BYTEARRAY_IANN, 1);
|
|
Synoptic::begin_array(I, step, iname);
|
|
for (int i=0; i<InterNodeList::array_len(inv->activity_nodes); i++) {
|
|
inter_package *pack = InterPackage::at_this_head(inv->activity_nodes->list[i].node);
|
|
inter_ti ubf = Metadata::read_numeric(pack, I"^used_by_future");
|
|
Synoptic::numeric_entry(ubf);
|
|
}
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define ACTIVITY_BEFORE_RULEBOOKS array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, ACTIVITY_BEFORE_RULEBOOKS_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
for (int i=0; i<InterNodeList::array_len(inv->activity_nodes); i++) {
|
|
inter_package *pack = InterPackage::at_this_head(inv->activity_nodes->list[i].node);
|
|
inter_symbol *vc_s = Metadata::read_symbol(pack, I"^before_rulebook");
|
|
Synoptic::symbol_entry(vc_s);
|
|
}
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define ACTIVITY_FOR_RULEBOOKS array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, ACTIVITY_FOR_RULEBOOKS_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
for (int i=0; i<InterNodeList::array_len(inv->activity_nodes); i++) {
|
|
inter_package *pack = InterPackage::at_this_head(inv->activity_nodes->list[i].node);
|
|
inter_symbol *vc_s = Metadata::read_symbol(pack, I"^for_rulebook");
|
|
Synoptic::symbol_entry(vc_s);
|
|
}
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define ACTIVITY_VAR_CREATORS array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, ACTIVITY_VAR_CREATORS_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
for (int i=0; i<InterNodeList::array_len(inv->activity_nodes); i++) {
|
|
inter_package *pack = InterPackage::at_this_head(inv->activity_nodes->list[i].node);
|
|
inter_symbol *vc_s = Metadata::read_optional_symbol(pack, I"^var_creator");
|
|
if (vc_s) Synoptic::symbol_entry(vc_s);
|
|
else Synoptic::numeric_entry(0);
|
|
}
|
|
Synoptic::end_array(I);
|