Skip to content

TCPIP.md

Latest commit

 

History

History
40 lines (31 loc) · 1.18 KB

TCPIP.md

File metadata and controls

40 lines (31 loc) · 1.18 KB

TCP/IP

I have implemented the TCP/IP predicates. see ./tests/socket.pl

Specification

  • create_server_socket(Soket,port) Creates and returns a socket as a server based on the port number. Provide the port number to port. It ranges from 0 to 65536.

  • create_client-socket(Soket,port,ip-address) Provide the port number to port. It ranges from 0 to 65536. ip-address is given as an atom. Example: '127.1.1.1' Returns yes is success.

  • send_socket(Socket,Atom) Sends an atom to the socket. Returns yes.

  • recv_socket(Socket,Atom) Receives from the socket and returns yes.

  • close_socket(Socket) Closes the socket. Returns yes.

start_server :-
   create_server_socket(ServerSocket, 5000),
   write('Server started on port 5000'),nl,
   recv_socket(ServerSocket, Message),
   write('Server received: '),
   write(Message),nl,
   send_socket(ServerSocket, Message),
   close_socket(ServerSocket).

start_client :-
   create_client_socket(ClientSocket, 5000, '127.1.1.1'),
   send_socket(ClientSocket, hello),
   write('Client sent: hello'),nl,
   recv_socket(ClientSocket, Message),
   write('Client recv: '),
   write(Message),nl,
   close_socket(ClientSocket).