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
while(<STDIN>) {
    chop;
    ($I,$N,$S)=split(/\s+/,$_,3);
    if ($N >= 0 && $S) {
      print "SetTTFName($I,$N,\"$S\");\n";
    }
}
@
