9:- module(logicmoo_pdt,[start_pdt/0,ensure_guitracer/0]). 10
12
13ensure_guitracer:-!.
14ensure_guitracer:- 15 absolute_file_name(swi(xpce/prolog/lib),X), assert_if_new(user:library_directory(X)),
16 user:use_module(library(pce_prolog_xref)),
17 user:use_module(library(emacs_extend)),
18 user:use_module(library(trace/gui)),
19 user:use_module(library(pce)),
20 user:use_module(library(gui_tracer)),
21 reload_library_index.
22
24start_pdt:-!.
25start_pdt:-
26 27 28 29 user:consult(library('logicmoo/pdt_server/socketProcessXXX.tmp.pl')).
30
31:- if(\+ thread_property(_,alias(pdt_console_server))). 32:- if(\+ thread_property(_,alias('consult_server@35421'))). 33:- if(app_argv('--pdt')). 35:- during_net_boot(start_pdt). 36:- endif. 37:- endif. 38:- endif.