Lire et écrire des caractères

• get0(X) : Lire un code ASCII et unifier X à ce code.
• get(X) : Même que get0(X) mais saute les caractères non-imprimable blanc (c’est-à-dire un caractère de code ASCII < 32) lu sur le flux d’entrée.
• put(a) : Écrire le caractère associé au code
Exemple
?- get0(X).
:|a 
X=65.
?- put(65).
a.
?- get0(X).
😐  %lire un « blanc »
X=32.
Example : Effacer des espaces vides d’une phrase comprimer:- get0(C),put(C),rest(C).
rest(46):- !. %46 =’.’ point rest(32):-!, %32=’ ‘ espace vide get(C),put(C),rest(C). rest(Lettre):-comprimer.
| ?- comprimer.
|: Bonjour ! nous sommes étudiants.
Bonjour ! nous sommes étudiants .

Ouvrir des fichiers

see(‘nom1’).
Ouverture en lecture du fichier «nom1» Le fichier devient le flux d’entrée courant.
seeing(F).
F s’unifie au fichier en cours.
see(user).
Le flux courant redevient l’utilisateur – le clavier.
seen.
Fermeture du fichier ouvert en lecture.
L’utilisateur devient le flux courant.
Exemple:calcule le carré d’un main :- chiffre de fichier f1.pl
see(‘f1’), %Entrée: lecture du fichier f1 qui
%contient un chiffre N et un point.
carre, %calcule le carré de N
seen. !%fermeture du fichier f1
%l’usager devient le flux courant.
carre :- read(N),
C is N*N, write(C), nl,
write(‘le flux courant est le fichier:’),
seeing(F),
write(F).

Ècrire dans les fichiers

tell(nom2).
Ouverture en écriture du fichier «nom2». Le fichier devient le flux de sortie courant. telling(F)
F s’unifie au fichier en cours.
tell(user).
Le flux courant de sortie redevient l’utilisateur.
told.
Fermeture du fichier ouvert en écriture.

Demo IV
• Entrées / Sorties
• Les prédicats du 2nd ordre
• setof / bagof/ findall/3