#!/usr/local/bin/tt

:r ./disp_sockinfo

### ECHO CLIENT ###
if( argc!=4 && argc!=6 )
	dying("Usage[EchoClient(UDP)]: %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=udp_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(UDP_SOCKET)

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

disp_sockinfo(UDP_SOCKET)

# メッセージの受信(デフォルトソケットを利用)
(ip,port,buf,len)=rx_udp()
print("From: IP=%s Port=%d Message=\"%s\"(Lenght=%d)\n",ip2str(ip),port,buf,len)

disp_sockinfo(UDP_SOCKET)
