Stops the thread listening for input from a binary input stream
listener_start/3 stops the thread listening for input from a a binary input stream.
Listener object
main(_) :-
server_start(1352, 3, accept_connection(_), _).
accept_connection(Socket) :-
open(Socket, read, Input, [socket,buffered,binary]),
open(Socket, write, Output, [socket,buffered,binary]),
listener_start(Input, handle_request(_, _, Input, Output), _).
handle_request(logoff, Listener, Input, Output) :- !,
close(Input),
close(Output),
listener_stop(Listener).
handle_request(Request, Listener, Input, Output) :-
...