#!/usr/local/bin/tt

:r ./disp_sockinfo

### ECHO CLIENT ###
if( argc!=4 && argc!=6 )
	dying("Usage[EchoClient(TCP)]: %s [CL-IP CL-Port] SV-IP SV-Port Message\n",CMD);

# クライアント用ソケットの作成(オプション)
if( argc==6 ){
	c_ip  =shift()						# (String) "127.0.0.1"|"localhost"
	c_port=shift()						# (String) "7"        |"echo"
	sock=tcp_socket(c_ip,c_port)
	if( sock==NULL )
		dying("Error: cannot make socket!!\n")
}

# サーバーアドレスとメッセージの取得
s_ip  =shift()							# (String) "127.0.0.1"|"localhost"
s_port=shift()							# (String) "7"        |"echo"
msg   =shift()							# (String) "Hello, World!!"

disp_sockinfo(TCP_SOCKET)
ret = connect(s_ip,s_port)
disp_sockinfo(TCP_SOCKET)

# メッセージの送信(デフォルトソケットを利用)
ret = tx_tcp(msg)
print("To  : Message=\"%s\"(Length=%d)\n",msg,ret)

disp_sockinfo(TCP_SOCKET)

# メッセージの受信(デフォルトソケットを利用)
(buf,len)=rx_tcp()
print("From: Message=\"%s\"(Length=%d)\n",buf,len)

disp_sockinfo(TCP_SOCKET)
