/*
	client for reserv
*/


if ~show("L","rxsocket.library") then
	if ~addLib("rxsocket.library",0,-30) then do
		say "can't find rxsocket.library"
		exit
	end

sin.ADDRFAMILY = "INET"
sin.ADDRPORT   = 4000
sin.ADDRADDR   = '127.0.0.1'

sock = socket("INET","STREAM",0)
if sock<0 then do
	say "no socket:" errno()
	exit
end

if connect(sock,"SIN")<0 then do
	say "connect error:" errno()
	exit
end

request = "reverse service test"
res = send(sock,request)
if res~=length(request) then do
	say "send error:"  errno()
	exit
end

len = recv(sock,"BUF",256)
if len<0 then do
	say "recv error:" errno()
	exit
end
say buf