head     1.1;
branch   1.1.1;
access   ;
symbols  INIT:1.1.1.1 VENDOR:1.1.1;
locks    ; strict;
comment  @# @;


1.1
date     2004.08.10.16.05.55;  author wkpark;  state Exp;
branches 1.1.1.1;
next     ;

1.1.1.1
date     2004.08.10.16.05.55;  author wkpark;  state Exp;
branches ;
next     ;


desc
@@



1.1
log
@Initial revision
@
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][3][1]{$I} = "$S";
#      print $N,":",$f->{'name'}{'strings'}[$N][3][1]{1042},"\n";
    }
}

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


1.1.1.1
log
@Import
@
text
@@
