inform7/inter/building-module/Chapter 1/Building Module.w

[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) {
}