[SWI-Prolog] Les flux "standards" ?

Version imprimable

24/06/2008, 14h20
Alp

[SWI-Prolog] Les flux "standards" ?

Salut,

Je m'amuse un peu avec la lib socket de SWI.

Je fais donc un serveur que je fais communiquer avec un client telnet.
Je veux écrire quelque chose dans la console de mon serveur mais comme le flux courant est celui d'échange avec le socket, c'est impossible à moins d'utiliser write en spécifiant le flux sur lequel je veux écrire.

Le problème c'est que je ne trouve pas les noms des flux standards d'entrée et sortie à utiliser avec write/2 et read/2.

Auriez-vous des indices/pages/exemples qui pourraient m'aider ?

:merci:

Salut

Je ne sais pas où tu en es, moi, j'ai fait ça.
J'en suis content :aie: car c'est le premier serveur que j'ai jamais fait (que ce soit en C ou dans un autre langage... je sais, c'est un peu puéril mais bon :oops:)

Le serveur :
Code:

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 :- use_module(library(streampool)). server(Port) :- tcp_socket(Socket), tcp_bind(Socket, Port), tcp_listen(Socket, 5), tcp_open_socket(Socket, In, _Out), add_stream_to_pool(In, accept(Socket)), stream_pool_main_loop. accept(Socket) :- tcp_accept(Socket, Slave, Peer), tcp_open_socket(Slave, In, Out), add_stream_to_pool(In, client(In, Out, Peer)). client(In, Out, _Peer) :- read_line_to_codes(In, Command), close(In), format('Vous m''avez envoyé: ~s~n', [Command]), format(Out, 'Vous m''avez envoyé: ~s~n', [Command]), close(Out), delete_stream_from_pool(In). test :- server(5000).
Le client dans une autre session SWI-Prolog
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 create_client(Host, Port) :- repeat, tcp_socket(Socket), tcp_connect(Socket, Host:Port), tcp_open_socket(Socket, ReadFd, WriteFd), writeln('Tapez quelque chose, (stop pour cesser) '), read(X), format(WriteFd, '~w.~n', [X]), flush_output(WriteFd), read_line_to_codes(ReadFd, Lst), string_to_list(Command, Lst), writeln(Command), close(ReadFd), close(WriteFd), X == stop. test :- create_client('localhost', 5000).
Exemple d'exécution

Serveur :

Citation:

1 ?- test.
Vous m'avez envoyé: sazlut.
Vous m'avez envoyé: stop.

Client

Citation:

1 ?- test.
Tapez quelque chose, (stop pour cesser)
|: sazlut.
Vous m'avez envoyé: sazlut.
Tapez quelque chose, (stop pour cesser)
|: stop.
Vous m'avez envoyé: stop.

Yes

PS : pour relativiser l'exploit, je tiens à dire que tout le code est pratiquement donné ici :mouarf:

Citation:
Envoyé par Trap D
Salut

Je ne sais pas où tu en es, moi, j'ai fait ça.
J'en suis content :aie: car c'est le premier serveur que j'ai jamais fait (que ce soit en C ou dans un autre langage... je sais, c'est un peu puéril mais bon :oops:)

Le serveur :
Code:

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 :- use_module(library(streampool)). server(Port) :- tcp_socket(Socket), tcp_bind(Socket, Port), tcp_listen(Socket, 5), tcp_open_socket(Socket, In, _Out), add_stream_to_pool(In, accept(Socket)), stream_pool_main_loop. accept(Socket) :- tcp_accept(Socket, Slave, Peer), tcp_open_socket(Slave, In, Out), add_stream_to_pool(In, client(In, Out, Peer)). client(In, Out, _Peer) :- read_line_to_codes(In, Command), close(In), format('Vous m''avez envoyé: ~s~n', [Command]), format(Out, 'Vous m''avez envoyé: ~s~n', [Command]), close(Out), delete_stream_from_pool(In). test :- server(5000).
Le client dans une autre session SWI-Prolog
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 create_client(Host, Port) :- repeat, tcp_socket(Socket), tcp_connect(Socket, Host:Port), tcp_open_socket(Socket, ReadFd, WriteFd), writeln('Tapez quelque chose, (stop pour cesser) '), read(X), format(WriteFd, '~w.~n', [X]), flush_output(WriteFd), read_line_to_codes(ReadFd, Lst), string_to_list(Command, Lst), writeln(Command), close(ReadFd), close(WriteFd), X == stop. test :- create_client('localhost', 5000).
Exemple d'exécution

Serveur :

Client

PS : pour relativiser l'exploit, je tiens à dire que tout le code est pratiquement donné ici :mouarf:
Oui j'ai vu, mais sur la ML Prolog on m'a dit que c'était déprécié d'utiliser les streampool. J'essaye donc de faire sans. Tout ce que je souhaiterais avoir c'est le nom du flux standard de sortie :triste: pour pouvoir afficher ce que je veux avec write(), car ça n'a pas l'air de marcher sans.

Je crois que j'ai trouvé quelque chose d'intéressant :

SWI-Prolog utilise 4 noms prédéfinis
current_input/output et user_input/output

Au démarrage les 2 paires sont identiques (e.g. current_input = user_input et current_output = user_output)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 test :- % l'entrée par défaut est le fichier d:/src.txt see('d:/src.txt'), % la sortie par défaut est le fichier d:/but.txt tell('d:/but.txt'), % on lit une ligne du fichier d:/src.txt read(X), % on l'ecrit dans le fichier d:/but.txt writeln(X), % on affiche à l'écran ce qui a été lu et ecrit format(user_output, 'ce qui a été lu : ~w~n', [X]), % on va lire au clavier une ligne a écrire dans le fichier but.txt write(user_output, 'tapez quelque chose : '), read(user_input, Y), writeln(Y), % on ferme les deux fichiers told, seen.
La session

Citation:

9 ?- test.
ce qui a été lu : titi
tapez quelque chose : chose.

Yes

Le fichier src.txt

Citation:

titi.
tata.
toto.

Remarquez les . qui termine les lignes (à cause du read, on peut éviter en utilisant read_line_to_codes/2)
Le fichier but.txt

Citation:

titi
chose

Le même code avec des read_line_to_codes qui évite les '.' de fin de saisie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
test :-
	% l'entrée par défaut est le fichier d:/src.txt
	see('d:/src.txt'),
	% la sortie par défaut est le fichier d:/but.txt
	tell('d:/but.txt'),
	% on lit une ligne du fichier d:/src.txt
	read_line_to_codes(current_input, X),
	% on l'ecrit dans le fichier d:/but.txt
	string_to_list(XX, X),
	writeln(XX),
	% on affiche à l'écran ce qui a été lu et ecrit
	format(user_output, 'ce qui a été lu : ~w~n', [XX]),
	% on va lire au clavier une ligne a écrire dans le fichier but.txt
	write(user_output, 'tapez quelque chose : '),
	read_line_to_codes(user_input, Y),
	string_to_list(YY, Y),
	writeln(YY),
	% on ferme les deux fichiers
	told,
	seen.

26/06/2008, 23h03
Alp

Excellent ! C'est ce qu'il me fallait !

:merci: beaucoup, au top comme d'habitude ;)