head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2008.07.02.12.04.54;	author wkpark;	state Exp;
branches;
next	;


desc
@@


1.1
log
@update and add missing files
@
text
@#!/usr/bin/perl
use Font::TTF::Font;

if ($] > 5.007) {
   require Encode;
   Encode::_utf8_off($_);
}

$f = Font::TTF::Font->open($ARGV[0]) || die "Can't open $ARGV[0]";
$f->{'name'}->read;

while(<STDIN>) {
    chop;
    ($I,$N,$S)=split(/\s+/,$_,3);
    if ($N >= 0 && $S) {
      print $I,":",$N,":",$S,"\n";
      $f->{'name'}{'strings'}[$N][1][0]{$I} = "$S";
#      print $N,":",$f->{'name'}{'strings'}[$N][3][1]{1042},"\n";
    }
}

$f->out($ARGV[1]);
@
