#!/usr/local/bin/tt

### SQRT SERVER (UDP) ###
if( argc!=3 )
	dying("Usage[SqrtSv(UDP)]: %s SV-IP SV-Port\n",CMD);

lo_ip  =shift()							# (String) "127.0.0.1"|"localhost"
lo_port=shift()							# (String) "7"        |"echo"

# サーバー用ソケットの作成
sock=udp_socket(lo_ip,lo_port)
if( sock==NULL )
	dying("Error[${CMD}]: cannot make socket!!\n")

while(TRUE){

	# 受信(デフォルトソケットを利用)
	(re_ip,re_port,buf,len) = rx_udp()

	# 計算、又は、終了
	if( buf==":quit" ){ ret = tx_udp(re_ip,re_port,"<EOF>"); exit(0); }
	val = atof(buf)
	buf = sprint("%f",sqrt(val))

	# 送信(デフォルトソケットを利用)
	ret = tx_udp(re_ip,re_port,buf)

}
