1:- module(logicmoo_cycqlf,[]). 2
4
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. 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.