mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
321 lines
10 KiB
OpenEdge ABL
321 lines
10 KiB
OpenEdge ABL
[Inode::] Inter Nodes.
|
|
|
|
To create nodes of inter code, and manage everything about them except their
|
|
tree locations.
|
|
|
|
@h Bytecode definition.
|
|
|
|
@d inter_ti unsigned int
|
|
@d signed_inter_ti int
|
|
|
|
=
|
|
typedef struct inter_tree_node {
|
|
struct inter_tree *tree;
|
|
struct inter_package *package;
|
|
struct inter_tree_node *parent_itn;
|
|
struct inter_tree_node *first_child_itn;
|
|
struct inter_tree_node *last_child_itn;
|
|
struct inter_tree_node *previous_itn;
|
|
struct inter_tree_node *next_itn;
|
|
struct warehouse_floor_space W;
|
|
} inter_tree_node;
|
|
|
|
inter_tree_node *Inode::new(inter_tree *I, warehouse_floor_space W) {
|
|
inter_tree_node *itn = CREATE(inter_tree_node);
|
|
itn->tree = I;
|
|
itn->package = NULL;
|
|
itn->parent_itn = NULL;
|
|
itn->first_child_itn = NULL;
|
|
itn->last_child_itn = NULL;
|
|
itn->previous_itn = NULL;
|
|
itn->next_itn = NULL;
|
|
itn->W = W;
|
|
return itn;
|
|
}
|
|
|
|
@h Chunks.
|
|
|
|
@d IST_SIZE 100
|
|
|
|
@d SYMBOL_BASE_VAL 0x40000000
|
|
|
|
@d PREFRAME_SKIP_AMOUNT 0
|
|
@d PREFRAME_VERIFICATION_COUNT 1
|
|
@d PREFRAME_ORIGIN 2
|
|
@d PREFRAME_COMMENT 3
|
|
@d PREFRAME_SIZE 4
|
|
|
|
@h Frames.
|
|
|
|
=
|
|
inter_ti Inode::get_metadata(inter_tree_node *F, int at) {
|
|
if (F == NULL) return 0;
|
|
return F->W.repo_segment->bytecode[F->W.index + at];
|
|
}
|
|
|
|
void Inode::set_metadata(inter_tree_node *F, int at, inter_ti V) {
|
|
if (F) F->W.repo_segment->bytecode[F->W.index + at] = V;
|
|
}
|
|
|
|
inter_warehouse *Inode::warehouse(inter_tree_node *F) {
|
|
if (F == NULL) return NULL;
|
|
return F->W.repo_segment->owning_warehouse;
|
|
}
|
|
|
|
inter_symbols_table *Inode::ID_to_symbols_table(inter_tree_node *F, inter_ti ID) {
|
|
return Inter::Warehouse::get_symbols_table(Inode::warehouse(F), ID);
|
|
}
|
|
|
|
text_stream *Inode::ID_to_text(inter_tree_node *F, inter_ti ID) {
|
|
return Inter::Warehouse::get_text(Inode::warehouse(F), ID);
|
|
}
|
|
|
|
inter_package *Inode::ID_to_package(inter_tree_node *F, inter_ti ID) {
|
|
if (ID == 0) return NULL; // yes?
|
|
return Inter::Warehouse::get_package(Inode::warehouse(F), ID);
|
|
}
|
|
|
|
inter_node_list *Inode::ID_to_frame_list(inter_tree_node *F, inter_ti N) {
|
|
return Inter::Warehouse::get_frame_list(Inode::warehouse(F), N);
|
|
}
|
|
|
|
void *Inode::ID_to_ref(inter_tree_node *F, inter_ti N) {
|
|
return Inter::Warehouse::get_ref(Inode::warehouse(F), N);
|
|
}
|
|
|
|
inter_symbols_table *Inode::globals(inter_tree_node *F) {
|
|
if (F) return InterTree::global_scope(F->tree);
|
|
return NULL;
|
|
}
|
|
|
|
int Inode::eq(inter_tree_node *F1, inter_tree_node *F2) {
|
|
if ((F1 == NULL) || (F2 == NULL)) {
|
|
if (F1 == F2) return TRUE;
|
|
return FALSE;
|
|
}
|
|
if (F1->W.repo_segment != F2->W.repo_segment) return FALSE;
|
|
if (F1->W.index != F2->W.index) return FALSE;
|
|
return TRUE;
|
|
}
|
|
|
|
@ =
|
|
inter_tree_node *Inode::root_frame(inter_warehouse *warehouse, inter_tree *I) {
|
|
inter_tree_node *P = Inter::Warehouse::find_room(warehouse, I, 2, NULL, NULL);
|
|
P->W.data[ID_IFLD] = (inter_ti) NOP_IST;
|
|
P->W.data[LEVEL_IFLD] = 0;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_0(inter_bookmark *IBM, int S, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 2, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_1(inter_bookmark *IBM, int S, inter_ti V, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 3, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_2(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 4, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_3(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_ti V3, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 5, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
P->W.data[DATA_IFLD + 2] = V3;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_4(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 6, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
P->W.data[DATA_IFLD + 2] = V3;
|
|
P->W.data[DATA_IFLD + 3] = V4;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_5(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 7, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
P->W.data[DATA_IFLD + 2] = V3;
|
|
P->W.data[DATA_IFLD + 3] = V4;
|
|
P->W.data[DATA_IFLD + 4] = V5;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_6(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_ti V6, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 8, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
P->W.data[DATA_IFLD + 2] = V3;
|
|
P->W.data[DATA_IFLD + 3] = V4;
|
|
P->W.data[DATA_IFLD + 4] = V5;
|
|
P->W.data[DATA_IFLD + 5] = V6;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_7(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_ti V6, inter_ti V7, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 9, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
P->W.data[DATA_IFLD + 2] = V3;
|
|
P->W.data[DATA_IFLD + 3] = V4;
|
|
P->W.data[DATA_IFLD + 4] = V5;
|
|
P->W.data[DATA_IFLD + 5] = V6;
|
|
P->W.data[DATA_IFLD + 6] = V7;
|
|
return P;
|
|
}
|
|
|
|
inter_tree_node *Inode::fill_8(inter_bookmark *IBM, int S, inter_ti V1, inter_ti V2, inter_ti V3, inter_ti V4, inter_ti V5, inter_ti V6, inter_ti V7, inter_ti V8, inter_error_location *eloc, inter_ti level) {
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
inter_tree_node *P = Inter::Warehouse::find_room(InterTree::warehouse(I), I, 10, eloc, Inter::Bookmarks::package(IBM));
|
|
P->W.data[ID_IFLD] = (inter_ti) S;
|
|
P->W.data[LEVEL_IFLD] = level;
|
|
P->W.data[DATA_IFLD] = V1;
|
|
P->W.data[DATA_IFLD + 1] = V2;
|
|
P->W.data[DATA_IFLD + 2] = V3;
|
|
P->W.data[DATA_IFLD + 3] = V4;
|
|
P->W.data[DATA_IFLD + 4] = V5;
|
|
P->W.data[DATA_IFLD + 5] = V6;
|
|
P->W.data[DATA_IFLD + 6] = V7;
|
|
P->W.data[DATA_IFLD + 7] = V8;
|
|
return P;
|
|
}
|
|
|
|
@ =
|
|
int Inode::extend(inter_tree_node *F, inter_ti by) {
|
|
if (by == 0) return TRUE;
|
|
if ((F->W.index + F->W.extent + PREFRAME_SIZE < F->W.repo_segment->size) ||
|
|
(F->W.repo_segment->next_room)) return FALSE;
|
|
|
|
if (F->W.repo_segment->size + (int) by <= F->W.repo_segment->capacity) {
|
|
Inode::set_metadata(F, PREFRAME_SKIP_AMOUNT,
|
|
Inode::get_metadata(F, PREFRAME_SKIP_AMOUNT) + by);
|
|
F->W.repo_segment->size += by;
|
|
F->W.extent += by;
|
|
return TRUE;
|
|
}
|
|
|
|
int next_size = Inter::Warehouse::enlarge_size(F->W.repo_segment->capacity, F->W.extent + PREFRAME_SIZE + (int) by);
|
|
|
|
F->W.repo_segment->next_room = Inter::Warehouse::new_room(F->W.repo_segment->owning_warehouse,
|
|
next_size, F->W.repo_segment);
|
|
|
|
warehouse_floor_space W = Inter::Warehouse::find_room_in_room(F->W.repo_segment->next_room, F->W.extent + (int) by);
|
|
|
|
F->W.repo_segment->size = F->W.index;
|
|
F->W.repo_segment->capacity = F->W.index;
|
|
|
|
inter_ti a = Inode::get_metadata(F, PREFRAME_VERIFICATION_COUNT);
|
|
inter_ti b = Inode::get_metadata(F, PREFRAME_ORIGIN);
|
|
inter_ti c = Inode::get_metadata(F, PREFRAME_COMMENT);
|
|
|
|
F->W.index = W.index;
|
|
F->W.repo_segment = W.repo_segment;
|
|
for (int i=0; i<W.extent; i++)
|
|
if (i < F->W.extent)
|
|
W.data[i] = F->W.data[i];
|
|
else
|
|
W.data[i] = 0;
|
|
F->W.data = W.data;
|
|
F->W.extent = W.extent;
|
|
|
|
Inode::set_metadata(F, PREFRAME_VERIFICATION_COUNT, a);
|
|
Inode::set_metadata(F, PREFRAME_ORIGIN, b);
|
|
Inode::set_metadata(F, PREFRAME_COMMENT, c);
|
|
return TRUE;
|
|
}
|
|
|
|
inter_ti Inode::vcount(inter_tree_node *F) {
|
|
inter_ti v = Inode::get_metadata(F, PREFRAME_VERIFICATION_COUNT);
|
|
Inode::set_metadata(F, PREFRAME_VERIFICATION_COUNT, v + 1);
|
|
return v;
|
|
}
|
|
|
|
inter_ti Inode::to_index(inter_tree_node *F) {
|
|
if ((F->W.repo_segment == NULL) || (F->W.index < 0)) internal_error("no index for null frame");
|
|
return (F->W.repo_segment->index_offset) + (inter_ti) (F->W.index);
|
|
}
|
|
|
|
@
|
|
|
|
=
|
|
inter_error_location *Inode::retrieve_origin(inter_tree_node *F) {
|
|
if (F == NULL) return NULL;
|
|
return Inter::Warehouse::retrieve_origin(Inode::warehouse(F), Inode::get_metadata(F, PREFRAME_ORIGIN));
|
|
}
|
|
|
|
inter_error_message *Inode::error(inter_tree_node *F, text_stream *err, text_stream *quote) {
|
|
inter_error_message *iem = CREATE(inter_error_message);
|
|
inter_error_location *eloc = Inode::retrieve_origin(F);
|
|
if (eloc)
|
|
iem->error_at = *eloc;
|
|
else
|
|
iem->error_at = Inter::Errors::file_location(NULL, NULL);
|
|
iem->error_body = err;
|
|
iem->error_quote = quote;
|
|
return iem;
|
|
}
|
|
|
|
inter_ti Inode::get_comment(inter_tree_node *F) {
|
|
if (F) return Inode::get_metadata(F, PREFRAME_COMMENT);
|
|
return 0;
|
|
}
|
|
|
|
void Inode::attach_comment(inter_tree_node *F, inter_ti ID) {
|
|
if (F) Inode::set_metadata(F, PREFRAME_COMMENT, ID);
|
|
}
|
|
|
|
inter_package *Inode::get_package(inter_tree_node *F) {
|
|
if (F) return F->package;
|
|
return NULL;
|
|
}
|
|
|
|
inter_ti Inode::get_package_alt(inter_tree_node *X) {
|
|
inter_tree_node *F = X;
|
|
while (TRUE) {
|
|
F = InterTree::parent(F);
|
|
if (F == NULL) break;
|
|
if (F->W.data[ID_IFLD] == PACKAGE_IST)
|
|
return F->W.data[PID_PACKAGE_IFLD];
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
void Inode::attach_package(inter_tree_node *F, inter_package *pack) {
|
|
if (F) F->package = pack;
|
|
}
|
|
|