mirror of
https://github.com/ganelson/inform.git
synced 2024-07-03 07:24:58 +03:00
100 lines
2.7 KiB
OpenEdge ABL
100 lines
2.7 KiB
OpenEdge ABL
[BuildingModule::] Building Module.
|
|
|
|
Setting up the use of this module.
|
|
|
|
@h Introduction.
|
|
|
|
@d BUILDING_MODULE TRUE
|
|
|
|
@h Setting up the memory manager.
|
|
We need to itemise the structures we'll want to allocate:
|
|
|
|
@e inter_name_CLASS
|
|
@e inter_name_generator_CLASS
|
|
@e package_request_CLASS
|
|
@e hierarchy_location_CLASS
|
|
@e hierarchy_attachment_point_CLASS
|
|
@e module_request_CLASS
|
|
@e submodule_identity_CLASS
|
|
@e submodule_request_CLASS
|
|
@e inter_schema_CLASS
|
|
@e inter_schema_node_CLASS
|
|
@e inter_schema_token_CLASS
|
|
@e schema_parsing_error_CLASS
|
|
|
|
=
|
|
DECLARE_CLASS(hierarchy_location)
|
|
DECLARE_CLASS(hierarchy_attachment_point)
|
|
DECLARE_CLASS(package_request)
|
|
DECLARE_CLASS(module_request)
|
|
DECLARE_CLASS(submodule_identity)
|
|
DECLARE_CLASS(submodule_request)
|
|
DECLARE_CLASS(inter_schema)
|
|
DECLARE_CLASS(inter_schema_node)
|
|
DECLARE_CLASS(inter_schema_token)
|
|
DECLARE_CLASS(schema_parsing_error)
|
|
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(inter_name, 1000)
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(inter_name_generator, 1000)
|
|
|
|
#ifdef CORE_MODULE
|
|
MAKE_ANNOTATION_FUNCTIONS(explicit_iname, inter_name)
|
|
#endif
|
|
|
|
@h The beginning.
|
|
|
|
@e SCHEMA_COMPILATION_DA
|
|
@e SCHEMA_COMPILATION_DETAILS_DA
|
|
@e PACKAGING_DA
|
|
|
|
=
|
|
void BuildingModule::start(void) {
|
|
@<Register this module's stream writers@>;
|
|
@<Register this module's debugging log aspects@>;
|
|
@<Register this module's debugging log writers@>;
|
|
}
|
|
|
|
@<Register this module's stream writers@> =
|
|
Writers::register_writer('n', &InterNames::writer);
|
|
|
|
@<Register this module's debugging log aspects@> =
|
|
Log::declare_aspect(SCHEMA_COMPILATION_DA,
|
|
L"schema compilation", FALSE, FALSE);
|
|
Log::declare_aspect(SCHEMA_COMPILATION_DETAILS_DA,
|
|
L"schema compilation details", FALSE, FALSE);
|
|
Log::declare_aspect(PACKAGING_DA,
|
|
L"packaging", FALSE, FALSE);
|
|
|
|
@<Register this module's debugging log writers@> =
|
|
Writers::register_logger('1', InterSchemas::log);
|
|
Writers::register_logger('X', Packaging::log);
|
|
|
|
@h Initialising.
|
|
The following is a component part of the |inter_tree| structure, and is comprised
|
|
of four subcomponents of its own. That makes a lot of working data, but none of
|
|
it changes the meaning of an Inter tree: it exists as workspace needed by the
|
|
functions in this module for constructing trees.
|
|
|
|
=
|
|
typedef struct building_site {
|
|
struct site_structure_data strdata;
|
|
struct site_hierarchy_data shdata;
|
|
struct site_packaging_data spdata;
|
|
struct site_production_data sprdata;
|
|
struct site_primitives_data spridata;
|
|
} building_site;
|
|
|
|
void BuildingModule::clear_data(inter_tree *I) {
|
|
LargeScale::clear_site_data(I);
|
|
HierarchyLocations::clear_site_data(I);
|
|
Produce::clear_site_data(I);
|
|
Packaging::clear_site_data(I);
|
|
Primitives::clear_site_data(I);
|
|
}
|
|
|
|
@h The end.
|
|
|
|
=
|
|
void BuildingModule::end(void) {
|
|
}
|