1/* <module> logicmoo_plarkc - special module hooks into the logicmoo engine allow
    2%   clif syntax to be recocogized via our CycL/KIF handlers 
    3% 
    4% Logicmoo Project: A LarKC Server written in Prolog
    5% Maintainer: Douglas Miles
    6% Dec 13, 2035
    7%
    8*/
    9:- module(logicmoo_pdt,[start_pdt/0,ensure_guitracer/0]).   10
   11% :- absolute_file_name(swi(xpce/prolog/lib),X), assert_if_new(user:library_directory(X)).
   12
   13ensure_guitracer:-!.
   14ensure_guitracer:- % break,
   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
   23%:- abolish(start_pdt/0).
   24start_pdt:-!.
   25start_pdt:-
   26 % ensure_guitracer, 
   27 % user:use_module('/opt/logicmoo_workspace/lib/swipl/xpce/prolog/lib/gui_tracer.pl'),
   28 %break,
   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')).   34%:- break.
   35:- during_net_boot(start_pdt).   36:- endif.   37:- endif.   38:- endif.