diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix use of rm * when we have lots of examples.

This commit is contained in:
Vítor Manuel de Morais Santos Costa 2009-11-11 12:36:54 +00:00
parent a3ac75edcc
commit 0d23db6b6d
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/ProbLog/problog_learning.yap
View File

@ -648,12 +648,18 @@ init_learning :-
delete_all_queries :-
learning_flag(query_directory,Directory),
atomic_concat(['rm -f ',Directory,'query_*'],Command),
(shell(Command) -> true; true),
remove_queries,
retractall(query_is_similar(_,_)),
retractall(query_md5(_,_,_)).
remove_queries :-
learning_flag(query_directory,Directory),
user:example(ID,_,_),
atomic_concat([Directory,'query_',ID],File),
delete_file(File),
fail.
remove_queries.
empty_output_directory :-
learning_flag(output_directory,Directory),
atomic_concat(['rm -f ',Directory,'log.dat ',
@ -683,9 +689,9 @@ init_queries :-
( % go over all training examples
current_predicate(user:example/3),
user:example(ID,Query,Prob),
% statistics(runtime,[_,T]),
% my_format(3,' training example ~q: ~q ~q~n',[ID,Query,T]),
my_format(3,' training example ~q: ~q~n',[ID,Query]),
statistics(runtime,[_,T]),
my_format(3,' training example ~q: ~q after ~q msec~n',[ID,Query,T]),
% my_format(3,' training example ~q: ~q~n',[ID,Query]),
flush_output(user),
init_one_query(ID,Query,training),
fail; %go to next training example