mirror of
https://github.com/ganelson/inform.git
synced 2024-07-03 07:24:58 +03:00
89 lines
3.8 KiB
OpenEdge ABL
89 lines
3.8 KiB
OpenEdge ABL
[SynopticMultimedia::] Multimedia.
|
|
|
|
To compile the main/synoptic/multimedia submodule.
|
|
|
|
@ Our inventory |inv| already contains a list |inv->figure_nodes| of all packages
|
|
in the tree with type |_instance| which are of the kind |K_figure_name|, and
|
|
similarly for sounds and files. (These do not have ID numbers here because they
|
|
already have |instance_id| values by virtue of being instances. Resource ID
|
|
numbers are a little different, and are pooled between sounds and figures:
|
|
these are assigned by the //inform7// compiler, not here.)
|
|
|
|
=
|
|
void SynopticMultimedia::compile(inter_tree *I, pipeline_step *step, tree_inventory *inv) {
|
|
if (InterNodeList::array_len(inv->figure_nodes) > 0)
|
|
InterNodeList::array_sort(inv->figure_nodes, MakeSynopticModuleStage::module_order);
|
|
if (InterNodeList::array_len(inv->sound_nodes) > 0)
|
|
InterNodeList::array_sort(inv->sound_nodes, MakeSynopticModuleStage::module_order);
|
|
if (InterNodeList::array_len(inv->file_nodes) > 0)
|
|
InterNodeList::array_sort(inv->file_nodes, MakeSynopticModuleStage::module_order);
|
|
if (InterNodeList::array_len(inv->internal_file_nodes) > 0)
|
|
InterNodeList::array_sort(inv->internal_file_nodes, MakeSynopticModuleStage::module_order);
|
|
@<Define RESOURCEIDSOFFIGURES array@>;
|
|
@<Define RESOURCEIDSOFSOUNDS array@>;
|
|
@<Define NO_EXTERNAL_FILES@>;
|
|
@<Define TABLEOFEXTERNALFILES array@>;
|
|
@<Define NO_INTERNAL_FILES@>;
|
|
@<Define TABLEOFINTERNALFILES array@>;
|
|
}
|
|
|
|
@<Define RESOURCEIDSOFFIGURES array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, RESOURCEIDSOFFIGURES_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
Synoptic::numeric_entry(0);
|
|
for (int i=0; i<InterNodeList::array_len(inv->figure_nodes); i++) {
|
|
inter_package *pack =
|
|
PackageInstruction::at_this_head(inv->figure_nodes->list[i].node);
|
|
inter_ti id = Metadata::read_numeric(pack, I"^resource_id");
|
|
Synoptic::numeric_entry(id);
|
|
}
|
|
Synoptic::numeric_entry(0);
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define RESOURCEIDSOFSOUNDS array@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, RESOURCEIDSOFSOUNDS_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
Synoptic::numeric_entry(0);
|
|
for (int i=0; i<InterNodeList::array_len(inv->sound_nodes); i++) {
|
|
inter_package *pack =
|
|
PackageInstruction::at_this_head(inv->sound_nodes->list[i].node);
|
|
inter_ti id = Metadata::read_numeric(pack, I"^resource_id");
|
|
Synoptic::numeric_entry(id);
|
|
}
|
|
Synoptic::numeric_entry(0);
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define NO_EXTERNAL_FILES@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, NO_EXTERNAL_FILES_HL);
|
|
Produce::numeric_constant(I, iname, K_value, (inter_ti) InterNodeList::array_len(inv->file_nodes));
|
|
|
|
@<Define TABLEOFEXTERNALFILES array@> =
|
|
inter_name *iname =
|
|
HierarchyLocations::iname(I, TABLEOFEXTERNALFILES_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
Synoptic::numeric_entry(0);
|
|
for (int i=0; i<InterNodeList::array_len(inv->file_nodes); i++) {
|
|
inter_package *pack = PackageInstruction::at_this_head(inv->file_nodes->list[i].node);
|
|
inter_symbol *vc_s = Metadata::required_symbol(pack, I"^file_value");
|
|
Synoptic::symbol_entry(vc_s);
|
|
}
|
|
Synoptic::numeric_entry(0);
|
|
Synoptic::end_array(I);
|
|
|
|
@<Define NO_INTERNAL_FILES@> =
|
|
inter_name *iname = HierarchyLocations::iname(I, NO_INTERNAL_FILES_HL);
|
|
Produce::numeric_constant(I, iname, K_value, (inter_ti) InterNodeList::array_len(inv->internal_file_nodes));
|
|
|
|
@<Define TABLEOFINTERNALFILES array@> =
|
|
inter_name *iname =
|
|
HierarchyLocations::iname(I, TABLEOFINTERNALFILES_HL);
|
|
Synoptic::begin_array(I, step, iname);
|
|
Synoptic::numeric_entry(0);
|
|
for (int i=0; i<InterNodeList::array_len(inv->internal_file_nodes); i++) {
|
|
inter_package *pack = PackageInstruction::at_this_head(inv->internal_file_nodes->list[i].node);
|
|
inter_symbol *vc_s = Metadata::required_symbol(pack, I"^file_value");
|
|
Synoptic::symbol_entry(vc_s);
|
|
}
|
|
Synoptic::numeric_entry(0);
|
|
Synoptic::end_array(I);
|