ugh, did not allow loading more than a file.
This commit is contained in:
parent
6ec4d99d86
commit
716f80d4c8
@ -52,18 +52,13 @@ YAP also supports the SWI-Prolog interface to loading foreign code:
|
|||||||
|
|
||||||
|
|
||||||
*/
|
*/
|
||||||
load_foreign_files(_Objs,_Libs,_Entry) :-
|
|
||||||
prolog_load_context(file, F),
|
|
||||||
prolog_load_context(module, M),
|
|
||||||
recorded( '$load_foreign_done', [F, M0], _), !,
|
|
||||||
'$import_foreign'(F, M0, M).
|
|
||||||
load_foreign_files(Objs,Libs,Entry) :-
|
load_foreign_files(Objs,Libs,Entry) :-
|
||||||
'$check_objs_for_load_foreign_files'(Objs,NewObjs,load_foreign_files(Objs,Libs,Entry)),
|
'$check_objs_for_load_foreign_files'(Objs,NewObjs,load_foreign_files(Objs,Libs,Entry)),
|
||||||
'$check_libs_for_load_foreign_files'(Libs,NewLibs,load_foreign_files(Objs,Libs,Entry)),
|
'$check_libs_for_load_foreign_files'(Libs,NewLibs,load_foreign_files(Objs,Libs,Entry)),
|
||||||
'$check_entry_for_load_foreign_files'(Entry,load_foreign_files(Objs,Libs,Entry)),
|
'$check_entry_for_load_foreign_files'(Entry,load_foreign_files(Objs,Libs,Entry)),
|
||||||
'$current_module'( M ),
|
'$current_module'( M ),
|
||||||
|
recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _),
|
||||||
'$load_foreign_files'(NewObjs,NewLibs,Entry),
|
'$load_foreign_files'(NewObjs,NewLibs,Entry),
|
||||||
ignore( recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _) ),
|
|
||||||
(
|
(
|
||||||
prolog_load_context(file, F)
|
prolog_load_context(file, F)
|
||||||
->
|
->
|
||||||
|
Reference in New Issue
Block a user