Commit ddf1d024 authored by SOLIMAN Sylvain's avatar SOLIMAN Sylvain

better messages

parent 0f10e7ba
...@@ -190,6 +190,7 @@ add_reaction_backtracking(R) :- ...@@ -190,6 +190,7 @@ add_reaction_backtracking(R) :-
print_message(informational, added(R)) print_message(informational, added(R))
; ;
delete_item([kind: reaction, item: R]), delete_item([kind: reaction, item: R]),
print_message(informational, failure),
print_message(informational, removed(R)), print_message(informational, removed(R)),
fail fail
). ).
...@@ -222,6 +223,7 @@ del_reaction_backtracking(R) :- ...@@ -222,6 +223,7 @@ del_reaction_backtracking(R) :-
print_message(informational, removed(R)) print_message(informational, removed(R))
; ;
add_item([kind: reaction, item: R]), add_item([kind: reaction, item: R]),
print_message(informational, failure),
print_message(informational, added(R)), print_message(informational, added(R)),
fail fail
). ).
...@@ -234,7 +236,7 @@ prolog:message(added(Reaction)) --> ...@@ -234,7 +236,7 @@ prolog:message(added(Reaction)) -->
['Adding reaction ~w'-[Reaction]]. ['Adding reaction ~w'-[Reaction]].
prolog:message(removed(Reaction)) --> prolog:message(removed(Reaction)) -->
['Failed', nl, 'Removing reaction ~w'-[Reaction]]. ['Removing reaction ~w'-[Reaction]].
prolog:message(trying(Reaction)) --> prolog:message(trying(Reaction)) -->
['Considering reaction ~w'-[Reaction]]. ['Considering reaction ~w'-[Reaction]].
...@@ -244,3 +246,6 @@ prolog:message(checking(Query)) --> ...@@ -244,3 +246,6 @@ prolog:message(checking(Query)) -->
prolog:message(success(Reactions)) --> prolog:message(success(Reactions)) -->
['Success!', nl, 'The new model is: ~w'-[Reactions]]. ['Success!', nl, 'The new model is: ~w'-[Reactions]].
prolog:message(failure) -->
['Failed'].
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment