#! /bin/tcsh -f
####################################################################
#	動物の森メッセージデータファイルをとってくる
#	$Id: rcp.sh,v 1.2 2000-02-07 22:01:14+09 komatu Exp komatu $
####################################################################

#############使用するファイル名文字列
set decl_file_name="convert.decl"
set decl_new_file_name="convert.decl_new"
set except_msg_label="effect"
@ new_file = 1		###新規のファイルを検出するためのフラグ
@ new_file_status = 0		###新規のファイルが最終的にあったことを示すフラグ

#############メッセージデータのコピー
# rcp "srd@ikuiku:/mnt01/srd00/srd/FOREST/message_msg_eng/*.msg" .

# cd /auto/ikuiku/home/mnt01/srd00/srd/FOREST/message_msg_eng/
cd /auto/ikuiku/home/forest/FOREST/message_msg_eng/
\cp *.msg $FOREST_ROOT/data/shape/MESSAGE/ENG/MSG/conv/
cd $FOREST_ROOT/data/shape/MESSAGE/ENG/MSG/conv/


\rm -f select.msg

#############書き込み許可の変更
foreach ls_label (`\ls -1 *.msg`)
    switch($ls_label)
	case test:
	    breaksw
	default:
	    chmod 666 $ls_label
    endsw
end


#############ファイルの初期化
\rm -f $decl_new_file_name
\touch $decl_new_file_name

#############新規のメッセージデータファイルの検出
foreach ls_label (`\ls -1 *.msg`)
    @ new_file = 1
    foreach msg_label (`echo $ls_label | cut -d. -f1`)		###ここはforeachの必要なし
	switch($msg_label)
	    case $except_msg_label:
		breaksw
	    default:
		foreach decl_label (`\cat $decl_file_name`)
		    switch($decl_label)
			case $msg_label:
			    @ new_file = 0
			    breaksw
		    endsw
		end

#
#		grep $msg_label $decl_file_name > /dev/null
#		if ($status == 0) then
#		    @ new_file = 0
#		endif
#

		if ($new_file != 0) then
			echo $msg_label >>$decl_new_file_name
		    @ new_file_status = 1
		endif
	    endsw
    end
end

#############新規のメッセージデータファイルがあったことを知らせる
if ($new_file_status != 0) then
    echo "新たなファイルの発見！！！！！！！！！！！！！！！"
endif

################rcp.sh end