[Yap-users] problem with sockets

[Erick A. <alp...@lr...>]

Hello,

I am trying to design a simple client-serveur example using sockets, but 
the following one does not work. Could someone help me and tell me what 
I did wrong? or could send me a working example?

Thanks a lot in advance for your help and time,
Best regards,
Erick.

Here's a typical session:

server side
1022# yap
[ Restoring file startup ]
[ YAP version Yap-4.3.20 ]
    ?- ['client-server.yap'].
  [ consulting client-server.yap... ]
  [ client-server.yap consulted 1924 bytes in 0 seconds ]

yes
    ?- server.
Connection established : Client -> 127.0.0.1
test
test
[ Syntax Error at line 3: system_error ]
[ SYSTEM ERROR- read in prolog:read/2 ]
    ?-

client side
1023# yap
[ Restoring file startup ]
[ YAP version Yap-4.3.20 ]
    ?- ['client-server.yap'].
  [ consulting client-server.yap... ]
  [ client-server.yap consulted 1924 bytes in 0 seconds ]

yes
    ?- client.

yes
    ?-


% client-server.yap

server :-
	socket('AF_INET', Socket),
	socket_bind(Socket, 'AF_INET'(_, 1729)),
	socket_listen(Socket, 5),
	socket_accept(Socket, Client, Stream),
	write('Connection established : Client -> '),
	write(Client),
	nl,
	repeat,
	read(Stream,Term),
	(Term==end_of_file
	->
	    !
	;
	    write(Term),nl,
	    fail),
	close(Stream),
	socket_close(Socket).

client :-
	socket('AF_INET', Socket),
	socket_connect(Socket, 'AF_INET'(localhost, 1729) , S),
	format(S,"test.~n",[]),
	format(S,"test.~n",[]),
	format(S,"test.~n",[]),
	format(S,"test.~n",[]),
	format(S,"test.~n",[]),
	format(S,"test.~n",[]),
	close(S).