rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add warnings when initialization goals fail (#168)

Browse Source
This commit is contained in:
Mark Thom
2019-10-30 00:25:17 -06:00
parent d34811aa36
commit 4ad62e4606
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/prolog/machine/compile.rs
View File

@@ -1022,7 +1022,10 @@ fn compile_work_impl(
)?; )?;
if init_goal_code.len() > 0 { if init_goal_code.len() > 0 {
wam.run_init_code(init_goal_code); if !wam.run_init_code(init_goal_code) {
println!("Warning: initialization goal for {} failed",
compiler.listing_src);
}
} }
if !compiler.suppress_warnings { if !compiler.suppress_warnings {

5
src/prolog/machine/mod.rs
View File

@@ -230,14 +230,17 @@ impl Machine {
self.machine_st.reset(); self.machine_st.reset();
} }
pub fn run_init_code(&mut self, code: Code) { pub fn run_init_code(&mut self, code: Code) -> bool {
let old_machine_st = self.sink_to_snapshot(); let old_machine_st = self.sink_to_snapshot();
self.machine_st.reset(); self.machine_st.reset();
self.code_repo.cached_query = code; self.code_repo.cached_query = code;
self.run_query(&AllocVarDict::new()); self.run_query(&AllocVarDict::new());
let result = self.machine_st.fail;
self.absorb_snapshot(old_machine_st); self.absorb_snapshot(old_machine_st);
!result
} }
pub fn run_top_level(&mut self) { pub fn run_top_level(&mut self) {