8:- module(logicmoo_mud, [ ]). 9
13:- ensure_loaded(library(logicmoo_lib)). 14
18
19set_prologmud_home_dir:- exists_source(prologmud(mud_loader)),!.
20set_prologmud_home_dir:-
21 must((absolute_file_name(library('prologmud/'),Dir,[file_type(directory),access(read)]),
22 nonvar(Dir), asserta(user:file_search_path(prologmud,Dir)))).
23
24:- if(\+ exists_source(prologmud(mud_loader))). 25:- set_prologmud_home_dir,!. 26:- assertion(exists_source(prologmud(mud_loader))). 27:- endif. 28
31
33ensure_mud_startup:-
34 set_prologmud_home_dir,
35 baseKB:ensure_loaded(prologmud(mud_loader)),
36 current_prolog_flag(access_level,WAS),!,
37 set_prolog_flag(access_level,user),
38 baseKB:ensure_loaded(prologmud(mud_startup)),
39 set_prolog_flag(access_level,WAS).
40
41:- fixup_exports. 42
43
44:- if( \+ app_argv('--nomud')). 45:- ensure_mud_startup. 46:- endif.