DennisMerritt
commented
3 years ago Hi Joost,
I hope someone can help you with this, there are a few people that have gotten into the code...
Hope all is well with you, —Dennis
Sent from my iPad
On Apr 27, 2021, at 8:43 AM, JoostKlep @.***> wrote:
Hello, I am Joost Klep and I am developing a new program for diagnosis of arithmetical problems in primary education. We installed Amzi-Prolog in Eclipse, and we try to start the sserver and sclient from interfaces/samples/internet/sockets/. Unfortunately we cannot find how to establish the connection.
We try this amzi-prolog code for the server side:
:- loadlsx(asock). :- load(asock).
sdefine('SOCK_STREAM', 1). sdefine('INADDR_ANY', 0).
main :- write( main_0 ), nl, wsaStartup(0x0101, Ver, HighVer, Desc, Status, MaxSockets, MaxUdpDg), write( main_1 ), nl, sdefine('SOCK_STREAM', SOCK_STREAM), socket(SOCK_STREAM, 0, Sock), write( main_3: Sock), nl, sdefine('INADDR_ANY', INADDR_ANY),
MyPort = 50530,
writeq( main_4: bind(Sock, INADDR_ANY, MyPort)), nl, bind(Sock, INADDR_ANY, MyPort), write( main_5: Sock), nl, listen(Sock, 1), write( main_6:listening), nl, repeat, select([Sock], [Sock], [Sock], 0, 0, ReadList, WriteList, ErrorList), catch(doreads(ReadList), X, endmain(Sock, X, Quit)), Quit == yes.
endmain(Sock, X, yes) :- closesocket(Sock), wsaCleanup.
doreads([]). doreads([Sock | Rest]) :- accept(Sock, RAddr, RPort, NewSock), send(NewSock, $Hello Client$, 0, NumSent), recv(NewSock, Cmd, 4096, 0, NumRecv), write(Cmd), nl, closesocket(NewSock), (Cmd == $shutdown$ -> write($Shutting down server ...\n$), throw(shutdown) ; true ), doreads(Rest).
And for the client side we use:
% NOTE!!! Uncomment the appropriate sdefine for your environment % Linux & Windows :- load( asock).
sdefine('SOCK_STREAM', 1). % Solaris %sdefine('SOCK_STREAM', 2).
main :- wsaStartup(0x0101, Ver, HighVer, Desc, Status, MaxSockets, MaxUdpDg), write( main_1), nl, inet_addr($my personal ip addr$, NetAddr), write( main_2:NetAddr), nl, sdefine('SOCK_STREAM', SOCK_STREAM), write( main_3:SOCK_STREAM), nl, socket(SOCK_STREAM, 0, Sock), write( main_4:Sock), nl, connect(Sock, NetAddr, 50501), write($Send what? $), read_string(Str), send(Sock, Str, 0, NumSent), recv(Sock, Buf, 4096, 0, NumRecv), write(Buf), closesocket(Sock), wsaCleanup.
We hope anyone can help us, maybe by giving another example? Question: are there any modules not working propery in windows 10?
Joost
— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub, or unsubscribe.
JoostKlep
maelh
Hello, I am Joost Klep and I am developing a new program for diagnosis of arithmetical problems in primary education. We installed Amzi-Prolog in Eclipse, and we try to start the sserver and sclient from interfaces/samples/internet/sockets/. Unfortunately we cannot find how to establish the connection.
We try this amzi-prolog code for the server side:
:- loadlsx(asock). :- load(asock).
sdefine('SOCK_STREAM', 1). sdefine('INADDR_ANY', 0).
main :- write( main_0 ), nl, wsaStartup(0x0101, Ver, HighVer, Desc, Status, MaxSockets, MaxUdpDg), write( main_1 ), nl, sdefine('SOCK_STREAM', SOCK_STREAM), socket(SOCK_STREAM, 0, Sock), write( main_3: Sock), nl, sdefine('INADDR_ANY', INADDR_ANY),
MyPort = 50530,
writeq( main_4: bind(Sock, INADDR_ANY, MyPort)), nl, bind(Sock, INADDR_ANY, MyPort), write( main_5: Sock), nl, listen(Sock, 1), write(
main_6:listening), nl, repeat, select([Sock], [Sock], [Sock], 0, 0, ReadList, WriteList, ErrorList), catch(doreads(ReadList), X, endmain(Sock, X, Quit)), Quit == yes.endmain(Sock, X, yes) :- closesocket(Sock), wsaCleanup.
doreads([]). doreads([Sock | Rest]) :- accept(Sock, RAddr, RPort, NewSock), send(NewSock, $Hello Client$, 0, NumSent), recv(NewSock, Cmd, 4096, 0, NumRecv), write(Cmd), nl, closesocket(NewSock), (Cmd == $shutdown$ -> write($Shutting down server ...\n$), throw(shutdown) ; true ), doreads(Rest).
And for the client side we use:
% NOTE!!! Uncomment the appropriate sdefine for your environment % Linux & Windows :- load( asock).
sdefine('SOCK_STREAM', 1). % Solaris %sdefine('SOCK_STREAM', 2).
main :- wsaStartup(0x0101, Ver, HighVer, Desc, Status, MaxSockets, MaxUdpDg), write( main_1), nl, inet_addr($my personal ip addr$, NetAddr), write( main_2:NetAddr), nl, sdefine('SOCK_STREAM', SOCK_STREAM), write( main_3:SOCK_STREAM), nl, socket(SOCK_STREAM, 0, Sock), write( main_4:Sock), nl, connect(Sock, NetAddr, 50501), write($Send what? $), read_string(Str), send(Sock, Str, 0, NumSent), recv(Sock, Buf, 4096, 0, NumRecv), write(Buf), closesocket(Sock), wsaCleanup.
We hope anyone can help us, maybe by giving another example? Question: are there any modules not working propery in windows 10?
Joost