mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 10:04:21 +03:00
51 lines
1.8 KiB
OpenEdge ABL
51 lines
1.8 KiB
OpenEdge ABL
[Inform7Skill::] Inform7 Skill.
|
|
|
|
A build step is a task such as running inform7 or inblorb on some file.
|
|
|
|
@ =
|
|
build_skill *compile_using_inform7_skill = NULL;
|
|
|
|
void Inform7Skill::create(void) {
|
|
compile_using_inform7_skill = BuildSteps::new_skill(I"compile using inform7");
|
|
METHOD_ADD(compile_using_inform7_skill, BUILD_SKILL_COMMAND_MTID, Inform7Skill::inform7_via_shell);
|
|
METHOD_ADD(compile_using_inform7_skill, BUILD_SKILL_INTERNAL_MTID, Inform7Skill::inform7_internally);
|
|
}
|
|
|
|
int Inform7Skill::inform7_via_shell(build_skill *skill, build_step *S, text_stream *command, build_methodology *meth) {
|
|
inform_project *project = ProjectBundleManager::from_copy(S->associated_copy);
|
|
if (project == NULL) project = ProjectFileManager::from_copy(S->associated_copy);
|
|
if (project == NULL) internal_error("no project");
|
|
|
|
Shell::quote_file(command, meth->to_inform7);
|
|
|
|
inform_kit *K;
|
|
LOOP_OVER_LINKED_LIST(K, inform_kit, project->kits_to_include) {
|
|
WRITE_TO(command, "-kit %S ", K->as_copy->edition->work->title);
|
|
}
|
|
WRITE_TO(command, "-format=%S ", TargetVMs::get_unblorbed_extension(S->for_vm));
|
|
|
|
inbuild_nest *N;
|
|
LOOP_OVER_LINKED_LIST(N, inbuild_nest, S->search_path) {
|
|
switch (Nests::get_tag(N)) {
|
|
case MATERIALS_NEST_TAG: continue;
|
|
case EXTERNAL_NEST_TAG: WRITE_TO(command, "-external "); break;
|
|
case GENERIC_NEST_TAG: WRITE_TO(command, "-nest "); break;
|
|
case INTERNAL_NEST_TAG: WRITE_TO(command, "-internal "); break;
|
|
default: internal_error("mystery nest");
|
|
}
|
|
Shell::quote_path(command, N->location);
|
|
}
|
|
|
|
WRITE_TO(command, "-project ");
|
|
Shell::quote_path(command, S->associated_copy->location_if_path);
|
|
return TRUE;
|
|
}
|
|
|
|
int Inform7Skill::inform7_internally(build_skill *skill, build_step *S, build_methodology *meth) {
|
|
#ifdef CORE_MODULE
|
|
int rv = Task::carry_out(S);
|
|
return rv;
|
|
#endif
|
|
return FALSE;
|
|
}
|