# charset="CP932"
# encoding="CP932"

#!/usr/local/bin/perl -aln -i.bak -F/\t/

%_ = qw{
	    名詞	普通名詞
	普通名詞	普通名詞
	    人名	人名
	    地名	地名
	固有人姓	姓
	固有人名	名
	固有人他	その他の人名
	固有組織	普通名詞
	固有地名	単純地名
	固有一般	その他の固有名詞

	名詞サ変	サ変名詞
	名詞ザ変	サ変名詞
	名サ形動	形容動詞
	名詞形動	形動名詞

	カ行五段	カ行五段
	ガ行五段	ガ行五段
	カ変動詞	五段動詞
	サ行五段	サ行五段
	サ変動詞	サ変動詞
	ザ変動詞	ザ変動詞
	サ変名詞	サ変名詞
	タ行五段	タ行五段
	ナ行五段	ナ行五段
	バ行五段	バ行五段
	ハ行四段	五段動詞
	マ行五段	マ行五段
	ラ行五段	ラ行五段
	ワ行五段	ワ行五段
	一段動詞	一段動詞
	五段動詞	五段動詞

	    副詞	副詞
	  感動詞	感動詞
	  形容詞	形容詞
	  接続詞	接続詞
	  接頭語	接頭語
	  接尾語	接尾語
	  無品詞	無品詞
	  連体詞	連体詞
	形容動詞	形容動詞

	    数詞	数字列接尾語
	  冠数詞	数字列接尾語
	  助数詞	数字列接尾語
	数字列接尾語	数字列接尾語

	  形容詞ウ	形容詞
	  独立語	無品詞
	形動タリ	形容動詞
};

next if /^!/;
$F[1] =~ s/"/""/g;
print qq("$F[0]","$F[1]","$_{$F[2]}");
__END__

#! MacJGAwk --lang-sjis -f
# with `kata2hira.sed` script

BEGIN {
	a["サ変名詞"]	= "サ変名詞";
	a["名詞サ変"]	= "サ変名詞";
	a["名詞ザ変"]	= "サ変名詞";

	a["カ行五段"]	= "無品詞";
	a["カ変動詞"]	= "無品詞";
	a["ガ行五段"]	= "無品詞";
	a["サ行五段"]	= "無品詞";
	a["サ変動詞"]	= "無品詞";
	a["ザ変動詞"]	= "無品詞";
	a["タ行五段"]	= "無品詞";
	a["ナ行五段"]	= "無品詞";
	a["ハ行四段"]	= "無品詞";
	a["バ行五段"]	= "無品詞";
	a["マ行五段"]	= "無品詞";
	a["ラ行五段"]	= "無品詞";
	a["一段動詞"]	= "無品詞";
	a["感動詞"]	= "無品詞";
	a["形容詞ウ"]	= "無品詞";
	a["接頭語"]	= "無品詞";
	a["接尾語"]	= "無品詞";
	a["独立語"]	= "無品詞";
	a["無品詞"]	= "無品詞";
	a["連体詞"]	= "無品詞";

	a["形容動詞"]	= "形容動詞";
	a["名サ形動"]	= "形容動詞";
	a["名詞形動"]	= "形容動詞";

	a["形動タリ"]	= "普通名詞";
	a["普通名詞"]	= "普通名詞";
	a["名詞"]	= "普通名詞";

	a["形容詞"]	= "形容詞";

	a["副詞"]	= "副詞";

	a["接続詞"]	= "接続詞";

	a["固有組織"]	= "普通名詞";
	a["固有人姓"]	= "人名";
	a["固有人他"]	= "人名";
	a["固有人名"]	= "人名";
	a["人名"]	= "人名";
	a["固有一般"]	= "地名";
	a["固有地名"]	= "地名";
	a["地名"]	= "地名";

	a["冠数詞"]	= "数字列接尾語";
	a["助数詞"]	= "数字列接尾語";
	a["数詞"]	= "数字列接尾語";
	a["数字列接尾語"] = "数字列接尾語";

	FS = "\t";
}

/^!/ {
	next;
}

NF {
	gsub(/"/, "\"\"");
	printf "\"%s\",\"%s\",\"%s\"\n", $1, $2, a[$3];
}