update for remote_prologmud_programmer

.buildpath

@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<buildpath>
+	<buildpathentry excluding="prologmud_web/" kind="src" path="prolog"/>
+	<buildpathentry kind="con" path="org.eclipse.dltk.launching.INTERPRETER_CONTAINER"/>
+</buildpath>

.project

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>prologmud</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+	</buildSpec>
+	<natures>
+	</natures>
+</projectDescription>

prolog/prologmud/actions/actions_conf.pfc.pl

@@ -1,5 +1,5 @@
 % :-swi_module(user). 
-:-swi_module(modions_conf, []).
+:- module(modions_conf, []).
 
 end_of_file.
 

prolog/prologmud/actions/actions_db.pfc.pl

@@ -23,7 +23,7 @@
     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 *************************************************************************/
-:-swi_module(modActionDatabase, []).
+:- module(modActionDatabase, []).
 
 /*
 :-swi_module(modActionDatabase,[take/3,

prolog/prologmud/actions/any.pfc.pl

@@ -11,7 +11,7 @@
 % 
 
 % :-swi_module(user). 
-:-swi_module(any, []).
+:- module(any, []).
 
 
 

prolog/prologmud/actions/chat.pfc.pl

@@ -1,5 +1,4 @@
 
-% :-swi_module(user). 
 %:-swi_module(chat, [vtSocialVerb/1,socialCommand/3,chat_to_callcmd/4]).
 /* * module *  This file defines the predicates for the agent to socialize
 % Dec 13, 2035

prolog/prologmud/actions/climb.pfc.pl

@@ -10,7 +10,7 @@
 % Douglas Miles
 */
 % :-swi_module(user). 
-:-swi_module(modClimb, []).
+%:-swi_module(modClimb, []).
 
 :- include(prologmud(mud_header)).
 

prolog/prologmud/actions/create.pfc.pl

@@ -23,7 +23,7 @@
 rez_to_inventory(Agent,NameOrType,NewObj):-
   gensym('_rez',SS),
   call_u(must_det_l((
-  locally(baseKB:current_source_suffix(SS),show_call(createByNameMangle(NameOrType,NewObj,Clz))),
+  locally(t_l:current_source_suffix(SS),show_call(createByNameMangle(NameOrType,NewObj,Clz))),
    padd(NewObj,authorWas(rez_to_inventory(Agent,NameOrType,NewObj,Clz))),
    ain(genls(Clz,tItem)),
    padd(Agent,mudStowing(NewObj)),

prolog/prologmud/actions/drink.pfc.pl

@@ -6,7 +6,7 @@
 %
 % It will destroy something, even if it is not food... talk about a garbage disposal. 
 % :-swi_module(user). 
-:-swi_module(modDrink, []).
+% :-swi_module(modDrink, []).
 
 :- include(prologmud(mud_header)).
 

prolog/prologmud/actions/get_set.pfc.pl

@@ -1,5 +1,5 @@
 % :-swi_module(user). 
-:-swi_module(get_set, []).
+%:-swi_module(get_set, []).
 /* * module * Agent changes one of their own variables
 % Douglas Miles 2014
 

prolog/prologmud/actions/scansrc.pfc.pl

@@ -7,7 +7,7 @@
 %
 */
 %
-:-swi_module(modScansrc, []).
+% :- module(modScansrc, []).
 
 :- include(prologmud(mud_header)).
 

prolog/prologmud/mud_builtin.pfc.pl

@@ -1332,6 +1332,11 @@
   ((relationMostInstance(Pred,Type,Value))==>
     ((isa(X,Type))==>mdefault(t(Pred,X,Value)))))).
 
+
+:- ain((relationMostInstance(Pred,Type,Value))==>
+ ((isa(X,Type))==>mdefault(t(Pred,X,Value)))).
+
+
 (rtStatPred(Pred)/must(atom(Pred))==>(
     arity(Pred,2),
     rtRolePredicate(Pred),

prolog/prologmud/server/mud_http_hmud.pl

@@ -46,7 +46,9 @@
 
 :- fixup_exports.
 
+:- if(app_argv('--hmud')).
 :- during_net_boot(ensure_hmud).
+:- endif.
 %:- during_net_boot(run_flash_policy_server).
 %:- during_net_boot(install_hmud_http_handler).
 

prolog/prologmud/server/mud_telnet.pl

@@ -1,4 +1,5 @@
 %:- if(( ( \+ ((current_prolog_flag(logicmoo_include,Call),Call))) )).
+:- module(mud_telnet,[]).
 /*
 :- module(mud_telnet, [
          prolog_tnet_server/2,
@@ -26,21 +27,19 @@
          telnet_restore/0
       ]).
 */
-%  endif.
-/* * module
 % Initial Telnet/Text console
 % ALL telnet client business logic is here (removed from everywhere else!)
 %
 % Logicmoo Project PrologMUD: A MUD server written in Prolog
 % Maintainer: Douglas Miles
 % Dec 13, 2035
 %
-*/
+:- include(prologmud(mud_header)).
 
 :- use_module(mud_http_hmud).
 :- kb_shared(get_session_id/1).
 
-
+ 
 :- dynamic((lmcache:agent_session/2,
       lmcache:session_agent/2,
       lmcache:session_io/4,
@@ -642,15 +641,11 @@
     tcp_open_socket(ClientSock, In, Out),
     set_stream(In, close_on_abort(false)),
     set_stream(Out, close_on_abort(false)),
-
-
     peer_to_host(Peer,Host),
-    (   Postfix = []
-    ;   between(2, 1000, Num),
-        Postfix = [-, Num]
-    ),
+    gensym(inst_,Num),
     option(alias(ServerAlias),Options,prolog_tnet_server),
-    atomic_list_concat(['client_',Host, '@', ServerAlias | Postfix], Alias),
+    atomic_list_concat(['client_',Host,'_',Num, '@', ServerAlias], Alias),
+
 
     catch(thread_create(
               call_service_mud_client(Host, Alias, ClientSock, In, Out, Peer, Options),

prolog/prologmud_web/src_webui/launchcliopatria.pl

@@ -1,6 +1,6 @@
-#!/usr/local/bin/swipl 
+#!/usr/bin/env swipl 
 
-:- throw('dont call lauchclio!').
+% :- throw('dont call lauchclio!').
 
 :- initialization cp_server.