prolog - SWI-Prolog:当 "Non-module file"已加载到某些模块时，无权加载源)

Question

此错误可能与以下错误重复

SWI Prolog ensure_loaded error

由于这个问题没有得到完全解答，我决定在这里发布我的问题。

有一些使用 <name>:compile(Filename) 动态加载的文件子句，我怀疑这可能是导致错误的原因。

➜  chill git:(master) ✗ swipl --traditional                                                                                                                                              [18/06/20| 8:54AM]
Welcome to SWI-Prolog (threaded, 64 bits, version 7.6.4)
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software.
Please run ?- license. for legal details.

For online help and background, visit http://www.swi-prolog.org
For built-in help, use ?- help(Topic). or ?- apropos(Word).

?- expects_dialect(sicstus).
true.
?- consult('chill-test.pl').
true.  
?- set_prolog_flag(double_quotes, chars).
true.
?- run_trials('orig-db', 'raw250-split1.pl', 'orig-db-evaluate', 25, 200, 'raw250-res1.out').
Reading Split File: raw250-split1.pl
Specializing with 25 top-level examples
Beginning Example Analysis
Attempting Example 1 ....
<omitted output>    
BEGINING INDUCTION: 1 5
    ERROR: No permission to load source `'/home/vimos/git/SP/mooney/chill/orig-db.i'' (Non-module file already loaded into module test; trying to load into thetheory)
    ERROR: In:
    ERROR:   [36] throw(error(permission_error(load,source,'/home/vimos/git/SP/mooney/chill/orig-db.i'),context(...,'Non-module file already loaded into module test; trying to load into thetheory')))
    ERROR:   [34] '$assert_load_context_module'('/home/vimos/git/SP/mooney/chill/orig-db.i',thetheory,[expand(false),...]) at /usr/lib/swi-prolog/boot/init.pl:2439
    ERROR:   [33] '$mt_do_load'(<clause>(0x559a46329ea0),'orig-db.i','/home/vimos/git/SP/mooney/chill/orig-db.i',thetheory,[expand(false),...]) at /usr/lib/swi-prolog/boot/init.pl:2069
    ERROR:   [32] setup_call_catcher_cleanup(system:with_mutex('$load_file',...),system:'$mt_do_load'(<clause>(0x559a46329ea0),'orig-db.i','/home/vimos/git/SP/mooney/chill/orig-db.i',thetheory,...),_142002,system:'$mt_end_load'(<clause>(0x559a46329ea0))) at /usr/lib/swi-prolog/boot/init.pl:443
    ERROR:   [21] make_theory('orig-db.i',op/2,_142072) at /home/vimos/git/SP/mooney/chill/spchillin-nr.pl:966
    ERROR:   [20] top_induction('orig-db.i',[op(...,_142120)],[op(...,_142132),...|...],_142108) at /home/vimos/git/SP/mooney/chill/spchillin-nr.pl:129
    ERROR:   [19] chill_lib:cpu_time(user:top_induction('orig-db.i',...,...,_142186),_142170) at /home/vimos/git/SP/mooney/chill/chill_lib.pl:136
    ERROR:   [18] induce_control_definition('orig-db.i',[op(...,_142230)],[op(...,_142242),...|...],_142216,_142218) at /home/vimos/git/SP/mooney/chill/chill.pl:109
    ERROR:   [17] add_each_optimization(cxit([...|...]),'orig-db.i',fail,[(... :- ...),...],[],_142282,_142284) at /home/vimos/git/SP/mooney/chill/chill.pl:85
    ERROR:   [14] add_rules_for_targets([tr(...,function,fail)],'orig-db.i',[... - ...,...|...],[],[],_142346,_142348) at /home/vimos/git/SP/mooney/chill/chill.pl:79
    ERROR:   [12] chill_lib:cpu_time(user:create_optimized_rules(...,'orig-db.i',_142426,_142428),_142412) at /home/vimos/git/SP/mooney/chill/chill_lib.pl:136
    ERROR:   [11] chill_specialize('orig-db','<garbage_collected>','orig-db.i','orig-db-opt.pl') at /home/vimos/git/SP/mooney/chill/chill.pl:11
    ERROR:    [9] run_trials_loop(25,'orig-db',225,200,[[...],...|...],[ti(...,...,...),...|...],'raw250-res1.out') at /home/vimos/git/SP/mooney/chill/chill-test.pl:188
    ERROR:    [7] <user>
    ERROR: 
    ERROR: Note: some frames are missing due to last-call optimization.
    ERROR: Re-run your program in debug mode (:- debug.) to get more detail.
    ^  Exception: (32) setup_call_catcher_cleanup(system:with_mutex('$load_file', '$mt_start_load'('/home/vimos/git/SP/mooney/chill/orig-db.i', <clause>(0x559a46329ea0), [expand(false), expand(true)])), system:'$mt_do_load'(<clause>(0x559a46329ea0), 'orig-db.i', '/home/vimos/git/SP/mooney/chill/orig-db.i', thetheory, [expand(false), expand(true)]), _142584, system:'$mt_end_load'(<clause>(0x559a46329ea0))) ? creep
    ^  Call: (34) call(system:'$mt_end_load'(<clause>(0x559a46329ea0))) ? creep
    ^  Exit: (34) call(system:'$mt_end_load'(<clause>(0x559a46329ea0))) ? creep

有两个动态编译模块test和thetheory 。它们都是从同一个文件编译 orig-db.i 。

如果我强制其中一个从不同的文件读取，例如 orig-db.ii ，错误会有所不同。

我尝试了与 yap 相同的代码，它没有提示这个错误。

➜  chill git:(master) ✗ yap                                                      [18/06/20| 9:21AM]
% Restoring file /usr/lib/Yap/startup.yss
YAP 6.2.2 (x86_64-linux): Sat Sep 17 13:59:03 UTC 2016
   ?- consult('chill-test.pl').
yes
   ?- run_trials('orig-db', 'raw250-split1.pl', 'orig-db-evaluate', 25, 200, 'raw250-res1.out').
<omitted output>
BEGINING INDUCTION: 1 5
 % reconsulting /home/vimos/git/SP/mooney/chill/orig-db.i...
 % reconsulted /home/vimos/git/SP/mooney/chill/orig-db.i in module thetheory, 0 msec 1344 bytes
Induction Time: 0.00

op(ps([traverse(pvar(1),freevar):[],const(pvar(1),riverid(mississippi)):[mississippi],answer(pvar(0),state(pvar(0))):[which,through]],[run,?]),G9) :-
   db_lib:coref_vars(traverse,2,2,answer,2,1,ps([traverse(pvar(1),freevar):[],const(pvar(1),riverid(mississippi)):[mississippi],answer(pvar(0),state(pvar(0))):[which,through]],[run,?]),G9).
op(A,B) :-
   introduce(density(_,_),[density],A,B).
op(A,B) :-
   db_lib:coref_vars(density,2,1,state,1,1,A,B).
op(A,B) :-
   db_lib:coref_vars(density,2,2,smallest,2,1,A,B).
op(A,B) :-
   db_lib:lift_conj(state,1,smallest,2,2,A,B).
op(A,B) :-
   db_lib:drop_conj(density,2,smallest,2,2,A,B).

替换 ensure_loaded至reconsult没有解决 Swi-Prolog 中的错误.

我需要一些提示来理解这个错误，这是 Swi-Prolog 的实现问题吗？ ？

如果你想尝试一下，可以从下面的 ftp url 中找到代码。

感谢您的帮助!

---

我正在尝试将早期代码迁移到 SWI-Prolog ，写在 SICStus 3 #3: Thu Sep 12 09:54:27 CDT 1996或更早 作者:雷蒙德·穆尼 ftp://ftp.cs.utexas.edu/pub/mooney/chill/ 。 所有带有此标签的问题都与此任务相关。我是序言新手，欢迎帮助和建议!

Answer 1

这是 SWI-Prolog 已记录的当前限制，与其 make 机制相关。一种可能的解决方法是复制orig-db.i 文件。这样，test 和 thetheory 这两个模块将加载不同的文件。