Question

此错误可能是

的重复

由于尚未完全回答该问题，因此我决定在此发布我的信息。

使用<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网址中找到代码。

谢谢您的帮助！

我正在尝试将先前的代码迁移到SWI-Prolog，该代码是用 SICStus 3 #3: Thu Sep 12 09:54:27 CDT 1996或更早的版本由Raymond J. Mooney ftp://ftp.cs.utexas.edu/pub/mooney/chill/撰写。带有此标签的所有问题均与此任务相关。我是新手，欢迎您的帮助和建议！

Answer 1

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

SWI-Prolog：当“非模块文件”已经加载到某个模块中时，没有加载源的权限）

1 个答案: