mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
181 lines
7.5 KiB
OpenEdge ABL
181 lines
7.5 KiB
OpenEdge ABL
[CodeGen::MergeTemplate::] Linker.
|
|
|
|
To link inter from I7 with template code.
|
|
|
|
@h Link.
|
|
|
|
=
|
|
void CodeGen::MergeTemplate::create_pipeline_stage(void) {
|
|
CodeGen::Stage::new(I"merge-template", CodeGen::MergeTemplate::run_pipeline_stage, TEMPLATE_FILE_STAGE_ARG, TRUE);
|
|
}
|
|
|
|
int CodeGen::MergeTemplate::run_pipeline_stage(pipeline_step *step) {
|
|
inter_package *main_package = Site::main_package_if_it_exists(step->repository);
|
|
inter_bookmark IBM;
|
|
if (main_package) IBM = Inter::Bookmarks::at_end_of_this_package(main_package);
|
|
else IBM = Inter::Bookmarks::at_start_of_this_repository(step->repository);
|
|
CodeGen::MergeTemplate::link(&IBM, step->step_argument, step->the_N, step->the_PP, NULL);
|
|
return TRUE;
|
|
}
|
|
|
|
void CodeGen::MergeTemplate::link(inter_bookmark *IBM, text_stream *template_file, int N, pathname **PP, inter_package *owner) {
|
|
if (IBM == NULL) internal_error("no inter to link with");
|
|
inter_tree *I = Inter::Bookmarks::tree(IBM);
|
|
if (Str::eq(template_file, I"none"))
|
|
Inter::Tree::traverse(I, CodeGen::MergeTemplate::catch_all_visitor, NULL, NULL, 0);
|
|
else
|
|
Inter::Tree::traverse(I, CodeGen::MergeTemplate::visitor, NULL, NULL, 0);
|
|
|
|
inter_package *template_package = Inter::Packages::by_url(I, I"/main/template");
|
|
if (template_package == NULL) {
|
|
inter_package *main_package = Site::main_package(I);
|
|
inter_bookmark in_main = Inter::Bookmarks::at_end_of_this_package(main_package);
|
|
template_package = CodeGen::Assimilate::new_package_named(&in_main, I"template", plain_ptype_symbol);
|
|
}
|
|
|
|
inter_bookmark link_bookmark =
|
|
Inter::Bookmarks::at_end_of_this_package(template_package);
|
|
|
|
I6T_kit kit = TemplateReader::kit_out(&link_bookmark, &(CodeGen::MergeTemplate::receive_raw), &(CodeGen::MergeTemplate::receive_command), NULL);
|
|
kit.no_i6t_file_areas = N;
|
|
for (int i=0; i<N; i++) kit.i6t_files[i] = PP[i];
|
|
int stage = EARLY_LINK_STAGE;
|
|
if (Str::eq(template_file, I"none")) stage = CATCH_ALL_LINK_STAGE;
|
|
TEMPORARY_TEXT(T);
|
|
TemplateReader::I6T_file_intervene(T, stage, NULL, NULL, &kit);
|
|
CodeGen::MergeTemplate::receive_raw(T, &kit);
|
|
DISCARD_TEXT(T);
|
|
if (Str::ne(template_file, I"none"))
|
|
TemplateReader::extract(template_file, &kit);
|
|
}
|
|
|
|
void CodeGen::MergeTemplate::visitor(inter_tree *I, inter_tree_node *P, void *state) {
|
|
if (P->W.data[ID_IFLD] == LINK_IST) {
|
|
text_stream *S1 = Inter::Node::ID_to_text(P, P->W.data[SEGMENT_LINK_IFLD]);
|
|
text_stream *S2 = Inter::Node::ID_to_text(P, P->W.data[PART_LINK_IFLD]);
|
|
text_stream *S3 = Inter::Node::ID_to_text(P, P->W.data[TO_RAW_LINK_IFLD]);
|
|
text_stream *S4 = Inter::Node::ID_to_text(P, P->W.data[TO_SEGMENT_LINK_IFLD]);
|
|
void *ref = Inter::Node::ID_to_ref(P, P->W.data[REF_LINK_IFLD]);
|
|
TemplateReader::new_intervention((int) P->W.data[STAGE_LINK_IFLD], S1, S2, S3, S4, ref);
|
|
}
|
|
}
|
|
|
|
void CodeGen::MergeTemplate::catch_all_visitor(inter_tree *I, inter_tree_node *P, void *state) {
|
|
if (P->W.data[ID_IFLD] == LINK_IST) {
|
|
text_stream *S1 = NULL;
|
|
text_stream *S2 = NULL;
|
|
text_stream *S3 = Inter::Node::ID_to_text(P, P->W.data[TO_RAW_LINK_IFLD]);
|
|
text_stream *S4 = Inter::Node::ID_to_text(P, P->W.data[TO_SEGMENT_LINK_IFLD]);
|
|
void *ref = Inter::Node::ID_to_ref(P, P->W.data[REF_LINK_IFLD]);
|
|
TemplateReader::new_intervention((int) P->W.data[STAGE_LINK_IFLD], S1, S2, S3, S4, ref);
|
|
}
|
|
}
|
|
|
|
void CodeGen::MergeTemplate::entire_splat(inter_bookmark *IBM, text_stream *origin, text_stream *content, inter_t level) {
|
|
inter_t SID = Inter::Warehouse::create_text(Inter::Bookmarks::warehouse(IBM), Inter::Bookmarks::package(IBM));
|
|
text_stream *glob_storage = Inter::Warehouse::get_text(Inter::Bookmarks::warehouse(IBM), SID);
|
|
Str::copy(glob_storage, content);
|
|
Produce::guard(Inter::Splat::new(IBM, SID, 0, level, 0, NULL));
|
|
}
|
|
|
|
@
|
|
|
|
@d IGNORE_WS_FILTER_BIT 1
|
|
@d DQUOTED_FILTER_BIT 2
|
|
@d SQUOTED_FILTER_BIT 4
|
|
@d COMMENTED_FILTER_BIT 8
|
|
@d ROUTINED_FILTER_BIT 16
|
|
@d CONTENT_ON_LINE_FILTER_BIT 32
|
|
|
|
@d SUBORDINATE_FILTER_BITS (COMMENTED_FILTER_BIT + SQUOTED_FILTER_BIT + DQUOTED_FILTER_BIT + ROUTINED_FILTER_BIT)
|
|
|
|
=
|
|
void CodeGen::MergeTemplate::receive_raw(text_stream *S, I6T_kit *kit) {
|
|
text_stream *R = Str::new();
|
|
int mode = IGNORE_WS_FILTER_BIT;
|
|
LOOP_THROUGH_TEXT(pos, S) {
|
|
wchar_t c = Str::get(pos);
|
|
if ((c == 10) || (c == 13)) c = '\n';
|
|
if (mode & IGNORE_WS_FILTER_BIT) {
|
|
if ((c == '\n') || (Characters::is_whitespace(c))) continue;
|
|
mode -= IGNORE_WS_FILTER_BIT;
|
|
}
|
|
if ((c == '!') && (!(mode & (DQUOTED_FILTER_BIT + SQUOTED_FILTER_BIT)))) {
|
|
mode = mode | COMMENTED_FILTER_BIT;
|
|
}
|
|
if (mode & COMMENTED_FILTER_BIT) {
|
|
if (c == '\n') {
|
|
mode -= COMMENTED_FILTER_BIT;
|
|
if (!(mode & CONTENT_ON_LINE_FILTER_BIT)) continue;
|
|
}
|
|
else continue;
|
|
}
|
|
if ((c == '[') && (!(mode & SUBORDINATE_FILTER_BITS))) {
|
|
mode = mode | ROUTINED_FILTER_BIT;
|
|
}
|
|
if (mode & ROUTINED_FILTER_BIT) {
|
|
if ((c == ']') && (!(mode & (DQUOTED_FILTER_BIT + SQUOTED_FILTER_BIT + COMMENTED_FILTER_BIT)))) mode -= ROUTINED_FILTER_BIT;
|
|
}
|
|
if ((c == '\'') && (!(mode & (DQUOTED_FILTER_BIT + COMMENTED_FILTER_BIT)))) {
|
|
if (mode & SQUOTED_FILTER_BIT) mode -= SQUOTED_FILTER_BIT;
|
|
else mode = mode | SQUOTED_FILTER_BIT;
|
|
}
|
|
if ((c == '\"') && (!(mode & (SQUOTED_FILTER_BIT + COMMENTED_FILTER_BIT)))) {
|
|
if (mode & DQUOTED_FILTER_BIT) mode -= DQUOTED_FILTER_BIT;
|
|
else mode = mode | DQUOTED_FILTER_BIT;
|
|
}
|
|
if (c != '\n') {
|
|
if (Characters::is_whitespace(c) == FALSE) mode = mode | CONTENT_ON_LINE_FILTER_BIT;
|
|
} else {
|
|
if (mode & CONTENT_ON_LINE_FILTER_BIT) mode = mode - CONTENT_ON_LINE_FILTER_BIT;
|
|
else if (!(mode & SUBORDINATE_FILTER_BITS)) continue;
|
|
}
|
|
PUT_TO(R, c);
|
|
if ((c == ';') && (!(mode & SUBORDINATE_FILTER_BITS))) {
|
|
CodeGen::MergeTemplate::chunked_raw(R, kit);
|
|
mode = IGNORE_WS_FILTER_BIT;
|
|
}
|
|
}
|
|
CodeGen::MergeTemplate::chunked_raw(R, kit);
|
|
Str::clear(S);
|
|
}
|
|
|
|
void CodeGen::MergeTemplate::chunked_raw(text_stream *S, I6T_kit *kit) {
|
|
if (Str::len(S) == 0) return;
|
|
PUT_TO(S, '\n');
|
|
CodeGen::MergeTemplate::entire_splat(kit->IBM, I"template", S, (inter_t) (Inter::Bookmarks::baseline(kit->IBM) + 1));
|
|
Str::clear(S);
|
|
}
|
|
|
|
void CodeGen::MergeTemplate::receive_command(OUTPUT_STREAM, text_stream *command, text_stream *argument, I6T_kit *kit) {
|
|
if ((Str::eq_wide_string(command, L"plugin")) ||
|
|
(Str::eq_wide_string(command, L"type")) ||
|
|
(Str::eq_wide_string(command, L"open-file")) ||
|
|
(Str::eq_wide_string(command, L"close-file")) ||
|
|
(Str::eq_wide_string(command, L"lines")) ||
|
|
(Str::eq_wide_string(command, L"endlines")) ||
|
|
(Str::eq_wide_string(command, L"open-index")) ||
|
|
(Str::eq_wide_string(command, L"close-index")) ||
|
|
(Str::eq_wide_string(command, L"index-page")) ||
|
|
(Str::eq_wide_string(command, L"index-element")) ||
|
|
(Str::eq_wide_string(command, L"index")) ||
|
|
(Str::eq_wide_string(command, L"log")) ||
|
|
(Str::eq_wide_string(command, L"log-phase")) ||
|
|
(Str::eq_wide_string(command, L"progress-stage")) ||
|
|
(Str::eq_wide_string(command, L"counter")) ||
|
|
(Str::eq_wide_string(command, L"value")) ||
|
|
(Str::eq_wide_string(command, L"read-assertions")) ||
|
|
(Str::eq_wide_string(command, L"callv")) ||
|
|
(Str::eq_wide_string(command, L"call")) ||
|
|
(Str::eq_wide_string(command, L"array")) ||
|
|
(Str::eq_wide_string(command, L"marker")) ||
|
|
(Str::eq_wide_string(command, L"testing-routine")) ||
|
|
(Str::eq_wide_string(command, L"testing-command"))) {
|
|
LOG("command: <%S> argument: <%S>\n", command, argument);
|
|
TemplateReader::error("the template command '{-%S}' has been withdrawn in this version of Inform", command);
|
|
} else {
|
|
LOG("command: <%S> argument: <%S>\n", command, argument);
|
|
TemplateReader::error("no such {-command} as '%S'", command);
|
|
}
|
|
}
|