-
Notifications
You must be signed in to change notification settings - Fork 2
/
cogbot.pl
158 lines (109 loc) · 5.75 KB
/
cogbot.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
% ===================================================================
% File 'cogbot.pl'
% Purpose: Toplevle loader file for proog support
% Maintainer: Douglas Miles
% Contact: $Author: dmiles $@users.sourceforge.net ;
% Version: 'cogbot.pl' 1.0.0
% Revision: $Revision: 1.7 $
% Revised At: $Date: 2002/07/11 21:57:28 $
% ===================================================================
:-ensure_loaded(library(swicli)).
end_of_file.
:-dynamic(cogbot_pl_dir/1).
:-dynamic(cogbot_temp_dir/1).
:-dynamic(cogbot_aiml_dir/1).
:-dynamic(filepath_hints/1).
%% ======================================================
%% Add a library directory here
%% ======================================================
asserta_if_new_hlper2(C):-catch(C,_,fail),!.
asserta_if_new_hlper2(C):-asserta(C),!.
:-source_location(File,_Line),file_directory_name(File, ParentDir),
writeq(logicmoo_module_aiml:asserta(library_directory(ParentDir))),
asserta_if_new_hlper2(library_directory(ParentDir)).
extern_pathname(FullPah,Hint):-current_stream(FullPah,read,_),join_pathnames(_,Hint,FullPah),!.
expand_file_name_each(A,B):-expand_file_name(A,BB),!,member(B,BB).
cb_file_search_path(X,Y):-nonvar(Y),!,throw(cb_file_search_path(X,Y)).
cb_file_search_path(X,Z):-nonvar(X),expand_file_name_each(X,Y),absolute_file_name(Y,Z).
cb_file_search_path(X,Z):-file_search_path(X,Y),expand_file_name_each(Y,Z).
expand_aliases(X,Z):-nonvar(X),expand_file_name_each(X,Y),absolute_file_name(Y,Z).
expand_aliases(X,Z):-file_search_path(X,Y),expand_file_name_each(Y,Z).
expand_aliases_locally(X,Z):-nonvar(X),expand_file_name_each(X,Z).
expand_aliases_locally(X,Z):-file_search_path(X,Y),expand_file_name_each(Y,Z).
expand_to_absolutes(A,AAA):-expand_aliases(A,AA),absolute_file_name(AA,AAA).
same_paths(A,B):-expand_to_absolutes(A,AA),
expand_to_absolutes(B,BB),
same_refs(AA,BB),!.
same_refs(A,A):-!.
same_refs(A,B):-nonvar(A),nonvar(B),same_file(A,B),!.
same_refs(A,B):-expand_to_absolutes(A,AA),expand_to_absolutes(B,BB),same_file(AA,BB),!.
join_pathnames(First,Second,All):-var(First),nonvar(Second),nonvar(All),!,
expand_to_absolutes(All,Joined),atomic(Joined),trace,
concat_atom(List,'/',Joined),
expand_aliases_locally(Second,BE),
append(AE,BE0,List),concat_atom(BE0,'/',BE),
expand_aliases(First,AE),!.
join_pathnames(First,Second,All):-nonvar(First),nonvar(Second),var(All),!,
cb_file_search_path(First,A),expand_to_absolutes(A,AE),
cb_file_search_path(Second,B),concat_atom([AE,B],'/',Joined),expand_to_absolutes(Joined,Place),!,same_refs(Place,All),!.
join_pathnames(First,Second,All):-nonvar(First),var(Second),nonvar(All),!,
cb_file_search_path(First,A),expand_to_absolutes(A,AE),
cb_file_search_path(Second,B),concat_atom([AE,B],'/',Joined),expand_to_absolutes(Joined,Place),!,same_refs(Place,All),!.
join_pathnames(First,Second,Full):-var(First),nonvar(Full),
cb_file_search_path(First,A),expand_to_absolutes(A,AE),
cb_file_search_path(Second,B),concat_atom([AE,B],'/',Joined),expand_to_absolutes(Joined,Place),is_absolute_file_name(Place),!.
/*
:- extern_pathname(FullPath,'cogbot.pl'),file_directory_name(FullPath),asserta(cogbot_pl_dir(FullPath)).
directory_of_file(File,Start,Hints,Dir):- member(Dir,Hints),join_pathnames(Dir,File,Path), exists_file(Path),!.
:- cogbot_pl_dir(D)->Try=D;D='cynd',join_pathnames('cogbot.pl',),file_exists(NewFile)))) -> retract(cogbot_pl_dir(D)).
:- ignore(( not(cogbot_pl_dir(D)),file_exists('cogbot.pl'),asserta(cogbot_pl_dir('./')) )).
(file_exists('cogbot.pl'),asserta(cogbot_pl_dir('./'))).
*/
%:-file_exists('cogbot.pl'),asserta(cogbot_pl_dir('./').
:- exists_file('cogbot.pl') -> cd('..') ; true.
%%:-ensure_loaded(library('cyc_pl/cyc')).
/*
:-abolish(cyc:debugFmt/1).
cyc:debugFmt(Stuff):- notrace((debugFmtS(Stuff))),!.
debugFmtS([]):-!.
debugFmtS([A|L]):-!,debugFmt('% ~q~n',[[A|L]]).
debugFmtS(Comp):-hideIfNeeded(Comp,Comp2),!,debugFmt('% ~q~n',[Comp2]).
debugFmtS(Stuff):-!,debugFmt('% ~q~n',[Stuff]).
hideIfNeeded(I,I):- (var(I);atomic(I)),!.
hideIfNeeded([I|_],ctx):-nonvar(I),I=frame(_,_,_),!.
hideIfNeeded([I|N],[I0|N0]):-!,hideIfNeeded(I,I0),hideIfNeeded(N,N0),!.
hideIfNeeded(Comp,Comp2):-compound(Comp),Comp=..[L,I|ST],hideIfNeeded(I,II),Comp2=..[L,II|ST].
hideIfNeeded(I,I):-!.
*/
noaimltrace(X):- X. %% notrace(X).
guitracer:-debug.
%:-ensure_loaded('prolog/programk/logicmoo_module_aiml.pl').
%%:-assertz(librar
%file_search_path(X,Y).
%%:-ensure_loaded(library('programk/logicmoo_module_aiml_testing.pl')).
mud:-ensure_loaded(library('startrek/mudreader.pl')).
:-ensure_loaded(library('simulator/cogrobot')).
:-ensure_loaded(test('testsupport')).
:-ensure_loaded(test('testpathfind')).
:-use_module(library(swicli)).
%% world_avatar(X),cli_get(X,'SalientMovementProceedure',Y).
%% botapi(astargoto(stop_test_5)).
%%:- createWritelnDelegate(_X).
:-dynamic(ike1Ran).
ike1:-ike1Ran,!.
ike1:-assert(ike1Ran),fail.
ike1:-logon_bot('ike','Testbot','060788', "http://www.pathwayslms.com:9000/","home",_Y).
%ike1:-logon_bot('ExampleBot','Resident','abc123', "https://login.agni.lindenlab.com/cgi-bin/login.cgi","last",_).
ike:-thread_create(ike1,_,[]).
:-dynamic(raphe1Ran).
raphe1:- raphe1Ran,!.
raphe1:-assert(raphe1Ran),fail.
raphe1:-logon_bot('raphe','Testbot','060788', "http://www.pathwayslms.com:9000/","home",_Y).
raphe:-thread_create(raphe1,_,[]).
gui:-thread_create(botcmd(showgui),_,[]).
%% cli_call('System.Threading.ThreadPool','GetAvailableThreads'(X,Y),_)
%%onFirstBotClient("'(thisClient \"ILikeIKE Resident\")"-_g2886-"'(thisClient \"ILikeIKE Resident\")")
%:-sleep(20),tpf(clear),tpf(elev_path).
%%%:-at_initialization((sleep(20),tpf1)).
%:-tpf.
%%:-ike.