X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=makefonts.pl;h=51274b877183a73ff60bdd6a929e99d503f5a270;hb=d348ec1138cb9537477d7d7a63ef836ad1da85d4;hp=ea1151930ec856cc9be41312123c18c4d4605c01;hpb=c269389b2e9d6921a7cec1c04927d2829b341475;p=chise%2Fomega.git diff --git a/makefonts.pl b/makefonts.pl index ea11519..51274b8 100755 --- a/makefonts.pl +++ b/makefonts.pl @@ -224,14 +224,19 @@ BLACKBOX ############## # Read ids data generated by inCHISE -my $idsdata="$omegadb_path/idsdata.pl"; +my $idsdata="$omegadb_path/idsdata.txt"; my ($font_start, $ids_start, %ids); if(-e $idsdata){ # "require" doesn't work well. # I don't know why... open (my $data, "<:utf8","$idsdata"); while(<$data>){ - eval $_; + utf8::decode($_); + if(m/^START\t(\d+)\t(\d+)/){ + $font_start=$1,$ids_start=$2; + }elsif(m/^(.*?)\t(\d+)\t(\d+)/){ + $ids{$1}=[$2,$3,]; + } } close($data); }else{