1:- module(logicmoo_cycqlf,[]).    2
    3% :- unload_file(logicmoo_cycqlf).
    4
    5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    6% PACK LOADER
    7%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    8
    9:- use_module(library(logicmoo_packs)).   10/*
   11
   12:- use_module(library(prolog_pack)).
   13:- if( \+ prolog_pack:current_pack(logicmoo_base)).
   14:- multifile(user:file_search_path/2).
   15:-   dynamic(user:file_search_path/2).
   16:- prolog_load_context(directory,Dir),
   17   absolute_file_name('../../',Y,[relative_to(Dir),file_type(directory)]),
   18   (( \+ user:file_search_path(pack,Y)) ->asserta(user:file_search_path(pack,Y));true).
   19:- initialization(attach_packs,now).
   20:- pack_list_installed.
   21:- endif.
   22*/
   23
   24%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   25% LOAD CYC KB LOADER
   26%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   27
   28:- if( \+ app_argv('--nokb'))
   29
   30:- ensure_loaded(library('pldata/plkb7166/kb7166')).
   31:- set_prolog_flag(verbose_load,full).   32:- kb7166:kb7166_qcompile.   33%:- break.
   34
   35:- if( app_argv1('--kb') ).   36:- kb7166:kb7166_qconsult.   37:- endif.   38
   39:- set_prolog_flag(verbose_load,normal).   40qsave_kb7166:- qsave_program('kb7166.prc',[class(runtime)]).
   41
   42:- endif.