1:- module(canny_pack,
2 [ load_pack_modules/2, 3 load_prolog_module/2 4 ]). 5:- autoload(library(filesex), [directory_member/3]). 6:- autoload(library(prolog_pack), [pack_property/2]). 7:- use_module(library(plunit), [load_test_files/1]).
15load_pack_modules(Pack, Modules) :-
16 pack_property(Pack, directory(Directory)),
17 findall(Module, load_prolog_module(Directory, Module), Modules),
18 load_test_files([]).
29load_prolog_module(Directory, Module) :-
30 directory_member(Directory, File, [file_type(prolog), recursive(true)]),
31 catch(load_files(File, [must_be_module(true)]), _, fail),
32 module_property(Module, file(File))