#!/usr/bin/perl
###############################################################################
#
#  機能 :
#         メッセージデータのenum宣言をdefineに変換
#  書式 :
#         ToMsgDataEnum.pl <enum宣言ファイル名>
#
#  $Id: ToMsgDataEnum.pl,v 1.2 2000-06-12 10:53:04+09 otsuki Exp $
#
###############################################################################
{
    $cnt = 0;
    while(<>) {
	if ($_ =~ /MSG_DATA_NUMBER/) { 
	    chop;
	    s/ //g;
	    s/\t//g;
	    @line = split(',', $_);
	    print "#define  @line[0]  $cnt \n";
	    $cnt++;
	}
    }
    print "\n";
    print "#ifdef MSG_TOOL \n";
    print "#define MSG_DATA_NUMBER_LAST_FOR_TOOL  $cnt  \n";
    print "#define TOTAL_MSG_DATA_NUMBER          (MSG_DATA_NUMBER_LAST_FOR_TOOL + 1000)  \n";
    print "#else \n";
    print "#define TOTAL_MSG_DATA_NUMBER          $cnt \n";
    print "#endif   \n";
}