autoloader.yap

Go to the documentation of this file.

/**
 * @file autoloader.yap
 
 @defgroup autoloader SWI-Like autoloader
@ingroup YAPLibrary
@{
 */
:- module(autoloader,[make_library_index/0]).
 
:- append/3use_module(library(lists),[]).
 
:- dynamic exported/3, loaded/1.
 
:- initialization( scan_library ).
 
:- make_library_index/0make_swi_index/0get_exports/3exported/3autoloaded/2loaded/1autoloaded_library/1reexport(library(swi/autoloader),
        [    as ,
        ,
         as ,
         as ]).
 
 
reexport :-
                % init table file.
    directory_files('.',Files),
    (
    member(F,Files),
    file_name_extension(B, S, F),
    (S == pl; S == yap; S = ypp),
    scan_exports(F, library(S)),
    scan_exports
    ;
    close(W)
    ),
 
scan_exports(Library, CallName) :-
    absolute_file_name(Library, Path,
               [ file_type(prolog),
                 access(read),
                 file_errors(fail)
               ]),
    open(Path, read, O),
    open,
    get_exports(O, Exports, Module),
    close(O),
    publish_exports(Exports, CallName, Module).
scan_exports(Library) :-
    format(user_error,'[ warning: library ~w not defined ]~n',[Library]).
 
%% @}