mirror of
https://github.com/ganelson/inform.git
synced 2024-07-03 07:24:58 +03:00
104 lines
3.3 KiB
OpenEdge ABL
104 lines
3.3 KiB
OpenEdge ABL
[BytecodeModule::] Bytecode Module.
|
|
|
|
Setting up the use of this module.
|
|
|
|
@ This section simoly sets up the module in ways expected by //foundation//, and
|
|
contains no code of interest. The following constant exists only in tools
|
|
which use this module:
|
|
|
|
@d BYTECODE_MODULE TRUE
|
|
|
|
@ This module defines the following classes:
|
|
|
|
@e inter_tree_CLASS
|
|
@e inter_tree_node_CLASS
|
|
@e inter_warehouse_CLASS
|
|
@e inter_warehouse_room_CLASS
|
|
@e inter_symbols_table_CLASS
|
|
@e inter_symbol_CLASS
|
|
@e inter_annotation_CLASS
|
|
@e inter_data_type_CLASS
|
|
@e inter_construct_CLASS
|
|
@e inter_annotation_form_CLASS
|
|
@e inter_error_location_CLASS
|
|
@e inter_error_message_CLASS
|
|
@e inter_error_stash_CLASS
|
|
@e inter_package_CLASS
|
|
@e inter_node_list_CLASS
|
|
@e inter_node_list_entry_CLASS
|
|
@e inter_tree_location_list_CLASS
|
|
|
|
=
|
|
DECLARE_CLASS(inter_tree)
|
|
DECLARE_CLASS(inter_warehouse)
|
|
DECLARE_CLASS(inter_warehouse_room)
|
|
DECLARE_CLASS(inter_symbols_table)
|
|
DECLARE_CLASS(inter_data_type)
|
|
DECLARE_CLASS(inter_construct)
|
|
DECLARE_CLASS(inter_annotation_form)
|
|
DECLARE_CLASS(inter_error_location)
|
|
DECLARE_CLASS(inter_error_message)
|
|
DECLARE_CLASS(inter_error_stash)
|
|
DECLARE_CLASS(inter_package)
|
|
DECLARE_CLASS(inter_node_list)
|
|
DECLARE_CLASS(inter_node_list_entry)
|
|
DECLARE_CLASS(inter_tree_location_list)
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(inter_symbol, 1024)
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(inter_tree_node, 8192)
|
|
DECLARE_CLASS_ALLOCATED_IN_ARRAYS(inter_annotation, 8192)
|
|
|
|
@ Like all modules, this one must define a |start| and |end| function:
|
|
|
|
=
|
|
void BytecodeModule::start(void) {
|
|
@<Register this module's memory allocation reasons@>;
|
|
@<Register this module's stream writers@>;
|
|
@<Register this module's debugging log aspects@>;
|
|
@<Register this module's debugging log writers@>;
|
|
|
|
Inter::Defn::create_language();
|
|
Inter::Types::create_all();
|
|
}
|
|
void BytecodeModule::end(void) {
|
|
}
|
|
|
|
@
|
|
|
|
@e INTER_SYMBOLS_MREASON
|
|
@e INTER_BYTECODE_MREASON
|
|
@e INTER_LINKS_MREASON
|
|
@e TREE_LIST_MREASON
|
|
|
|
@<Register this module's memory allocation reasons@> =
|
|
Memory::reason_name(INTER_SYMBOLS_MREASON, "inter symbols storage");
|
|
Memory::reason_name(INTER_BYTECODE_MREASON, "inter bytecode storage");
|
|
Memory::reason_name(INTER_LINKS_MREASON, "inter links storage");
|
|
Memory::reason_name(TREE_LIST_MREASON, "inter tree location list storage");
|
|
|
|
@<Register this module's stream writers@> =
|
|
Writers::register_writer('t', &Inter::Textual::writer);
|
|
Writers::register_writer('F', &Inter::Verify::writer);
|
|
|
|
@
|
|
|
|
@e INTER_FILE_READ_DA
|
|
@e INTER_MEMORY_DA
|
|
@e INTER_BINARY_DA
|
|
@e INTER_SYMBOLS_DA
|
|
@e INTER_FRAMES_DA
|
|
@e INTER_CONNECTORS_DA
|
|
|
|
@<Register this module's debugging log aspects@> =
|
|
Log::declare_aspect(INTER_MEMORY_DA, L"inter memory usage", FALSE, FALSE);
|
|
Log::declare_aspect(INTER_FILE_READ_DA, L"intermediate file reading", FALSE, FALSE);
|
|
Log::declare_aspect(INTER_BINARY_DA, L"inter binary", FALSE, FALSE);
|
|
Log::declare_aspect(INTER_SYMBOLS_DA, L"inter symbols", FALSE, FALSE);
|
|
Log::declare_aspect(INTER_FRAMES_DA, L"inter frames", FALSE, FALSE);
|
|
Log::declare_aspect(INTER_CONNECTORS_DA, L"inter connectors", FALSE, FALSE);
|
|
|
|
@<Register this module's debugging log writers@> =
|
|
Writers::register_logger('3', Inter::Symbols::log);
|
|
Writers::register_logger('4', InterSymbolsTables::log);
|
|
Writers::register_logger('5', Inter::Bookmarks::log);
|
|
Writers::register_logger('6', Inter::Packages::log);
|