Discussion :

[fujine16]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
% set_echo: ce prédicat active l'affichage par le prédicat echo
set_echo :- assert(echo_on).
 
% clr_echo: ce prédicat inhibe l'affichage par le prédicat echo
clr_echo :- retractall(echo_on).
 
% echo(T): si le flag echo_on est positionné, echo(T) affiche le termeT
%  sinon, echo(T) réussit simplement en ne faisant rien.
 
echo(T) :- echo_on, !, write(T).
echo(_).

exécution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     set_echo, echo('salut').

Voila mon problème au lancement de echo j'ai le droit à: "procedure `echo_on' does not exist" hors quand je fais "set_echo, listing" echo_on est bien rajouté.
Si vous avez une idée je suis preneur.

[Trap D]

Quel Prolog utilisez-vus ?
"Sur le mien", SWI-Prolog 7.7.2 sous Windows 10 je n'ai pas ce problème (alors que je devrais l'avoir, puisque effectivement echo_on n'est pas déclaré !
Cependant, je pense qu'il y a un problème de conception quelque part.
Que désirez-vous faire exactement ?
Est-ce ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
:- dynamic(echo/1).
% set_echo: ce prédicat active l'affichage par le prédicat echo
set_echo :- retractall(echo(_)), assert(echo(on)).
 
% clr_echo: ce prédicat inhibe l'affichage par le prédicat echo
clr_echo :- retractall(echo(_)), assert(echo(off)).
 
% echo(T): si le flag echo_on est positionné, echo(T) affiche le termeT
% sinon, echo(T) réussit simplement en ne faisant rien.
 
affiche(T) :-
    echo(on), write(T).
affiche(_).

Avec à l'exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
?- affiche(toto).
true.
 
?- set_echo, affiche(toto).
toto
true.
 
?- clr_echo.
true.
 
?- affiche(toto).
true.